VBA -Hilfe
09.10.2020 14:17:21
Horst
Folgendes Problem:
Habe in einer Tabelle bereits alle relevanten Daten mittels Excelfunktionsvorrat (sverweis etc.) ermittelt.
Die Tabelle stellt auch nur einen kleinen Ausschnitt dar. Die noch fehlenden Kontennummern in Spalte "GKonto"
sollen nun mit Hilfe eines Makro, mit den zuvor ermittelten Kontennummern in Spalte A (Kursiv) ergänzt werden.
Das hierfür erstellte Makro läuft ohne Fehlermeldung durch - aber es passiert auch nichts . Bleibt auf Zelle B2 stehen.
Was mache ich falsch? Kann mir bitte jemand helfen -
MfG Horst
Anlagen (Konnte leider kein Blatt hochladen)
Tabelleblatt
2
1100 2
1 -10.084,03 1100
1 -632,25 1100
1 -316,12 1100
1 -2.370,93 1100
0001 2
2 0,00
1180 2
2
1200 2
2 0,00
1210 2
1 -490,88 1210
1 -2.016,95 1210
1 -2.400,00 1210
1360 2
2 0,00
1307 2
2 0,00
1300 2
1 -4.929,80 1300
1800 2
2 0,00
1810 2
1 -53.475,72 1810
1 -1.950,00 1810
Programm:
Sub KontosucheTest()
'Fehlende Konten in EÖB- _
vervollständigen
Dim z As Integer 'Konto Zeilenzähler
Dim i As Integer 'Zeilenzähler für Kz
Sheets("Test").Select
Cells(2, 1).Select
z = 1 'Schleife für Ermittlung der _
relevanten Konten
Do While Cells(z, 1) > 0 'kein "", da Spalte mit Formeln belegt _
i = z + 1 ' wenn Bedingung erfüllt, dann _
Zeilenzähler = Kontenzeilenzähler setzen
Cells(i, 2).Select
Do While Cells(i, 2) = 1 ' 2. Schleife für den Kopiervorgang
Cells(z, 1) = Cells(i, 4)
i = i + 1
Loop
z = i
Loop
End Sub