ich habe hier oft hilfreiche Tipps gefunden um ein Makro zu schreiben, doch nun stoße ich auf Grenzen bezüglich der Suchfunktion, daher muss ich direkt fragen.
Ich möchte eine Tabelle anders anordnen, und würde das gern per Makro machen, nach der _ Aufzeichnung wiederholt er jedoch nur die Schritte, die ich ihm gezeigt habe, er soll es aber für den Rest der Tabelle machen, wie erkläre ich ihm das? Hier das Makro per Aufzeichnung:
Sub Makro5()
' Makro5 Makro
' Tastenkombination: Strg+s
Sheets("Tabelle1").Select
Range("B1:B2").Select
Selection.Copy
Sheets("Tabelle6").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("C2").Select
Sheets("Tabelle1").Select
Range("A3:A16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle6").Select
ActiveSheet.Paste
Range("D2").Select
Sheets("Tabelle1").Select
Range("B3:B16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle6").Select
ActiveSheet.Paste
Range("A16").Select
Sheets("Tabelle1").Select
Range("C1:C2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle6").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("C16").Select
Sheets("Tabelle1").Select
Range("A3:A16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle6").Select
ActiveSheet.Paste
Range("D16").Select
Sheets("Tabelle1").Select
Range("C3:C16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle6").Select
ActiveSheet.Paste
End Sub
Vielen Dank im Voraus