Thema Datum  Von Nutzer Rating
Antwort
23.01.2019 14:34:58 Harry
Solved
Blau Der nächst gelegene Wert suchen und...
 23.01.2019 16:21:52 amicro2000
NotSolved
23.01.2019 17:05:02 Harry
NotSolved

Ansicht des Beitrags:
Von:
amicro2000		 Datum:
23.01.2019 16:21:52		 Views:
454		 Rating:
     
Antwort:
  Ja
Thema:
Der nächst gelegene Wert suchen und...

Hallo Harry,

probier das mal aus.

Dim Suchwert As Long, i As Long, Rng As Range
    
    With Sheets("Seite1")
        Suchwert = NeueNummer
        For i = Suchwert - 1 To (Suchwert - 101) Step -1
            Set Rng = .Range("B:B").Find(i, LookIn:=xlValues, lookat:=xlWhole)
            If Not Rng Is Nothing Then
                Rng.Offset(1, 0).EntireRow.Insert
                Rng.Offset(1, 0) = NeueNummer * 1
                Rng.Offset(1, 0).Select
                Unload Me
                Exit Sub
            End If
        Next i
    End With
    
    MsgBox "nicht gefunden!"

Der code muss in den Button der Userform.

NeueNummer ist die Textbox mit der neuen bzw. zu suchenden Nummer.

 

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
23.01.2019 14:34:58 Harry
Solved
Blau Der nächst gelegene Wert suchen und...
 23.01.2019 16:21:52 amicro2000
NotSolved
23.01.2019 17:05:02 Harry
NotSolved