Vergleich mit VBA

Forumthread: Vergleich mit VBA

Vergleich mit VBA

11.01.2005 16:06:24

Jan

Hallo an alle Helfer!
Ich hab ein Problem mit einem Vergleich von Werten. Das Makro bleibt einfach hängen.
Ich danke allen helfenden im Voraus.
Jan


Sub VARIA_Fensterbreite()
Dim Fenstergesamtbreite As Long
Beginn:
Worksheets("Vario&Konst").Select
WandlängeNS = Sheets("Vario&Konst").Cells(16, 3).Value
WandlängeMind = Sheets("Vario&Konst").Cells(16, 5).Value
Fensterbreite = InputBox("Bitte geben Sie die Fensterbreite in Meter ein!")
Fensteranzahl = InputBox("Bitte geben Sie eine Fensteranzahl ein!")
Fenstergesamtbreite = Fensterbreite * Fensteranzahl
If Fenstergesamtbreite > WandlängeNS Then MsgBox ("Wert zu groß! Bitte neue Werte eingeben") Else GoTo Beginn
If Fenstergesamtbreite < WandlängeMind Then MsgBox ("Wert zu klein! Bitte neue Werte eingeben") Else GoTo Beginn
If WandlängeMind < Fenstergesamtbreite < WandlängeNS Then MsgBox ("Wert OK!")
Sheets("Vario&Konst").Cells(51, 3).Value = Fenstergesamtbreite
Worksheets("Vario&Konst").Select
End Sub

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Vergleich mit VBA

Volker
AW: Vergleich mit VBA

ransi

AW: Vergleich mit VBA

Volker

Hallo Jan,
ohne deinen Code getestet zu haben: in der 3. IF-Abfrage hast Du drei Bedingungen einfach hintereinander gehängt.
if a&ltb&ltc then
Das funzt nicht. Wenn schon, dann so
if a&ltb and b&ltc then
Du hast nicht gesagt, wo es hängt, aber vielleicht war es das ja schon.
Gruß
Volker

AW: Vergleich mit VBA

ransi

hallo jan
If WandlängeMind If Fenstergesamtbreite heisst folgendes:
wenn Fenstergesamtbreite für "If Fenstergesamtbreite > WandlängeNS Then MsgBox ("Wert zu groß! Bitte neue Werte eingeben") Else GoTo Beginn" gilt das gleiche.
Ich hab das jetzt nicht alles nachgebaut sondern so geändert wie es mir logisch erschien,
versuchs mal:(ungetestet)


Sub VARIA_Fensterbreite()
Dim Fenstergesamtbreite As Long
Beginn:
Worksheets("Vario&Konst").Select
WandlängeNS = Sheets("Vario&Konst").Cells(16, 3).Value
WandlängeMind = Sheets("Vario&Konst").Cells(16, 5).Value
Fensterbreite = InputBox("Bitte geben Sie die Fensterbreite in Meter ein!")
Fensteranzahl = InputBox("Bitte geben Sie eine Fensteranzahl ein!")
Fenstergesamtbreite = Fensterbreite * Fensteranzahl
If Fenstergesamtbreite > WandlängeNS Then
MsgBox ("Wert zu groß! Bitte neue Werte eingeben")
GoTo Beginn
End If
If Fenstergesamtbreite < WandlängeMind Then
MsgBox ("Wert zu klein! Bitte neue Werte eingeben")
GoTo Beginn
End If
If WandlängeMind < Fenstergesamtbreite Then
If Fenstergesamtbreite < WandlängeNS Then MsgBox ("Wert OK!")
End If
Sheets("Vario&Konst").Cells(51, 3).Value = Fenstergesamtbreite
Worksheets("Vario&Konst").Select
End Sub

ransi

Beliebteste Forumthreads (12 Monate)

Forumthread: Vergleich mit VBA

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread