Zellenwert nach Abgleich in Monatsliste übernehmen
07.11.2006 09:56:03
Michael
Ich bin nun noch auf der Suche nach zwei Makrolösungen zu den folgenden Problemen. Leider muss ich da schon im Ansatz aufgeben, vor allem nach dem Hinweis, dass meine Makros immer extrem kompliziert sind, weil ich nur mit 'Makro Aufzeichnen + Google + Foren + Copy+Paste' arbeite. Ich habe versucht, die Aufgaben so makroartig wie möglich zu formulieren:
In File Ursprung.xls
Range("G56").Select.Copy 'ist eine Rechnungsumme
Goto Datei C:\Ziel.xls
Schaue in Feld E15
if leer
ActiveSheet.Paste
else goto E16 usw
...
if E46 voll, then Meldung
"Blatt ist voll" goto abbruch
Das Ganze mit noch zwei anderen Feldern
Wenn Eintrag Rechnungssumme in Feld E15, dann MsgBox "Wie ist die Rechnungsnummer?"
Eintrag Rechnungsnummer übernehmen in Feld B15, sonst
Wenn Eintrag Rechnungssumme in Feld E16, B16 = B15+1
Wenn Eintrag Rechnungssumme in Feld E17, B17 = B16+1
usw.
Show Eintrag in Feld A der aktuellen Zeile in PopUp und frage:
"Ist die Debitorennummer korrekt?"
If ja, goto end else
MsgBox "Geben Sie die Debitorennummer ein:"
Eintrag übernehmen in Feld A plus Zeilennummer
Variante:
File Ursprung2.xls
Range("G56").Select 'ist eine Kostenstelle
Goto File Ziel2.xls
Check Zeile 3, Spalten A,C,E,G,I,K,M
If G56 = 3A or 3C usw. übernimm den Spaltenbuchstaben als Wert SPALTE else
Fülle G56 in erste leeres Feld der oberen Reihe
If alles voll, MsgBox "Alles voll" goto abbruch
In SPALTE
Sverweis Datum mit Zelle XX von Ursprung2.xls
SPALTE + gefundene Zeile = Zielzelle für Rechnungssumme aus Zelle YY in File Ursprung2.xls
Wenn nicht leer msgBox "Bereits Eintrag. Zusammenfügen?"
If ja, Werte zusammenzählen, if nein, goto abbruch
Ist die Formulierung der Aufgaben verständlich? Geht sowas?