Makro um Daten auf anderes Arbeitsblatt übertragen
21.11.2023 18:43:59
Dirk Reinink
Im Arbeitsblatt "Teilnahmedaten" gibt es eine Tabelle in der Kursleiter Daten von Teilnehmern eintragen, frei geschrieben bzw. per Dropdown-Menü. Um diese Daten in ein anderes Programm zu importieren, brauche ich ein neues, sauberes Arbeitsblatt "Übertragung in Seminarmanager". Dort dürfen weder Formeln noch Leerfelder (Excel hinterlässt wohl auch nach dem Löschen von Inhalten in den Feldern Spuren) vorhanden sein. Jetzt könnte ich das natürlich per strg+c machen, aber ich will das für die Kollegen automatisieren. Ich möchte, dass alle Daten übernommen werden, wenn die Spalte "Name" einen Wert hat. Bis jetzt habe ich folgendes Makro aufgezeichnet:
Sub Uebertragung()
'
' Uebertragung Makro
'
' Tastenkombination: Strg+q
'
Sheets.Add After:=ActiveSheet
Sheets("Tabelle1").Select
Sheets("Tabelle1").Name = "Tabelle1"
Sheets("Tabelle1").Select
Sheets("Tabelle1").Name = "Übertragung in Seminarmanager"
Sheets("Listenelemente").Select
Range("A14:H14").Select
Selection.Copy
Sheets("Übertragung in Seminarmanager").Select
ActiveSheet.Paste
Range("E9").Select
Sheets("Teilnahmedaten").Select
Range("A15:B29").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Übertragung in Seminarmanager").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Teilnahmedaten").Select
Range("D15:H29").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Übertragung in Seminarmanager").Select
Range("C2").Select
ActiveSheet.Paste
Sheets("Teilnahmedaten").Select
Range("I15:I29").Select
Application.CutCopyMode = False
Sheets("Teilnahmedaten").Select
Range("D15:H29").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Übertragung in Seminarmanager").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Teilnahmedaten").Select
Range("I15:I29").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Übertragung in Seminarmanager").Select
Range("H2").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("H25").Select
End Sub
Hier werden bestimmte Felder abgefragt. Das passt natürlich nicht. Was muss ich also tun?