ich möchte in meiner Datei immer wieder neue Kategorien per Makro als Überschrift für eine Tabelle einfügen.
Problematisch ist, dass ich die bisherigen Codes (die im Netz zu haben sind) nicht auf meinen Bedarf angepasst bekommen hab.
Die Überschrift steht in Zeile 4.
Mit diesen Codes wollt ich die Adressen auslesen, kann aber nichts damit anfangen.
Sub Adressen_auslesen()
Dim EZ As Integer ' Nummer der ersten Zeile
Dim LZ As Integer ' Nummer der letzten Zeile
Dim ES As String ' Nummer der ersten Spalte
Dim LS As String ' Nummer der letzten Spalte
Dim s As String ' Adresse des markierten Bereichs
Dim x As String ' Adresse der letzten Zelle im markierten Bereich
s = Selection.Address
EZ = Range(s).Row
MsgBox ("Erste Zeile = " & EZ)
LZ = Range(s).Row + Range(s).Rows.Count - 1
MsgBox ("letzte Zeile = " & LZ)
ES = Range(s).Column
MsgBox ("erste Spalte = " & ES)
LS = Range(s).Column + Range(s).Columns.Count - 1
MsgBox ("letzte Spalte = " & LS)
MsgBox ("selktierte Adresse = " & s)
x = Selection(Selection.Count).Address
MsgBox ("letzte Zelle im" & Chr(13) & "markierten Bereich = " & Chr(13) & x)
End Sub
Wär euch für Hilfe echt dankbar.Dank und Gruß
A.