Excel ignoriert Variablendeklaration

Dim zeilekontakte, spaltekontakte As Integer Dim rngzelle As Range For Each rngzelle In tb02_Kunde.UsedRange If tb02_Kunde.Cells(rngzelle.Row, rngzelle.Column).Value = "Kontakte" And tb02_Kunde.Cells(rngzelle.Row + 2, rngzelle.Column).Value = "Datum" Then zeilekontakte = rngzelle.Row + 3 '+3 da Ergebnisse erst 3 Zeilen später anfangen spaltekontakte = rngzelle.Column If target.Row > zeilekontakte And target.Column >= spaltekontakte And Not IsEmpty(target.Value) Then Call kontakt_big(target) GoTo ausgang End If End If Next

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi

VBA kennt keine Gruppendeklaration für mehrere Variablen gleichzeitig
jeder Variable muss der Typ einzeln zugewiesen werden:

Dim zeilekontakte, spaltekontakte As Integer

hier wird nur spaltenkontakte als Integer deklariert, zeilenkontakte hat keinen Variablentyp und wird daher Variant.
man kann schon mehrere Variablen in einer Zeile deklarieren, aber du musst jeder den Typ zuweisen, falls sie nicht variant sein soll:

Dim zeilekontakte as Integer, spaltekontakte As Integer

btw, ich würde dir empfehlen, immer LONG statt INTEGER zu verwenden.
Auf modernen Rechnern hat INTEGER keine Vorteile (ist also nicht schneller), aber trotzdem den kleineren Wertebereich, der bei Zeilen schnell überschritten werden kann.

wenn das ein BeforeDoubleClick-Eventmakro ist, dann ist der Typ von target RANGE

wenn du Variablen mit byRef bzw nicht mit byVal übergibst, müssen die Typen für die Übergabe exakt gleich sein.
mit byVal hingegen ist eine Konvertierung möglich (dh Wenn die Funktion Long hat, kann sie eine Integervariable aufnehmen und umgekehrt auch, sofern der Zahlenraum eingehalten wird.)

Gruß Daniel

Dim ZeileKontakte As Long, SpalteKontakte As Long Dim rngZelle As Range For Each rngZelle In tb02_Kunde.UsedRange If rngZelle = "Kontakte" And rngZelle.Offset(2).Value = "Datum" Then ZeileKontakte = rngZelle.Row + 3 '+3 da Ergebnisse erst 3 Zeilen später anfangen SpalteKontakte = rngZelle.Column If Target.Row > ZeileKontakte And Target.Column >= SpalteKontakte And Not IsEmpty(Target.Value) Then Call kontakt_big(Target) GoTo ausgang End If End If Next

Beliebteste Forumthreads (12 Monate)

Excel ignoriert Variablendeklaration

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel ignoriert Variablendeklaration

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread