Thema Datum  Von Nutzer Rating
Antwort
09.05.2017 14:27:02 Tim
NotSolved
Blau [VBA] Bei bestimmten Wert stoppen eine Zeile einfügen und wiederholen
 09.05.2017 16:08:15 BigBen
NotSolved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
09.05.2017 16:08:15		 Views:
583		 Rating:
     
Antwort:
  Ja
Thema:
[VBA] Bei bestimmten Wert stoppen eine Zeile einfügen und wiederholen

Hallo,

habe gleich zwei Lösungsvorschläge:

Sub ScanValuesAndStoppIt_2()
    Dim rng As Range
    Dim strSearchValue As String
    Dim bSearchStart As Boolean
    bSearchStart = True
    strSearchValue = InputBox("Welcher Wert wird gesucht?")
    For Each rng In ActiveSheet.UsedRange.Cells
        If bSearchStart Then
            If rng.Address = ActiveCell.Address Then
                bSearchStart = Not bSearchStart
            End If
        Else
            If rng.Value = strSearchValue Then
                With rng.Offset(rowOffset:=1)
                    .Select
                    .EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
                End With
                Exit For
            End If
        End If
    Next
End Sub


Sub ScanValuesAndStoppIt_1()
    Dim rng As Range
    Dim strSearchValue As String
    strSearchValue = InputBox("Welcher Wert wird gesucht?")
    
    Set rng = ActiveSheet.Cells.Find(What:=strSearchValue, LookIn:=xlValues, After:=ActiveCell, SearchDirection:=xlNext, MatchCase:=True)
    If Not rng Is Nothing Then
        With rng.Offset(rowOffset:=1)
            .Select
            .EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
        End With
    End If
End Sub

Der Befehl ScanValuesAndStoppIt_1 sucht ausgehend von der aktuellen Position das nächste Vorkommen des gesuchten Wertes. Falls der gesuchte Wert nicht vorhanden ist, wird vom Anfang weiter gesucht.

Der Befehl ScanValuesAndStoppIt_2 macht das Gleiche, wie ScanValuesAndStoppIt_1, mit dem Unterschied, dass dieser am Ende aufhört.

LG, BigBen

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
09.05.2017 14:27:02 Tim
NotSolved
Blau [VBA] Bei bestimmten Wert stoppen eine Zeile einfügen und wiederholen
 09.05.2017 16:08:15 BigBen
NotSolved