Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 13:19:18
Daten aus externer Datei als Bereich übernehmen... ?
23.04.2024 12:57:21
Makro für aktuell geöffn. Datei mit gleichen Namen speichern
23.04.2024 12:37:19
gew. Mittelwert Spalten mit Text ignorieren
23.04.2024 12:29:20
VBA nur Zeilen mit bestimmten Eintrag selektieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
184to188
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
184to188
184to188
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
02.12.2002 15:53:18
Sonja
Hi
Kann mir von euch einer sagen, wie ich es anstellen soll eine if then else formel aufzustellen:
Also Ich möchte wenn die arbeitsmappe 1 blatt beinhaltet, das dann For i = 23 To 50 else also wenn die arbeitsmappe mehr als 1 blatt hatt dann For i = 9 To 55 ich bekomm das nicht hin

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: If ......then.....else
02.12.2002 15:59:59
ChristianG
Hi Sonja,

Wenn mehr als 1 Blatt vorhanden dann 9...55 sonst 23...50
Meintest Du das?

MfG
Christian

Re: If ......then.....else
02.12.2002 16:11:56
Sonja
Hallo Christian
Ich zeige dir hier mal das ganze Makro irgendetwas haut da nicht hin da ist irgendwie etwas zu viel oder es fehlt was wäre nett wenn du mir weiterhelfen könntest.
Es kommt die Fehlermeldung "next ohne for"

Sub AutoForm1_BeiKlick()
Dim i As Integer
If Selection Is Nothing Then
Exit Sub
Else
Selection.Copy
End If

With Worksheets(Worksheets.Count)
If ActiveWorkbook.Sheets.Count > 1 Then
For i = 9 To 55
'...mach was...
Next i
Else
For i = 23 To 50
'...mach was anderes...
Next i
End If
If .Cells(i, 4).Text = "" And .Cells(i + 1, 4).Text = "" Then
.Cells(i + 1, 3).PasteSpecial
Exit Sub
End If
Next i
MsgBox "Kein Platz zum einfügen"
End With

End Sub


Anzeige
Re: If ......then.....else
02.12.2002 16:15:50
Andreotti
...in der Zeile vor der MsgBox ist einmal Next zuviel. Zeile entfernen.
Greetz, Andreotti
Re: If ......then.....else
02.12.2002 16:33:12
Sonja
Das haut nicht ganz hin jetzt fügt er mir das immer in spalte 57 ein und ich find den Fehler nicht

Sub AutoForm1_BeiKlick()
Dim i As Integer
If Selection Is Nothing Then
Exit Sub
Else
Selection.Copy
End If

With Worksheets(Worksheets.Count)
If ActiveWorkbook.Sheets.Count > 1 Then
For i = 9 To 55
'...mach was...
Next i
Else
For i = 23 To 50
'...mach was anderes...
Next i
End If
If .Cells(i, 4).Text = "" And .Cells(i + 1, 4).Text = "" Then
.Cells(i + 1, 3).PasteSpecial
Exit Sub
End If

MsgBox "Kein Platz zum einfügen"
End With

End Sub

Anzeige
Re: If ......then.....else
02.12.2002 16:50:25
Andreotti
1. Du meinst wohl Zeile 57, nicht Spalte.
2. Ich stelle mir das so vor:
Es hängt wohl davon ab, was in der Schleife (For i = 9 To 55)passiert. Offensichtlich liefert der Teil Deines Codes, der da abläuft stets i=55 (es passiert also nix). Am Ende Deiner 'For i'- Schleife wird mit dem letzten Next i nochmals um 1 erhöht. Daher ist an der Stelle i=56.
In Deiner If .cells... Anweisung wird dann daraus Zeile 57.

Re: If ......then.....else
02.12.2002 16:56:19
Sonja
Hallo hab oben nochmal nachgefragt war wohl zu ungeduldig sorry

Aber nun zu meinem problem wie kann ich es ändern ?
ich habe 0 ahnung

Re: If ......then.....else
02.12.2002 17:01:54
Andreotti
Ich hab das Ziel Deines Codes noch nicht begriffen.

1.Was soll denn passieren, wenn mehr als 1 Sheet in der Mappe ist, bzw eben nur eines drin ist?
2.Warum ausgerechnet diese zwei Schleifen, was soll dort passieren?
Greetz, Andreotti

Anzeige
Re: If ......then.....else
02.12.2002 17:22:13
Sonja
Also ich habe eine Rechnungsvorlage wo ich mittels Einer Artikkelliste Artikkel mit beschreibung einfügen möchte.
Meine erste Seite der Rechnungsvorlage kann im Bereich 22 - 50
Beschrieben werden. Wenn diese Seite voll ist soll die Meldung kommen "kein Platz zum Einfügen". Wenn dieser Dialog erscheint Füge ich mittels Makro eine Folgeseite ein die im Bereich von 9 - 55 Beschrieben werden kann ist dieses Blatt auch voll soll wieder die Meldung kommen "kein Platz zum Einfügen". usw.

das makro was ich jetzt erstellen möchte ist in meiner Artikelliste wwomit ich den Makierten Bereich in das Rechnungsvormular einfüge und deshalb müsste ich einmal For i = 22 To 50
For i = 9 To 55
haben oder gibt es eine Bessere Lösung ?

Ich hoffe du hast meine Erklärung verstanden

Anzeige
Re: If ......then.....else
03.12.2002 01:04:34
Andreotti
Hi Sonja,
hab Dich nicht vergessen.
Musste berufl. weg.
Hab Dein Prob fast fertig.
Neur Post morgen vormittag.
Greetz,
Andreotti
Re: If ......then.....else
04.12.2002 01:23:30
Andreotti
Hi Sonja,
versuch mal den Code anbei.
Er funktioniert allerdings nur, wenn der markierte Bereich in der gleichen Mappe ist.
Liebe Grüsse,
Andreotti



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