active sheet
07.10.2006 19:22:33
frank
ich habe eine UF welche über ein Button von Tabelle1 aus aufgerufen wird.
Daraufhin kommt die Anweisung irgendwann mal zu der unten aufgeführten Befehlsfolge. Hier wird im 1.Worksheet der Wert in Spalte A jeweils um eins erhöht. Funktioniert super.
Ich habe nun ein zweites Tabellenblatt mit dem ich das auch machen möchte. Commandbutton ruft UF auf aber die Werte werden in Spalte A nicht hochgezählt. Dass passiert nur wenn ich eine 2 nach Worksheet eintrage.
Wie kann ich denn die sache dynamisch gestalten so das statts der Zahlen dies vielleicht als actives Worksheet erkannt wird.
Kann schlecht die User dazubringen laufend in die Entwicklungsumgebung zu gehen um die Werte zu ändern.
Vielleicht hat jemand eine Idee. Es muß bestimmt anstelle der Zahl eine Variable stehen die sagt welches Worksheet gerade aktiv ist.
Gruß und Danke Frank
Private Sub UserForm_Initialize()
Dim lz As Integer
With Worksheets(1)
lz = .Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile
UserForm1.TextBox1 = WorksheetFunction.Max(.Cells(1, 1), .Cells(lz, 1)) + 1
End With