Leerzeilen erstellen
15.11.2018 12:44:39
Tom
in beigefügter Arbeitsmappe sollen Zeilen tranferiert werden.
Habe ich mit Hilfe dieses Forums auch gut hinbekommen.
Nun möchte ich aber noch jeweils Leerzeilen per VBA einfügen, nur mir fehlt der passende Befehl dazu.
Mit diesem Befehl werden die 6 Spalten D-I tranferiert. Was muss ich eingeben, damit zwischen den Zeilen eine Leerzeile eingefügt wird?
https://www.herber.de/bbs/user/125404.xlsm
Sub Transferieren_Buseinteilung()
Sheets("Übersicht").Select
Range("c5:i500").Select
Selection.ClearContents
Dim wksSource As Worksheet, wksTarget As Worksheet
Dim varRow As Variant, varCol As Variant
Set wksSource = Worksheets("Einzelaufstellung")
Set wksTarget = Worksheets("Übersicht")
Dim intRow As Integer
intRow = 3
Do Until IsEmpty(wksSource.Cells(intRow, 3))
varRow = Application.Match(wksSource.Cells(intRow, 2), wksTarget.Columns(2), 0)
If Not IsError(varRow) Then
varCol = Application.Match(wksSource.Cells(intRow, 3), wksTarget.Rows(2), 0) ' _
wksTarget.Rows(2)=Zeile 2, Tabelle2
If Not IsError(varCol) Then
wksTarget.Cells(varRow, varCol) = wksSource.Cells(intRow, 4) & " " & vbLf & _
wksSource.Cells(intRow, 5) & " " & vbLf & wksSource.Cells(intRow, 6) & " " & vbLf & _
wksSource.Cells(intRow, 7) & " " & vbLf & wksSource.Cells(intRow, 8) & " " & vbLf & wksSource.Cells(intRow, 9) 'Fahrten 1-6
End If
End If
intRow = intRow + 1
Loop
Range("c2").Select
End Sub
Danke vorab
TOM
Anzeige