Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1252to1256
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
1252to1256
1252to1256
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

If Befehl über mehrere Zeilen

If Befehl über mehrere Zeilen
Marc
Hallo,
ich möchte gerne einen IF Befehl über mehrere Zeilen machen, in denen dann auch wieder IF Befehle verwandt werden. Nun scheint das Programm (woher auch) nicht zu verstehen, wo welcher End IF für welches IF gilt.
Muss ich da was klammern, wenn ja wie?
Danke für den Tipp
Marc

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: If Befehl über mehrere Zeilen
23.02.2012 15:58:55
Bertram
Hallo Marc,
ein Beispiel wär hilfreich, aber Klammern hört sich schon mal gut an:-)
Gruß
Bertram
AW: If Befehl über mehrere Zeilen
23.02.2012 16:06:54
Marc
Hallo,
habe nun hier den Code mal reingeschrieben. Der Code zwischen den fetten Anweisungen soll nur ausgeführt werden, wenn msg2 
Private Sub CommandButton1_Click()
msg2 = (ActiveSheet.UsedRange.Rows.Count)
IF msg2 
Range("AS2").Select
ActiveCell.FormulaR1C1 = "Test"
Selection.AutoFill Destination:=Range("AS2:AS" & msg2), Type:=xlFillDefault
Range("L2").Select
ActiveCell.FormulaR1C1 = "0"
Selection.AutoFill Destination:=Range("L2:L" & msg2), Type:=xlFillDefault
Cells.Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("AF:AF").Select
Application.CutCopyMode = False
Selection.NumberFormat = "dd/mm/yy;@"
Columns("BW:CC").Select
Selection.Delete Shift:=xlToLeft
ActiveWorkbook.Save
end if    
UserForm1.Hide
End Sub

Anzeige
AW: If Befehl über mehrere Zeilen
23.02.2012 16:16:55
hary
Hallo Marc
meinst Du wirklich wenn ActiveSheet.UsedRange.Rows.Count kleiner 2.
Wenn 3 gefuellte Zellen wird der Code nicht ausgefuehrt.
sollte doch so heissen 

IF msg2 > 2 then

oder?
gruss hary
AW: If Befehl über mehrere Zeilen
23.02.2012 16:26:08
Marc
hast recht!!
und zack schon geht es.... sorry....
AW: If Befehl über mehrere Zeilen
23.02.2012 16:18:36
Bertram
Hallo Marc,
mal abfesehen davon, dass es keinen Sinn macht mit <2 (nsg2 kann ja dann nur 1 sein) sollte das doch funzen. Wo soll denn nun das zweite If...Then hin?
Gruß
Bertram

315 Forumthreads zu ähnlichen Themen

Auswahlliste über mehrere Spalten
Roland

Hallo zusammen,
folgendes Problem:
In Tabellenblatt 2 sind Kontaktdaten vorhanden.
Nun möchte ich im Tabellenblatt 1 im Feld "Name" eine Auswahlliste mit Bezug auf Tabellenblatt 2 erstellen. Das ist mit der Gültikeitsprüfung ja auch kein Problem.
Jetzt möchte ich, dass auch in d...
17.07.2009 10:49:06
Thread-ID: 1089312
19 Beiträge
Anzeige
Sverweis und suche suche über mehrere Spalten
Sabine

Hi
Folgendes Problem. In Tabelle1 Spalte A stehen werte, die in Tabelle 2 in Spalte B-F gesucht werden sollen und dann der wert aus Spalte X ausgegeben werden.
Mit Sverweis geht das nicht, aber wie dann?
30.07.2009 18:44:34
Thread-ID: 1092620
2 Beiträge
Ändern von Formeln in geschwungenen Klammern
Formeln

Hallo Allerseits!
Ich möchte eine Formel bearbeiten, die in einer geschwungenen Klammer steht.
Sobald ich dieses mache, verschwindet diese Klammer und die Formel klappt nicht mehr.
Wer weiß Rat?
Danke für eine Antwort.
Gruß Anja
16.08.2009 11:03:54
Thread-ID: 1096212
4 Beiträge
Anzeige
Bedingte Formatierung über mehrere Zeilen
Chris

Hi,
ich möchte Felder einer Zeile gelb einfärben, sobald in der gleichen Spalte in einer der drei darüberliegenden Zeilen eine Zahl steht.
Z.B. C13 wird gelb sobald in C10:C12 eine Zahl steht. Mit der bedingten Formatierung
Formel ist = IstZahl(C10:C12)
geht das irgendwie nur f...
07.12.2009 09:21:02
Thread-ID: 1122125
4 Beiträge
zählenwenn über mehrere Spalten
Olaf

Hallo,
ich möchte gern mit zählenwenn nach der Zahl 12 in mehreren Spalten suchen.
Die Spaltenbereiche wären: F3:F33;N3:N33;V3:V33;AD3:AD32;AL3:AL33;AT3:AT32;BB3:BB33;BJ3:BJ33;BR3:BR32;BZ3:BZ33;CH3:CH32;CP3:CP33
mit der Standartformel komme ich hier nicht weiter.
Wie muss die F...
17.12.2009 07:02:48
Thread-ID: 1124534
3 Beiträge
summieren und multiplizieren über mehrere Spalten | Herbers Excel-Forum
Murat
Hallo, komme net weiter....
wie schreibe ich folgende Formel
=summe(A1:H1)*Z1
=summe(A2:H2)*Z2
=summe(A3:H3)*Z3
...
...
...
=summe(A2379:H2379)*Z2379
in eine Zelle?
Danke im voraus
Gruß
murat
24.01.2010 15:15:44
Thread-ID: 1132459
3 Beiträge
Abfrage über mehrere Spalten
markus

Hallo Zusammen.
Ich habe eine große Bitte, in meiner Tabelle will ich in Spalte B und Spalte C nach Werten suchen die in Zelle D1 für Spalte B und in Zelle D2 für Spalte C stehen.
Wenn diese Werte in der selben Zeile gefunden wurden dann soll der Wert aus dieser Zeile in Spalte A in D3...
25.01.2011 12:49:21
Thread-ID: 1197220
6 Beiträge
Doppelte Werte über mehrere Spalten ohne VBA
Wolfgang

Hallo Forum,
ich habe eine sehr große Tabelle und möchte doppelte Werte über 3 Spalten suchen/markieren.
Eine Lösung mit VBA habe ich, die läuft aber zu langsam.
Deshalb die Frage, gibt es eine andere Lösung (bedingte Formatierung o.ä.)?
BSP:
In Spalten A, B, C stehen Wer...
02.07.2011 22:00:57
Thread-ID: 1220677
5 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton UserForm

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
18
9
1
3
1
3
2
2
5
4
3
2
2
13
29
3
2
10
2
4
3
4
5
4
7