Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
508to512
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
508to512
508to512
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

if then else

if then else
03.11.2004 12:02:40
kai
Hallo,
bitte um kurze hilfe ...
ich möchte bevor etwas ausgeführt wird eine abfrage einbauen:
wenn die aktive zelle NICHTS oder NICHTS und nicht in Spalte F ist
dann MsgBox "Bitte Auswahl überprüfen"
sonst ( mein folgender Code geht )
Wäre nett, wenn mir jemand von euch helfen könnte.
danke und gruss kai

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: if then else
ChrisL
Hi Kai
Schau mal Daten/Gültigkeit an, vielleicht hilfts. Deine Frage verstehe ich allerdings nicht ganz.
Gruss
Chris
AW: if then else
03.11.2004 12:15:51
kai
Hallo,
das ist mein code ( bzw mein makro = das geht auch):
Application.ScreenUpdating = False
Sheets("..MVorlage").Select
Sheets("..MVorlage").Copy After:=Sheets(2)
Sheets(".Mietkonto").Select
ActiveCell.Copy
Sheets("..MVorlage (2)").Select
ActiveSheet.Paste
Range("BA9").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Name = Range("BA9")
Range("a1").Select
ActiveCell.FormulaR1C1 = "EWS Winkel & Stahrenberg GbR"
Range("A1").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("A1").Select
End Sub
----------------------------------------------------
ich möchte, bevor der code ausgeführt wird eine plausibilitätsprüfung einbauen.
wenn: in der aktiven zelle nichts oder die aktive zelle ungleich spalte F ist
dann: MsgBox "Auswahl überprüfen"
sonst: "oben genannten" code ausführen
hoffe, die erklärung ist besser.
Gruss Kai
Anzeige
AW: if then else
ChrisL
Hi Kai

Sub t()
If ActiveCell = "" Or ActiveCell <> Cells(ActiveCell.Row, 6) Then
MsgBox "Fehler"
Exit Sub
Else
MsgBox "OK"
End If
End Sub

Gruss
Chris
AW: if then else ( NOCH OFFEN )
03.11.2004 12:28:19
kai
Hallo Chris,
Super .. Danke. Habe noch eine frage. Geht es, dass auch noch überprüft wird, ob der Inhalt der aktiven zelle schon als tabellenblatt existiert?
gruss kai
AW: if then else
Jan
Hi Kai,
Ein Code zur Überprüfung mit Schleife:

Sub Überprüfen()
Pruefung = True
Do
Set c = Worksheets(1).Range("f1:f65356").Find(ActiveCell, LookIn:=xlValues)
If ActiveCell = "" Or c Is Nothing Then
MsgBox "Auswahl überprüfen!"
Pruefung = False
Else
' Dein Code
End If
Loop Until Pruefung = False
End Sub

Diesen Code mußt Du zu Anfang Deines Code einbauen. Die Abfrage wird solange durchgeführt
bis ein richtiger Wert aus der Spalte F zugeordnet wurde und die aktive Zelle nicht leer ist.
Teste es mal durch!
Jan
AW: if then else
03.11.2004 13:03:35
kai
Hallo,
das geht leider nicht, es wird immer ausgegeben, dass die Auswahl überprüft werden soll. Das passiert auch, wenn ich in die aktive zelle einen namen schreibe, der noch nicht als tabellenblatt vorliegt.
hast du noch eine idee?
danke und gruss
kai
Anzeige
AW: if then else
Jan
Hi Kai,
Ich hatte die Abbruchbedingung der Schleife falsch definiert. Ändere mal wie folgt:
alt:
...
Loop Until Pruefung = False
neu:
...
Loop Until Pruefung = True
Jetzt müßte es funktionieren!
Jan
AW: if then else
03.11.2004 14:03:44
kai
Hi nochmal,
das geht irgendwie auch nicht. jetzt muss ich excel über den taskmanager beenden - weil nichts mehr geht.
?
gruss kai

299 Forumthreads zu ähnlichen Themen

If Then mit mehreren Schritten
Pfannen-Meister

Guten Morgen,
leider ist mein Betreff etwas unglücklich formuliert, aber ich weiß nicht, wie ich mein Problem in wenigen Worten zusammen fassen soll:
In VBA nutze ich eine If Then Anweisung. Ist die Bedingungen erfüllt, so soll er mehrer Schritte abarbeiten. Aber wie sage ich ihm, daß...
13.08.2008 10:34:00
Thread-ID: 1001416
5 Beiträge
Anzeige
VBA - if anweisung mit variable
Thomas

Hallo,
ich habe ein blöds Problem und zwar habe ich folgendes If Abfrage in einer Forschleife in Pseudo:
Wenn A1 kleiner als A2 tu dies sonst tu das
VBA:
For i = 2 To 5 If "A" & i
Irgendwie trifft dort immer nur Else ein, ich glaube es liegt an der Bedingungsformulier...
16.10.2008 10:10:50
Thread-ID: 1016763
4 Beiträge
Zeilen einfärben mit mehreren Bedingungen
donald

Hallo Forum,
ich bräuchte eure Hilfe. Ich möchte folgendes erreichen:
wenn in spalte B "Ja"/"Nein" reingeschrieben wird, soll Excel die Zeile entsprechend einfärben (Grün/gelb). Das ist an sich noch gar nicht das Problem. In Spalte C wird ebenfalls eine Ja/Nein-Abfrage erwartet, so da...
22.10.2008 12:03:56
Thread-ID: 1018296
6 Beiträge
Anzeige
If then else für Anfänger
Gunter

Hallo Zusammen,
wenn ich eine If then else Abfrage habe z.B:
If ComboBox2.Value = "Trailer" And TextBox10.Value = "" Then _
Label36.Visible = True
TextBox10.BackColor = &HFF&
If ComboBox2.Value = "Spot" And TextBox11.Value = "" Then _
Label37.Visible = True
T...
30.11.2008 12:49:00
Thread-ID: 1029010
9 Beiträge
IF/ELSE in Excel (Porto anhand Gewicht berechnen)
Thomas

Hallo zusammen,
ich erstelle gerade ein Bestellformular mit Excel 2007 und möchte ein IF/ELSE Abfrage erstellen, die im Großen und Ganzen anhand eines bekannten Gewichtes die Preisliste von DHL abbildet.
Das ganze würde ich so oder so ähnlich formulieren:
if ($gewicht_kg >...
30.01.2009 12:55:49
Thread-ID: 1045369
5 Beiträge
If und else in Label.caption
Leon

Hi Zusammen
Was mache da falsch, daß Range I11 immer angezeigt wird obwohl nichts drin steht. Falls Range I11 grösser als 0 dann I11 zeigen ansonsten H11.
Private Sub userform_initialize() If Sheets("Wesentlichkeit").Range("I11") >= 0 Then Label20.Caption = Sheets("Wesentlichkeit")...
31.01.2009 22:28:06
Thread-ID: 1045773
3 Beiträge
Sumif mit 2 Bedingungen
HeinzS

Hallo zusammen, kann mir jemand sagen, wie ich die formel richtig aufbauen muß:
Aufgabenstellung: Addiere alle Zahlen aus dem Bereich A1:A100, welche entweder =123 sind? Habe es mit Sumif versucht, scheitere aber an der 2ten Bedingung.
Danke für eure Hilfe!
Lg, Heinz
04.02.2009 10:26:00
Thread-ID: 1046913
4 Beiträge
Zählenwenn mit mehreren Bedingungen
Thomy

Hallo Excelprofis
Ich habe 2 Spalten. In der 1. befinden sich Zahlen und in der 2. Namen.
Welche Formel muss ich verwenden, wenn ich die Anzahl Zahlen in der Spalte A ermitteln will, die grösser als 2 und kleiner als 6 sind und in der Spalte B der Name Meier steht.
Ich bin mal bis...
13.03.2009 15:38:03
Thread-ID: 1059916
2 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
2
3
5
5
8
4
2
3
1
3
8
1
3
4
4
9
3
5
7
12
2
4
8
9