Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1548to1552
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Rangebereich If Prüfung

Rangebereich If Prüfung
08.04.2017 19:59:53
Zara
Hallo,
ich habe ein Range Bereich, der in einer Schleife durchlaufen wird. Bei der if Anweisung soll er prüfen, ob der Value = "1" oder "0" ist. Aber beim Ausführen, nimmt er alles und geht immer in die Sprungmarke rein. Was mache ich falsch? Kann das vlt was mit dem Datentyp zutun haben?
Gruß+Danke, Zara
Option Explicit
Dim lzstapelbarattribut As Long
Dim stapelbarattribut As Range
With Sheets("Tabelle1")
lzstapelbarattribut = .Cells(.Rows.Count, 1).End(xlUp).Row
For Each stapelbarattribut In .Range(.Cells(1, 1), .Cells(lzstapelbarattribut, 1))
If stapelbarattribut.Value = "1" Then
GoTo stapel1
If stapelbarattribut.Value = "0" Then
GoTo Stapel0
Else: MsgBox "INFO: Es ist kein Stapelbar-Attribut hinterlegt."
Exit Sub
End If
End If
Next stapelbarattribut
End With
stapel1: MsgBox "Stapel1 klappt."
Stapel0: MsgBox "Stapel2 klappt."
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Rangebereich If Prüfung
08.04.2017 20:37:19
Werner
Hallo Zara,
leider schreibst du nicht was du eigentlich vor hast.
Meinst du das vielleicht so?
Option Explicit
Public Sub aaa()
Dim loLetzte As Long
Dim raZelle As Range
Dim boSchalter As Boolean
With Sheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
For Each raZelle In .Range(.Cells(1, 1), .Cells(loLetzte, 1))
If raZelle.Value = "1" Then
MsgBox "Stapel1 klappt."
boSchalter = True
ElseIf raZelle.Value = "0" Then
MsgBox "Stapel2 klappt."
boSchalter = True
End If
Next raZelle
If boSchalter = False Then
MsgBox "INFO: Es ist kein Stapelbar-Attribut hinterlegt."
boSchalter = False
End If
End With
End Sub
Die Variablen habe ich mal umbenannt, wer um himmels Willen will die den in der Form schreiben?
Gruß Werner
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige