Zelle einfügen VBA
06.03.2014 11:56:41
AndreG
Ich programmiere gerade erstmalig etwas größeres in VBA und komme generell ganz gut voran.
Aktuell stehe ich lediglich vor einer simplen Problematik:
Ich habe eine Schleife in der ich eine Tabelle in der Quellmappe durchgehe (nachfolgende als Quelle bezeichnet) und anschließend Werte aus dieser Tabelle (Quelle) in eine andere Tabelle/Mappe (Ziel) kopiere.
Hier habe ich folgenden TeilCode:
For lQRow = 4 To lLastQRow
'Prüfen der Werte aus der Kalkulation und Übertragen der entsprechenden Werte
If wsQ.Cells(lQRow, 1) = "A" And _
wsQ.Cells(lQRow, 3) "" Then
wsZ.Cells(lNextZRow, 5) = wsQ.Cells(lQRow, 3) 'Übertragen der Bezeichnungen
wsZ.Cells(lNextZRow, 13) = wsQ.Cells(lQRow, 6) 'Übertragen der Einsatzmenge
End If
lNextZRow = lNextZRow + 1
lCnt = lCnt + 1
End If
Ich habe bisher zahlreiche Foren durchsucht, konnte aber keine sinnige, mir hilfreiche Lösung finden die dann nicht die gesamte Formatierung zerstört hat.
Die Formatierung der neuen Zelle sollte im idealfall die Formatierung der jeweils aktuelle Zelle übernehmen.