Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: If Then, wenn Gleichung falsch dann MsgBox

If Then, wenn Gleichung falsch dann MsgBox
18.05.2016 13:03:11
Zoe
Hallo,
ich hänge gerade an einer If/Then Funktion.
Ich habe hier 120 Zeilen (z=120)und habe in C12 die Zahl 20 und in C13 die Zahl 4
Jetzt möchte ich eine If/Then Makro schreiben indem ich sagen
Wenn z geteilt durch C12 ungleich C13 ist soll eine Message Box mit "Fehler" erscheinen.
Sub DatenZaehlen()
Dim z As Boolean
Sheets("Tabelle3").Select
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
z = Selection.Rows.Count
Sheets("Tabelle1").Select
If...?
End If
End Sub
Da hänge ich dann, kann mir jemand damit helfen?
Grüße,
Zoe

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: If Then, wenn Gleichung falsch dann MsgBox
18.05.2016 13:09:07
Michael
Hallo!
Sub DatenZaehlen()
Dim z As Boolean
With ThisWorkbook.Worksheets("Tabelle3")
z = .Cells(.Rows.Count, 1).End(xlUp).Row
If z / .Range("C12").Value  .Range("C13").Value Then
MsgBox "Fehler"
End If
End With
End Sub
LG
Michael

AW: If Then, wenn Gleichung falsch dann MsgBox
18.05.2016 13:11:13
Zoe
Aahh .Range() klar!!!
Dankeschön, jetzt klappts.
Grüße,
Zoe

Anzeige
Sorry, z darf natürlich nicht Boolean sein...
18.05.2016 13:12:24
Michael
...sondern bei meiner Variante so:
Sub DatenZaehlen()
Dim z As Double
With ThisWorkbook.Worksheets("Tabelle3")
z = .Cells(.Rows.Count, 1).End(xlUp).Row
If (z / .Range("C12").Value)  .Range("C13").Value Then
MsgBox "Fehler"
End If
End With
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige