Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
544to548
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
544to548
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige