letzte Zeile suchen
23.07.2003 08:48:04
Graml Alois
Ich habe ein kleines Problem
Ich möchte die letzte Zeile von Tabelle2 suchen und in einem Textfeld die Anzahl der Zeilen ausgeben.
Was mache ich da nur falsch?
Ich bekomme aber immer nur die Anzahl der Tabelle1
Ich bitte um Hilfe
Vielen Dank im Voraus
Alois
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Private Sub CommandButton1_Click()
Dim tb1 As Worksheet
Dim tb2 As Worksheet
Dim inttmp%
Set tb2 = ThisWorkbook.Worksheets("Tabelle2")
tb2.Activate
tb2.Range("A1").Select
inttmp = Cells(Rows.Count, 1).End(xlUp).Row
Txt1 = inttmp
Set tb1 = ThisWorkbook.Worksheets("Tabelle1")
tb1.Activate
tb1.Range("a1").Select
End Sub
Anzeige