Hallo Experten,
Mein Makro (teilweise):
If A = 0 Then
KeineNeuenWerte = MsgBox("Es wurden keine neuen Werte gefunden!", vbOKOnly, "ALLE WERTE VORHANDEN")
Else
NeueWerteGefunden = MsgBox("Es wurden " & A & " neue Werte gefunden!" & vbCr & "Die Liste wird nach dem schliessen dieses Fensters angezeigt.", vbOKOnly, "NEUE WERTE")
Admin.Hide
Sheets("Englisch und Landreferenz").Range("B1").Select
Selection.End(xlDown).Offset(1, 0).Select
.........................
Else
End If
End Sub
So weit so gut.
Wat das Makro tut:
Es sucht nach neuen Einträgen, fügt diese in eine Liste ein. Anschluss kommen die Meldungen, ob was gefunden wurde, und wenn ja, soll die Liste zum Bearbeiten angezeigt werden, dann werden manuell die Übersetzungen eingefügt, und dann gehts weiter... (So stell ich mir das umindest vor)
Also:
Es sollte nun so sein, dass das Makro bei der gepunkteten Linie so lange anhält, bis man die Einträge in der angezeigten Tabelle erstellt hat. Dann sollte das Makro weiter laufen.
Kann man das ausschliesslich mit einem Formular lösen, das einen "Fertig" Button enthält? Wird aber das Formular angezeigt, kann man auf der Tabelle nicht arbeiten (Ganz dunkel kann ich mich da aber an eine Option erinnern, die das ermöglicht)
Danke für die Tipps!
Gruss Rolf