Ich habe mir folgendes Makro gebastelt
Dies läuft auch soweit
Ich möchte nun der Variablen "Spalte" folgendes zuweisen
Spalte von der Aktiven Zelle im Arbeitsblatt "Qualifikation"
Arbeitsblatt "Pool" ist aktiv
Für ListObjects("T25_1").Name möchte ich eine Variable setzen
die den Namen(T25_1") aus der Zelle (Spalte , ez) holt
Spalte und ez sind Variablen
Ich hoffe die Erklärung ist verständlich
Sub Makro10()
Dim strTablename As String
Dim ez As String
Dim Spalte As Integer
ez = 8
Spalte = 1
Sheets("Pool").Select
Dim lngLetzteZeile As Long
With ActiveSheet.Columns(Spalte)
lngLetzteZeile = .Find(What:="*", _
After:=.Cells(1), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
End With
With ActiveSheet
strTablename = .ListObjects("T25_1").Name
.ListObjects(strTablename).Unlist
ActiveSheet.ListObjects.Add(xlSrcRange, Range(.Cells(ez, Spalte), .Cells(lngLetzteZeile, _
Spalte)), , xlYes).Name = _
strTablename
End With
End Sub
Gruß Christian