letzte Spalte irritiert
01.10.2019 11:48:20
Nadja
ich hab ein Problem und benötige (dringend) Hilfe. Ich würde mich freuen, wenn mir jemand helfen könnte.
Ich habe mehrere Tabellen.
Per Makro kopiere ich immer bestimmte Zellen aus jeder Tabelle und füge sie in die letzte Tabelle "BSP" ab Spalte B nebeneinander ein
Ich habe hier im Forum ein Makro gefunden und für mich optimiert
Sub Einfügen ()
Dim x&
For x = 1 To Worksheets.Count
With Worksheets(x)
.Range("B2:B24").Copy Destination:=Sheets("BSP").Cells(2, x + 1)
End With
Next
Dim y&
For y = 1 To Worksheets.Count
With Worksheets(y)
.Range("C2:C24").Copy Destination:=Sheets("BSP ").Cells(27, y + 1)
End With
Next
Dim z&
For z = 1 To Worksheets.Count
With Worksheets(z)
.Range("D2:D24").Copy Destination:=Sheets("BSP ").Cells(52, z + 1)
End With
Next
End Sub
Das funktioniert alles, jedoch macht mir die letzte Spalte Probleme. Ich weiß nicht woher die Werte kommen. Die Werte der vorletzten Spalte sind immer die Werte aus der letzten Tabelle.
Ich hatte die Idee per Makro immer die letzte Spalte mit Inhalt zu löschen.
Habe hier auch ein Code dafür gefunden:
Sub letzte_Spalte()
Columns(ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column).Delete
End Sub
Damit wird aber immer die vorletzte Spalte gelöscht (die Spalte mit den Werten der letzten Tabelle und nicht die Spalte wo ich nicht weiß woher die Werte kommen)
Ich hoffe ich habe mein Problem ausführlich erklärt und mir kann jemand helfen.
Beispielmappe ist diesmal auch dabei
Danke im Voraus
https://www.herber.de/bbs/user/132307.xlsx
Viele Grüße,
Nadja