Zusammenfügen von Tabellen
13.05.2009 11:48:22
Tabellen
ich wollte mir fürs Zusammenkopieren von Tabellen innerhalb einer Mappe ein Makro schreiben.
Meine Mappe hat entweder 12 oder 72 Tabellen, welche alle gleich aufgebaut sind.
Die zu kopierenden Werte befinden sich in den Zellen B15-B27.
Kopiert werden sollen die Werte in eine neue Tabelle (Nummer 13 bzw 73) in fortlaufenden Spalten (B15-B27,C15-C27,usw.)
Mein Gedanke war, dies über eine "for-Schleife" zu erledigen, meine Programmierversuche dazu:
Sub Kopieren()
Dim iMax As Integer
Dim Ibl As Integer
Dim ibl2 As Integer
Application.ScreenUpdating = False
iMax = ThisWorkbook.Sheets.Count
For Ibl = 1 To iMax
Range("B15:B27").Select
Selection.Copy
Sheets("iMax").Select Hier zeigt der Debugger einen Fehler
Range("A11").Select
ActiveSheet.Paste
Next Ibl
End Sub
Über Hilfe würde ich mich sehr freuen.
Grüße Manuel