Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1332to1336
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
1332to1336
1332to1336
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

If Verschachtelung in VBA

If Verschachtelung in VBA
19.10.2013 08:54:50
Martin
Durchmesser1ComboBox.Style = fmStyleDropDownList
Durchmesser1ComboBox.Clear
Hallo alle miteinander,
ich möchte gerne in VBA 2 IF-Funktionen verschachteln aber es funktioniert leider nicht. Wenn in der VBM1Combobox Klammern ausgewählt werden, dann sollen in der Durchmesser1Combobox die hinterlegten Werte im Worksheet wsL gelistet werden und bei Nägel entsprechend andere Werte. Aber er zeigt mir leider gar nichts an.
Später müsste ich dann noch einbauen das auch frei wählbare Werte in die Durchmesser1Combobox eingegeben werden können.
If VBM1ComboBox = "Klammern" Then
LoLetzte = wsL.Cells(Rows.Count, 8).End(xlUp).Row
For c = 2 To LoLetzte
With Durchmesser1ComboBox
.AddItem wsL.Cells(c, 8)
End With
Next c
If VBM1ComboBox = "Nägel" Then
LoLetzte = wsL.Cells(Rows.Count, 9).End(xlUp).Row
For c = 2 To LoLetzte
With Durchmesser1ComboBox
.AddItem wsL.Cells(c, 9)
End With
Next c
End If
End If
Hoffe der Sachverhalt ist verständlich geschildert.

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: If Verschachtelung in VBA
19.10.2013 11:12:26
Schließer
Hallo
so wie du es aufgebaut hast, würde der Vergleich nach "Nägel" nur ausgeführt, wenn vorher "Klammern" ausgewählt worden wäre...
so ? (ungeprüft)

If VBM1ComboBox = "Klammern" Then
LoLetzte = wsL.Cells(Rows.Count, 8).End(xlUp).Row
For c = 2 To LoLetzte
With Durchmesser1ComboBox
.AddItem wsL.Cells(c, 8)
End With
Next c
ElseIf VBM1ComboBox = "Nägel" Then
LoLetzte = wsL.Cells(Rows.Count, 9).End(xlUp).Row
For c = 2 To LoLetzte
With Durchmesser1ComboBox
.AddItem wsL.Cells(c, 9)
End With
Next c
End If
Gruß UweD

diverse Varianten
19.10.2013 11:32:51
Erich
Hi Martin,
schau dir mal diese Varianten an: 

Option Explicit
Private Sub VBM1ComboBox_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim wsL As Worksheet, lngL As Long, spa As Long, cc As Long
Set wsL = Sheets(1)              ' testhalber
' neuer Code4
Select Case VBM1ComboBox
Case "Klammern":   spa = 8
Case "Nägel":      spa = 9
End Select
If spa > 0 Then
With wsL
lngL = .Cells(.Rows.Count, spa).End(xlUp).Row - 1
Durchmesser1ComboBox.List = _
Application.Transpose(.Cells(2, spa).Resize(lngL))
End With
Else
Durchmesser1ComboBox.Clear
End If
Exit Sub
' neuer Code3
Durchmesser1ComboBox.Clear
Select Case VBM1ComboBox
Case "Klammern":   spa = 8
Case "Nägel":      spa = 9
End Select
If spa > 0 Then
lngL = wsL.Cells(Rows.Count, spa).End(xlUp).Row
For cc = 2 To lngL
Durchmesser1ComboBox.AddItem wsL.Cells(cc, spa)
Next cc
End If
Exit Sub
' neuer Code2
Durchmesser1ComboBox.Clear
If VBM1ComboBox = "Klammern" Then
lngL = wsL.Cells(Rows.Count, 8).End(xlUp).Row
For cc = 2 To lngL
With Durchmesser1ComboBox
.AddItem wsL.Cells(cc, 8)
End With
Next cc
ElseIf VBM1ComboBox = "Nägel" Then
lngL = wsL.Cells(Rows.Count, 9).End(xlUp).Row
For cc = 2 To lngL
Durchmesser1ComboBox.AddItem wsL.Cells(cc, 9)
Next cc
End If
Exit Sub
' neuer Code1
Durchmesser1ComboBox.Clear
If VBM1ComboBox = "Klammern" Then
lngL = wsL.Cells(Rows.Count, 8).End(xlUp).Row
For cc = 2 To lngL
Durchmesser1ComboBox.AddItem wsL.Cells(cc, 8)
Next cc
End If
If VBM1ComboBox = "Nägel" Then
lngL = wsL.Cells(Rows.Count, 9).End(xlUp).Row
For cc = 2 To lngL
Durchmesser1ComboBox.AddItem wsL.Cells(cc, 9)
Next cc
End If
Exit Sub
' alter Code
If VBM1ComboBox = "Klammern" Then
lngL = wsL.Cells(Rows.Count, 8).End(xlUp).Row
For cc = 2 To lngL
With Durchmesser1ComboBox
.AddItem wsL.Cells(cc, 8)
End With
Next cc
If VBM1ComboBox = "Nägel" Then '
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Anzeige
diverse Varianten - neue Ausgabe
19.10.2013 11:38:11
Erich
Hi Martin,
sorry, beim letzten Post waren noch einige Ungereimtheiten drin. Also noch einmal: 

Option Explicit
Private Sub VBM1ComboBox_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim wsL As Worksheet, lngL As Long, spa As Long, cc As Long
Set wsL = Sheets(1)              ' testhalber
' neuer Code4
Select Case VBM1ComboBox
Case "Klammern":   spa = 8
Case "Nägel":      spa = 9
End Select
If spa > 0 Then
With wsL
lngL = .Cells(.Rows.Count, spa).End(xlUp).Row - 1
Durchmesser1ComboBox.List = _
Application.Transpose(.Cells(2, spa).Resize(lngL))
End With
Else
Durchmesser1ComboBox.Clear
End If
Exit Sub
' neuer Code3
Durchmesser1ComboBox.Clear
Select Case VBM1ComboBox
Case "Klammern":   spa = 8
Case "Nägel":      spa = 9
End Select
If spa > 0 Then
With wsL
lngL = .Cells(.Rows.Count, spa).End(xlUp).Row
For cc = 2 To lngL
Durchmesser1ComboBox.AddItem .Cells(cc, spa)
Next cc
End With
End If
Exit Sub
' neuer Code2
Durchmesser1ComboBox.Clear
If VBM1ComboBox = "Klammern" Then
lngL = wsL.Cells(wsL.Rows.Count, 8).End(xlUp).Row
For cc = 2 To lngL
With Durchmesser1ComboBox
.AddItem wsL.Cells(cc, 8)
End With
Next cc
ElseIf VBM1ComboBox = "Nägel" Then
lngL = wsL.Cells(wsL.Rows.Count, 9).End(xlUp).Row
For cc = 2 To lngL
Durchmesser1ComboBox.AddItem wsL.Cells(cc, 9)
Next cc
End If
Exit Sub
' neuer Code1
Durchmesser1ComboBox.Clear
If VBM1ComboBox = "Klammern" Then
lngL = wsL.Cells(wsL.Rows.Count, 8).End(xlUp).Row
For cc = 2 To lngL
Durchmesser1ComboBox.AddItem wsL.Cells(cc, 8)
Next cc
End If
If VBM1ComboBox = "Nägel" Then
lngL = wsL.Cells(Rows.Count, 9).End(xlUp).Row
For cc = 2 To lngL
Durchmesser1ComboBox.AddItem wsL.Cells(cc, 9)
Next cc
End If
Exit Sub
' alter Code
If VBM1ComboBox = "Klammern" Then
lngL = wsL.Cells(Rows.Count, 8).End(xlUp).Row
For cc = 2 To lngL
With Durchmesser1ComboBox
.AddItem wsL.Cells(cc, 8)
End With
Next cc
If VBM1ComboBox = "Nägel" Then '
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Anzeige
AW: diverse Varianten - neue Ausgabe
20.10.2013 06:09:35
Martin
Die Lösungsvarianten haben leider nicht zum Ziel geführt. Ich kann weiterhin nur zwischen "Klammern" und "Nägel" auswählen, aber nicht die passenden Durchmesser.

lad doch bitte die Mappe hoch... owT
20.10.2013 06:28:20
Matthias

AW: diverse Varianten - neue Ausgabe
20.10.2013 19:52:02
Erich
Hi Martin,
angesichts der vielen Varianten ist dir sicher nicht aufgefallen, dass mein Code in einer Prozedur
"VBM1ComboBox_Exit(...)" stand - jedenfalls nicht in der "UserForm_Initialize()".
Das ist entscheidend.
In dem Moment, in dem UserForm_Initialize läuft, ist überhaupt noch nicht bekannt, ob der User
Klammern oder Nägel wählt.
Das Durchmesser-Angebot kann erst nach dieser Wahl aus "Liste" geholt werden.
Das passende Ereignis dafür ist VBM1ComboBox_Exit - dann verlässt der User die Klammern/Nägel-Wahl.
Diverse Namen in der Mappe habe ich gelöscht, weil sie sich auf andere, unbekannte Mappen beziehen.
Das Blatt "Ausgabe Nä+Kl" wurde hier auch nicht gebraucht.
Die UserForm "DatenEingabe" habe ich umbenannt in "frm_DatenEingabe".
Dann heißt sich nicht mehr genauso wie der Button "DatenEingabe" im Blatt "Eingabe Nä+Kl".
Solchen Objekten sollte man immer unterschiedliche Namen geben.
Im Code hast du überall die ComboBox-Style-Eigenschaft auf "fmStyleDropDownList" eingestellt.
Warum im Code? Das kannst du besser einmalig und dauerhaft im VBA-Editor tun.
Hier die Mappe - viel Spaß damit und viel Erfolg!
https://www.herber.de/bbs/user/87718.xlsm
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Anzeige
AW: diverse Varianten - neue Ausgabe
21.10.2013 14:41:41
Martin
Vielen Dank Erich,
deine Lösung funktioniert einwandfrei.
Da ich absoluter Anfänger bin in Sachen VBA taste ich mich da Stück für Stück vor.
Gruß Martin

305 Forumthreads zu ähnlichen Themen

If...Then... bei verschiedenen Bedingungen?
Vic

Hallo zusammen
Ich habe folgendes Problem und weiss nicht, wie ich das über mein Marko gelöst bekomme:
In der Spalte "H" habe ich diverse Werte (zwischen 0 und X) und in der Spalte "K" ebenfalls. Nun möchte ich, dass es in der Spalte "L" eine "0" ausgibt, wenn "H" den Wert Null hat und...
13.08.2008 15:00:00
Thread-ID: 1001553
5 Beiträge
Anzeige
Dateiformat nicht erkennabar (VBA)
Richard

hallo
hab da ein vba-skript, das beim unteren der beiden Zeilen eine Fehlermeldung bringt:
CreateObject("Scripting.FileSystemObject").CopyFile "C:\Program Files\" & Dateiname_neu, "C:\Program Files\Kopie.txt", True
Workbooks.OpenText FileName:="C:\Program Files\Kopie.txt" _
02.10.2008 19:52:02
Thread-ID: 1013959
2 Beiträge
Mit VBA ein anderes Makro ändern
Markus

Hallo zusammen,
besteht die Möglichkeit, dass man mittels Makros ein anderes Makro bzw. den Code für Worksheet_Activate ändern kann?
Problem 1
Sub Worksheet_Activate() 'ScrollArea = "C3: Bf32" ScrollArea = "" End Sub
Es soll danach wie folgt aussehen (Änderung in Zeile 1 und...
12.10.2008 14:24:49
Thread-ID: 1015855
7 Beiträge
Anzeige
Command Button schützen vor VBA
Hüseyin

Hallo zusammen,
habe eine kurze Frage und hoffe ihr könnt mir weiterhelfen,
ich habe ein Exceldokument mit Commandbuttons drin. Wenn ich allerdings über VBA eine "Sortierung" oder "Komprimierung" über das Tabellenblatt laufen lasse, werden meine Buttons kleiner bzw. sehen gequetscht aus...
28.10.2008 11:21:33
Thread-ID: 1019856
3 Beiträge
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Zugriff auf andere Programm/Daten in/exportieren
abu

Hallo Zusammen,
ich wuerde gerne wissen ob Excel in der Lage ist aus einem anderen Programm (Prologs) Daten zu exportiern und darzustellen und umgekehrt. Desweiteren wuerde ich gerne eine Routine in Excel programmieren (besser versuchen hinzubekommen) welche ueber den InternetExplorer auf e...
09.12.2008 10:50:51
Thread-ID: 1031278
11 Beiträge
VBA Script in andere Tabellen
Jörg

Hallo,
mich würde mal interessieren, ob es möglich ist, das Script einer Tabelle öffentlich für andere Tabellen zu machen. Derzeit ist es so, wenn ich das Makro in anderen Tabellen anwende, öffnet sich erst die Tabelle in der das Makro drin steht. Kann man das umgehen?
Für Eure Hilfe vi...
14.01.2009 11:42:23
Thread-ID: 1039546
16 Beiträge
if then interiorcolor
serge

Hallo Leute
ich möchte dass wenn die angeklicke Zelle Rot ist mein Makro ablauft (es können verschiedene Zellen sein.
Ich habe es mit:
Private Sub Worksheet_selectionChange(ByVal Target As Range) If Target.Interior.ColorIndex = 3 Then "mein makro" End If End Sub
unter anderem...
21.01.2009 22:45:00
Thread-ID: 1042391
15 Beiträge

Links zu Excel-Dialogen

ComboBox 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
4
2
1
6
7
2
3
10
15
14
6
4
4
1
3
4
2
7
1
11
2
3
1
8
1