Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
20.10.2025 10:29:26
Userform Multipage - Page auswählen
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
184to188
184to188
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

fehlermeldung typen unverträglich

Forumthread: fehlermeldung typen unverträglich

fehlermeldung typen unverträglich
01.12.2002 15:39:49
ralf
Hallo Forum,

ist für euch sicher nicht schwer. Warum kommt hier die Fehlermeldung Typen unverträglich. Habe test als string deklariert und die zellen a1-a4 sind als text formatiert.

Kann mir einer helfen?

Vielen Dank schon mal.

dim test as string
if test <> Worksheets("tabelle3").Range("A1:A4") Then
test = MsgBox("Bezeichnung falsch!", vbOKOnly, "Fehler")
Exit Sub
End If

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: fehlermeldung typen unverträglich
01.12.2002 15:46:27
Micha*
Du hast versucht einer normalen Variable ein Array zuzuweisen.
Re: fehlermeldung typen unverträglich
01.12.2002 15:48:09
Volker Croll
Hallo Ralf,

womit soll den "Test" verglichen werden? Mit A1 oder A2 oder A3 oder A4 oder Allen? Soll das heissen, dass in A1, A2, A3 und A4 das gleiche stehen muss?

Verwirrte Gruesse, Volker

Re: fehlermeldung typen unverträglich
01.12.2002 15:52:14
Ralf
Hallo Volker,

es soll mit allen vier zellen verglichen werden.

Gruss
Ralf

Anzeige
Re: fehlermeldung typen unverträglich
01.12.2002 16:18:36
Micha*
probiers mal so


Dim test As string
Dim Zelle As Range

For Each Zelle In Worksheets("tabelle3").Range("A1:A4").Cells
If Zelle.Value <> test Then
MsgBox("Bezeichnung in Zelle " & Zelle.Adress & " falsch!", vbOKOnly, "Fehler")
End If
Next

Re: fehlermeldung typen unverträglich
01.12.2002 17:59:54
M. Kuhn
Moin Ralf,

falls die Lösung noch fehlt:

Die Zeile:

if test <> Worksheets("tabelle3").Range("A1:A4") Then

ändern in:

With Worksheets("Tabelle 3")

If test <> Cells(1, 1) And test <> Cells(1, 2) And test <> Cells(1, 3) And test <> Cells(1, 4) Then
'mach dies
Else
'mach das
End If
End With

MfG Mario

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige