Hallo,
ich habe folgenden VBA-Code gefunden:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range(„a1“)) Is Nothing Then
Range(„a2“).Select
End If
If Target = Range(„A1“) Then ActiveSheet.Name = Target
End Sub
leider weiss ich nicht wohin ich diesen Code schreiben soll, also ich meine in ein Modul oder als Code in die Arbeitsmappe.
Hab beides probiert, funktioniert aber nicht.
Ich hoffe auf eure Hilfe.
Am liebsten wär mir allerdings ein Makro,welches ich einfach in ein Modul schreiben kann.
Wolfgang
Hallo Wolfgang,
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range(„a1“)) Is Nothing Then
Range(„a2“).Select
End If
If Target = Range(„A1“) Then ActiveSheet.Name = Target
End Sub
leider weiss ich nicht wohin ich diesen Code schreiben soll,
also ich meine in ein Modul oder als Code in die Arbeitsmappe.
Hab beides probiert, funktioniert aber nicht.
der Code ist gedacht für das Modul des Tabellenblattes.
Am liebsten wär mir allerdings ein Makro,welches ich einfach
in ein Modul schreiben kann.
Was soll das Makro tun? WElche Zelle liefert den Namen, eine feste, die active, ?
Bei einer festen zelle bietet sich doch ein Code wie oben an.
Gruß
Reinhard
Hallo Reinhard !
der Code ist gedacht für das Modul des Tabellenblattes.
das hab ich verstanden und probiert, es funktioniert
Besser wäre allerdings ein Makro, da die Tabelle erst über ein Makro eingefügt werden soll und anschließend nachdem ebenfalls über ein Makro aus einer Mustertabelle etwas hinein kopiert wurde der Name geändert werden soll.
Es soll möglichst viel automatisiert ablaufen, da der Kollege der dies ausführt wenig Excelkenntnisse hat.
Was soll das Makro tun? WElche Zelle liefert den Namen, eine
feste, die active, ?
die Zelle ist eine feste und soll den Namen liefern (eine sich immer wieder ändernde Jahreszahl die vorher in eine Mustertabelle eingetragen wird)
Gruß
Wolfgang
Hallo Wolfgang,
Besser wäre allerdings ein Makro, da die Tabelle erst über ein
Makro eingefügt werden soll und anschließend nachdem ebenfalls
über ein Makro aus einer Mustertabelle etwas hinein
kopiert wurde der Name geändert werden soll.
Es soll möglichst viel automatisiert ablaufen, da der Kollege
der dies ausführt wenig Excelkenntnisse hat.
Durch den Ausgangscode wäre mehr automatisiert, er bräuchte kein Makro mehr zu starten.
Was soll das Makro tun? WElche Zelle liefert den Namen, eine
feste, die active, ?
die Zelle ist eine feste und soll den Namen liefern (eine sich
immer wieder ändernde Jahreszahl die vorher in eine
Mustertabelle eingetragen wird)
Sub benennen()
If Range(„F27“).Value „“ Then ActiveSheet.Name = Range(„F27“).Value
End Sub
Da wird jetzt nur überprüft ob die Zelle leer ist, obs diesen Blattnamen schon gibt nicht !
mfG
Reinhard
Hallo Reinhard,
ich danke Dir, genau das hab ich gesucht.
Gruß
Wolfgang