Hallo,
ich freue mich sehr über eine Antwort. Ich habe jetzt etwas unnötiges eingebaut, damit das gemacht wird was ich will:
' Übertragung Dicke Dichte FG MK wenn BA17=1
If Range("BA17").Value = 0 Then
Range("BC12") = Range("BA17").Value
Else
Set wkbZiel = GetObject("H:\......\In Arbeit_Messergebnis-Datenbank.xls")
[...]
Wenn der Wert in BA17 = 0 dann soll er einfach den Wert in Zelle BC12 schreiben, obwohl ich das ja eigentlich nicht brauch. Wenn der Wert in BA 17 = 1 ist, macht er mit der Else Bedingung weiter, welche für mich von interesse ist.
Ich habe mir so eine Krücke gebaut, dass ich das bekomme was ich eigentlich will :-). Ich bin halt kein VBA-Profi und mache das nur, um mir meine tägliche Arbeit mit dieser Datei zu erleichtern.
Das nächste Mal versuche ich im Forum wieder ausführlicher zu erklären was ich eigentlich will. Ich habe aber die Erfahrung gemacht, dass ein langer Text abschreckend wirkt.
Liebe Grüße
SaSc
|