Fehler bei Intersection und if
03.04.2017 12:14:25
Jonas
Seit ein paar Wochen arbeite ich nun an einer Excel Tabelle mit VBA Makros.
Das ganze funktioniert auch meistens so wie es soll nur in manchen Fällen bekomme ich einen _ Fehler bei diesem Code:
Sub MSG()
Dim Vorne As Integer
Dim Hint As Integer
Dim Ges As Integer
Dim Anzahl As Integer
Dim Sges As String
Set Zelle = ActiveCell.Offset(0, 0)
If Not Application.Intersect(ActiveCell, AuserKraft) Is Nothing Then
Ges = Range(Zelle.Address).Value
Sges = Range(Zelle.Address).Text
Anzahl = Len(Sges)
If Anzahl Dabei meckert er bei der Zeile
If Not Application.Intersect(ActiveCell, AuserKraft) Is Nothing Then
Und gibt den Fehler aus: Laufzeitfehler 5 Ungültiger Prozeduraufruf oder ungültiges Argument.
Das komische an der Sache ist das es manchmal funktioniert und manchmal nicht.
Zusatzinfo: Variablen die nicht Lokal definiert sind, sind Public und stehen weiter oben in meinem Code.