VBA Code
13.07.2020 16:15:29
Hris
ich möchte gerne meinen VBA Code erweitern.
Bisher habe ich es Beispielhaft so gemacht:
If Code1 = True Then
Workbooks.Open Filename:="Test"
Workbooks("Test").Worksheets("Tabelle1").Range("A1:D1").Copy
Workbooks("Ziel").Worksheets("Tabelle1").Range("A1").Cells(65536, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Funktioniert an sich sehr zuverlässig es ensteht nur folgendes Problem in meiner Datenbank die ich versuche zu erstellen:
Z.Bsp.
GELB / GELB / GELB / BLAU / GELB
BLAU / BLAU / BLAU / LEER / BLAU
soll aber so werden
GELB / GELB / GELB / LEER / GELB
BLAU / BLAU / BLAU / BLAU / BLAU
Ich hoffe das ist verständlich.
als zweites gibt es auch sachen, wo von einer anderen vorlage ein anderer wert aber in dieselbe zeile in ein bisher leergebliebenes feld kopieren. keine ahnung wie ich das programmieren soll.
Ich vereinfache das nochmal.
1. Suche nach "X" in Datei "Ziel"
2. Ist "X" wahr füge nur in die leeren felder ein
3.ist "X" falsch füge alles in die nächste komplett leere zeile ein