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
Anzeige
Inhaltsverzeichnis

fehlermeldung typen unverträglich

Forumthread: fehlermeldung typen unverträglich

fehlermeldung typen unverträglich
01.12.2002 16: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 16:46:27
Micha*
Du hast versucht einer normalen Variable ein Array zuzuweisen.
Re: fehlermeldung typen unverträglich
01.12.2002 16: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 16:52:14
Ralf
Hallo Volker,

es soll mit allen vier zellen verglichen werden.

Gruss
Ralf

Anzeige
Re: fehlermeldung typen unverträglich
01.12.2002 17: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 18: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
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum