AW: Kopieren in anderes Blatt per VBA
26.07.2018 13:37:11
Christoph
Okay, hier der aufgezeichnete Programmcode:
"
Sub Daten_kopieren()
' Daten_kopieren Makro
' Tastenkombination: Strg+q
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle1").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("Ausgang").Select
Range("G2:G7").Select
Range("G7").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle1").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Ausgang").Select
Range("B8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle1").Select
Range("A3").Select
ActiveSheet.Paste
Sheets("Ausgang").Select
Range("G8:G16").Select
Range("G16").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle1").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Ausgang").Select
Range("B17").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle1").Select
Range("A4").Select
ActiveSheet.Paste
Sheets("Ausgang").Select
Range("G17:G22").Select
Range("G22").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle1").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("C14").Select
End Sub
"
In Spalte B stehen wie gesagt die Namen und die Werte in Spalte G. Ich habe das Makro nun aufgezeichnet, indem ich es an drei Beispielen selbst kopiert habe. Das Makro müsste halt erkenn, wenn der nächste Name beginnt und die zugehörigen Werte aus Spalte G automatisch eintragen.
Gruß
Christoph