autom. zwischen Worksheets wechseln
25.01.2005 17:15:30
Günther
Ich bastle jetzt schon geraume Zeit und komme einfach nicht hinter das
Geheimnis.
Ich möchte das aktive Worksheet automatisch nach der Zelle A1 (Name)
benennen.
Jetzt kommts:
Auf den einzelnen Sheets habe ich einen CommandButton. Nach Klick auf diesen
läuft eine Userform ab.
U.a. wird dabei in andere Tabellen gesprungen, weil dort Werte berechnet
werden (Arbeitstage Netto = ohne Wochenende, Feiertage)
Wie komme ich aus dieser Userform wieder in mein AKTIVES SHEET, von wo aus
ich gestartet bin?
Probiert habe ich es bislang so:
Private Sub CommandButton2_Click()
Dim frm As UserForm
Dim AktWS As Worksheet
Set AktWS = Worksheets("1.Halbjahr").Range("AktKB").Value
Sheets("AktWS").Activate
Set frm = frmKBDaten
Unload frmKBDaten
With frm
If txtvon >= "" Then
Neue_Zeile (ActiveSheet)
'ActiveSheet.Unprotect
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = frmKBDaten.txtvon.Value 'krankheitsbeginn
txtvon = CDate(DatVon)
ActiveCell.Offset(0, 1).Value = frmKBDaten.txtbis.Value 'ende
txtbis = CDate(DatBis)
ActiveCell.Offset(0, 3).Value = frmKBDaten.TextBox1.Value 'Nettotage
eintragen
activeworksheet.Calculate
Else
Exit Function
End If
End With
End Sub
Danke für jegliche Hilfe