Suche Zeilennummer
15.01.2008 13:52:57
Andi
ich habe gerade ein kleines Problem mit dem folgenden Programm. Wenn ich in der Tabelle1 die Bezeichnung: "Nr" suchen lasse, wird die richtige Zeilennummer +1 in der TextBox1 ausgegeben. Wird jedoch in Tabelle2 nach der Zeilennummer gesucht (Sheets("Tabelle2").Select) , kommt immer der Fehler (.Aktivate nicht möglich).
Hat jemand eine Idee?
Private Sub CommandButton1_Click()
Dim n%
Sheets("Tabelle1").Select
Cells.Find(What:="Nr", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Cells.FindNext(After:=ActiveCell).Activate
n = ActiveCell.Row
n = n + 1
Sheets("Tabelle1").Select
Tabelle1.TextBox1 = n
End Sub
Viele Grüße Andi
Anzeige