habe mir am ende stehendes Makro aufgezeichnet.
Ich habe folgendes vor.
Vor dem ausführen mache ich folgendes:
1. Ich kopiere ich einen Text in die erste freie Zeile in Tabelle 1 , in Spalte A und B.
2. ich kopiere einen Text mit beliebig vielen Zeilen in Tabelle2!A:C
3. ich kopiere einen Text mit genauso vielen Zeilen wie in Tabelle2 in Tabelle3!A:D
Das Makro soll nun folgendes machen
1. Den Inhalt von Tabelle2 Spalte B ans Ende von Tabelle1 Spalte C kopieren. Ich habe mich im Makro auf die selektierten Zellen festgelegt, aber wie gesagt, die Anzahl variiert jedes mal, genauso wie die Zeile wo es eingefügt werden soll, mit jedem Ausführen sich nach unten verschiebt.
2. Den Inhalt von Tabelle3 Spalte E ans Ende von Tabelle1 Spalte D kopieren und hierbei die Werte einfügen. Dabei selbes Problem wie in Punkt 1.
Hierbei ist es auch so, dass wenn ich z.B. 20 Zeilen eingefügt habe, ab Zeile 21 bis Zeile 1000 durch eine Formel #WERT! ausgegeben wird und nur in den ersten 20 Zeilen eine Zahl, mir geht es natürlich nur um die Zahlen.
3. Den zuvor eingefügte Inhalt in Tabelle1 Spalten A und B bis in die nun letzte Zeile mit Inhalt herunterkopieren. Hierbei natürlich auch das Problem, dass sich die Zeile in der ich das eingefüge nach jedem Ausführen des Makros nach unten verschiebt.
4. Tabelle 1 nach Spalte D nach Alter aufsteigend sortieren. Auch hier ist es natürlich so, dass es nach jedem Ausführen mehr als die 550 Zeilen im Makro werden.
5. die Inhalte in Tabelle2!A:C und Tabelle3!A:D löschen, auch (auch wenn es bislang im Makro fehlt) die Bilder, die mit in Tabelle3 Spalte B kopiert wurden.
Ich weiß es ist vieles zu ändern, aber bitte helft mir
Sub Makro4()
' Makro4 Makro
' Tastenkombination: Strg+i
Sheets("Tabelle2").Select
Selection.Copy
Sheets("Tabelle1").Select
ActiveSheet.Paste
Sheets("Tabelle3").Select
Selection.Copy
Sheets("Tabelle1").Select
Range("D538").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A538:B538").Select
Selection.Copy
Range("A538:B550").Select
ActiveSheet.Paste
Sheets("Tabelle2").Select
Columns("A:C").Select
Selection.ClearContents
Sheets("Tabelle3").Select
Columns("A:D").Select
Selection.ClearContents
Sheets("Tabelle1").Select
Range("A1:D550").Select
Range("A538").Activate
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("D1:D550") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Tabelle1").Sort
.SetRange Range("A1:D550")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
.SortMethod = xlPinYin
.Apply
End With
End Sub
LGJenny