Clever-Excel-Forum

Hallo zusammen,

ich will eine Arbeitsmappe mit drei bis zu 20 Tabellen. Es geht um Besonderheiten bestimmter Orte, die jeweils in einer Tabelle erfasst werden. Ich habe nun bei der ersten Vorlage, in der Zelle B2 "Ortsname" eingetragen. Hier soll der Ortsname stehen.

Nun zu meinem Problem: ich will, dass jede Tabelle jeweils den Ortsnamen als Tabellennamen hat. So wird die Auswertung am Ende viel leichter.

Ich habe in einem anderen Thread gelesen, dass man einen bestimmten Code eingeben, Makro erstellen muss.

Da ich ein ziemlicher Laie bin, komme ich nicht drauf, wie ich das überhaupt bewerkstelligen kann.

Also bräuchte ich Hilfe, und zwar für richtig, richtige Dummies.

Ich wäre sehr dankbar!

Vielen Dank!

(04.10.2017, 18:17)kaalio schrieb: [ -> ]Ich habe in einem anderen Thread gelesen, dass man einen bestimmten Code eingeben, Makro erstellen muss.

Versuche es mal mit diesem Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not IsEmpty(ActiveSheet.Cells(1, 1)) Then
ActiveSheet.Name = Cells(1, 1).Value
End If
End Sub

(04.10.2017, 18:17)kaalio schrieb: [ -> ]Nun zu meinem Problem: ich will, dass jede Tabelle jeweils den Ortsnamen als Tabellennamen hat. So wird die Auswertung am Ende viel leichter.

Moin!
Glaube mir, so wird es nicht leichter, sondern chaotisch!
Mache Dir eine vernünftige Datenbasis mit Datensätzen, wobei ein "Feld" (eine Spalte) den Ortsnamen enthält.
Dann ist die Auswertung tatsächlich ein Klacks.

Gruß Ralf

Hey und vielen Dank für die Antwort.

@Ralf: es wäre nicht so, wenn mehr als eine Person in dem Projekt arbeitet

Zitat:Moin!
Glaube mir, so wird es nicht leichter, sondern chaotisch!
Mache Dir eine vernünftige Datenbasis mit Datensätzen, wobei ein "Feld" (eine Spalte) den Ortsnamen enthält.
Dann ist die Auswertung tatsächlich ein Klacks.

(04.10.2017, 18:37)coemm schrieb: [ -> ]Versuche es mal mit diesem Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not IsEmpty(ActiveSheet.Cells(1, 1)) Then
ActiveSheet.Name = Cells(1, 1).Value
End If
End Sub

Das habe ich auch gesehen. Weiß leider nur nicht, wie es geht

Hallo ?,

ich habe kein excel für mac.

Entwicklertools, Code anzeigen (alternativ mit ALT+F11 öffnen)
dann den Code in "Diese Arbeitsmappe" einfügen