VBA Nicht angrenzende Zellen kopieren
04.08.2020 23:00:52
Peter
ich bin auf der Suche nach einer eleganteren Lösung um nicht angrenzende Zellen paaralel in _
Zwei Listen zu schreiben. Zwei Lösungen habe ich gefunden, die zwar funktionieren aber eher behelfsmässig wirken.
Sub We_Save()
With Tabelle1
If .Range("E6").Value = Empty Then
MsgBox "Bitte Rechnungsnummer Vergeben"
Exit Sub
End If
BilRow = .Range("D99999").End(xlUp).Row + 1 'erste verfügbare Zeile
buchrow = Tabelle3.Range("F999999").End(xlUp).Row + 1 ' erste verfügbare Zeile
Tabelle3.Range("C" & buchrow).Value = conBil 'Konstante eintragen
'Mapping in Zeile 12, Daten in letzte Zeile Tabelle1 schreiben
For BilCol = 4 To 9
Cells(BilRow, BilCol).Value = .Range(.Cells(12, BilCol).Value).Value
Next BilCol
' Ab hier meine Lösungsvariante A), oder alternativ B) liese sich die for Schleife für tabelle3 _
neu durchlaufen erledigt zwar die Aufgabe fühlt sich aber falsch an.
.Range("D" & BilRow & ":I" & BilRow).Copy
Tabelle3.Range("F" & buchrow).PasteSpecial xlPasteValues
End With
End Sub