wie erhalte ich den Blattnamen in Zelle A3?
mfg walter
Private Sub Worksheet_Change(ByVal Target As Range)
Dim BlaNa As String, _
i As Integer, _
vorh As Boolean
If Target.Address <> "$B$1" Then Exit Sub
If Target.Value = "" Then Exit Sub
BlaNa = Target.Text
For i = 1 To Sheets.Count
If Sheets(i).Name = BlaNa Then
vorh = True
Exit For
End If
Next i
If vorh = True Then
MsgBox "Blatt '" & BlaNa & "' existiert bereits!"
Else
ActiveSheet.Name = BlaNa
End If
End Sub
Problemstellung
Wie kann ich Pfad, Datei- und Blattnamen der aktiven Arbeitsmappe ermitteln?
Problemstellung
Wie kann ich ermitteln, ob eine Blattname bereits vorhanden ist?
Problemstellung
Wenn ich ein Tabellenblatt mit Namen "Tabelle1" kopiere, wird für das kopierte Blatt im Projektexplorer der Entwicklungsumgebung der Name "Tabelle1" angelegt. Wie kann ich diesen Namen per VBA-Makro korrigieren?
Problemstellung
Der Name des Arbeitsblattes soll in einer Formel ermittelt werden. Die Formel soll sich bei Blattumbenennung aktualisieren.
Problemstellung
Wie kann ich für den aktuellen Monat Tages-Tabellenblätter mit dem jeweiligen Datum als Blattname erstellen?
Problemstellung
Wie kann ich die Tabellenblätter eine geschlossenen Arbeitsmappe in eine ListBox einer UserForm einlesen?
Problemstellung
Wie kann ich alle Arbeitsmappen- und die zugehörigen Tabellenblattnamen des aktuellen Verzeichnisses über eine MsgBox anzeigen lassen?
Problemstellung
Wie kann ich beim Öffnen einer Arbeitsmappe eine ListBox mit den vorhandenen Blattnamen mit Ausnahme der Blätter "Test" und "Muster" füllen. Bei Auswahl eines Blattes soll dieses auf Schaltflächendruck ausgewählt werden.