Mein Tabellenblatt (Worksheet) "1997" hat einen belegten Bereich (Range) von A1 bis A500. Die Zellen in A1 bis A500 haben nicht immer einen Zellen-Namen, wenn aber dann möchte diesen Zellen-Name verwenden und in H1 daraus einen Zellenname erzeugen mit Präfix und einem Suffix versehen. Analog dann für A2 => H2, .... A100 => H100, immer dann wenn im Bereich A1 bis A500 einen Zellen-Name vorhanden ist.
Beispiel:
Spalte A1 = Zellen-Name 2158 ==> dann in Spalte H1 den Zellen-Name: Präfix_ & 2158 & _suffix ==>(präfix_2158_suffix)
Spalte A4 = Zellen-Name 2222 ==> dann in Spalte H4 den Zellen-Name: Präfix_ & 2222 & _suffix ==>(präfix_2222_suffix)
usw... bis A500

Genau die u.a. Zeile beim Makro (A1......) , wie ich aus A1 den Name in H1 (etc.) erzeugen kann, bekomme ich nicht hin. Wahrscheinlich simpel, aber nicht für mich. Kann mir da jemand auf die Sprünge helfen. Das wäre super nett.

Dim wb As Workbook
Dim wks As Worksheet
Dim SpalteA As Range
Dim meineZelle As Range
Dim Praefix_Name_Zelle As String
Dim Suffix_Name_Zelle As String
Praefix_Name_Zelle = "präfix_" 'dann entsprechend belegen
Suffix_Name_Zelle = "_suffix" 'dann entsprechend belegen
Set wb = ThisWorkbook
Set wks = wb.Worksheets("1997") 'dann entsprechend anpassen
Set SpalteA = wks.Range("A1:A500") 'dann entsprechend anpassen

For Each meineZelle In SpalteA ''''''''''''''''''''für jede Zeile von A1:A500 entsprechend nach H1:H500
If meineZelle.Value > "" Then ?????
aus A1 Zellen-Name übernehmen und in H1 präfix_A1-Zellen-Name_suffix
End If
Next meineZelle