VBA Zeile zum einfügen abhängig vom Wert
11.08.2022 10:05:39
David
Mit meinem bisherigen Code wurden Daten von einem Workbook ins andere kopiert und bei A1 eingefügt, um dort verarbeitet zu werden. Nun würde ich den Code gerne so umschreiben, dass die Daten nicht immer bei A1 eingefügt werden, sondern jede Zeile einzeln anhand ihres Wertes in der Spalte AQ eingefügt wird. Das bedeutet wenn z.B 7 Zeilen kopiert werden, diese sich beim einfügen automatisch sortieren und in der entsprechenden Zeile eingefügt werden. Beispiel: Wenn in Spalte AQ 1 steht dann in Zeile 1 Wenn in Spalte AQ 6 steht dann in Zeile 6 etc. Wenn also nur die Nummern 1 und 4 vorhanden waren, dann soll auch nur in den Zeilen 1 und 4 etwas eingefügt werden.
Falls ich etwas ungenau formuliert haben sollte, stehe ich jederzeit für Nachfragen zur Verfügung.
Ich danke euch bereits im Voraus für euren selbstlosen Einsatz.
Meinen bisherigen Code für diesen Vorgang habe ich untenstehend angefügt.
Sub SG1Stundenplan()
' SG1Stundenplan
Sheets("Gruppenplanung").Select
Columns.EntireColumn.Hidden = False
Range("A2").Select
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
ActiveSheet.Range("A2").AutoFilter Field:=19, Criteria1:="SG 1", Operator:=xlAnd
Rows("3:100").Select
Selection.Copy
Workbooks.Open "R:\BINplus\Langenthal\Stammgruppen\Stammgruppe 1\Stammgruppe 1_Unterrichtspläne Test.xlsm"
Worksheets("Stammdaten").Range("A1").PasteSpecial Paste:=xlPasteValues
Workbooks("Stammgruppe 1_Unterrichtspläne Test.xlsm").Close SaveChanges:=True
End Sub