0
Ich versuche, mehr "objektorientierte" in meinem VBA-Code. Ich habe jedoch Probleme, Variablen an Funktionen zu übergeben. Hier bekomme ich eine ungültige Qualifier-Fehlermeldung auf der IsEmpty
-Funktion.Aufruf einer Funktion von einem Sub in VBA - Qualifier Fehler
Wie kann ich meinen Code korrigieren?
Sub test_too_much_data()
If toomuchdata("Data input", "B1018") = False Then
MsgBox ("Sorry, the tool can only accomodate 1000 rows.")
Exit Sub
End If
End Sub
Function toomuchdata(sheet As String, range As Variant) As Boolean
toomuchdata = IsEmpty(Sheets("String")).range(range)
End Function
Vielen Dank!
haben Sie den Code in meiner Antwort unten getestet? irgendeine Anregung ? –