title image


Smiley Re: Datum in definierter Spalte suchen
Hallo chris-ka



Danke für den Tipp, funktioniert schon besser. Habe aber jetzt das Problem wenn ich das Datum ändere bleibt mir das Makro in Columns(1).FindNext(After:=ActiveCell).Activate hängen. (Nur wenn nichts mehr gefunden wird)

Hast du hierfür auch eine Lösung?

Gruss DC



Hier noch der Code



Private Sub Workbook_Open()

Call datum

Call Auswahl

Call Auswahl2

MsgBox "Terminüberprüfung beendet!"

Range("A10").Select

End Sub





Sub Auswahl()

Dim gZelle As Range, sBegriff$

sBegriff = Range("C2").Value



If sBegriff = "" Then Exit Sub Else sBegriff = Range("C2").Value

ActiveWindow.ScrollRow = 2



Set gZelle = ActiveSheet.Columns("A").Find(sBegriff)





If gZelle Is Nothing Then

Beep

MsgBox "Keine geplanten Starttermine gefunden!"

Exit Sub

End If



gZelle.Select



ActiveWindow.ScrollRow = 2

ActiveWindow.SmallScroll Down:=gZelle.Row - 4

UserForm1.Show

GoOn = MsgBox("Weitersuchen ?", vbYesNo)

If GoOn = "7" Then Exit Sub





gZelle.Offset(1, 0).Select

While ActiveCell.Address gZelle.Address

Columns(1).FindNext(After:=ActiveCell).Activate



If ActiveCell.Address = gZelle.Address Then Exit Sub





ActiveWindow.ScrollRow = 2

ActiveWindow.SmallScroll Down:=ActiveCell.Row - 4



UserForm1.Show

GoOn = MsgBox("Weitersuchen ?", vbYesNo)

If GoOn = "7" Then Exit Sub



Wend

End Sub



Private Sub CommandButton1_Click()



ActiveCell.Value = TextBox1.Value

Unload Me



End Sub



Private Sub CommandButton2_Click()



Unload Me

End Sub



Private Sub TextBox1_Change()



End Sub



Private Sub UserForm_Click()



End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: