Ich bastele gerade an folgende Code:
Option Explicit
Public istkorrekt As Boolean
Sub Import()
istkorrekt = True
Import_Date
If istkorrekt = False Then Exit Sub
compare
End Sub
Function Import_Date
If tb.Worksheets("Load").Cells(j, 8).Value "1" Then
istkorrekt = False
Exit Function
End If
End Function
Wenn also bei der Berechnung in der Funktion Import_Date der booleschen Variable der Wert "false"
zugewiesen wird, soll die Funktion verlassen und ins Modul Import zurückgesprungen werden.
Dann soll durch die Abfrage ein Aufruf der Funktion "compare" verhindert werden.
Leider wird der Wert TRUE nicht mit FALSE überschrieben, obwohl es sich hier um eine globale Variable handelt.
Wer weiss von Euch Rat?
Danke und viele Grüsse,
Gromminger