Blattname weiterverarbeiten
24.02.2009 13:56:35
Dirk
mit dem untenstehenden CommandButton(CB)-Code in meinem Blatt 'allg' springe ich auf das dadurch ermittelte Blatt.
Dies funzt auch super, aber nun bräuchte ich folgende Erweiterung:
1. Wie kann ich den Namen des ermittelten Blattnamens (also wohl von objSheet) in die ZELLE U5 des derzeit aktiven Blattes - also 'allg' - eintragen (nicht nur objSheet.SELECT) ?
2. Wie kann ich diesen somit ständig wechselnden Blattnamen aus der ZELLE U5 dann ggf. per Formel weiterhin verarbeiten ?
Private Sub CommandButton4_Click()
'von Nepumuk
Set Auswahl = Selection
Dim objSheet As Worksheet
If IsDate(Range("u6").Value) Then
For Each objSheet In ThisWorkbook.Worksheets
If Left$(objSheet.Name, 3) = Left$(MonthName(Month(Range("u6").Value)), 3) Then _
objSheet.Select
Exit Sub
End If
Next
MsgBox "Tabelle nicht gefunden.", vbCritical, "Fehler"
Else
MsgBox "Kein gültiges Datum in Zelle U6.", vbCritical, "Fehler"
End If
End Sub
Ich hoffe, Ihr versteht mein Anliegen u. könnt mir helfen.
MfG Dirk