Excel VBA - Dropdown Kombinationsfeld Test auslesen?

Hallo Community, ich hab zwar etwas Erfahrung in Visual Basic aber verzweifle an VBA. Folgendes Problem habe ich.

Ich habe ein Kombinationsfeld (Formularsteuerelement) „Dropdown 13“

Dieses Kombinationsfeld ist schon mit einer Liste gefüllt.

Bsp. Text1 Text2 Text3 ….

Ich möchte im VBA Code den Wert bzw. Text auslesen, eigentlich ganz einfach.

Bsp.

Dim Wert as String

If Dropdown13.Text = “Text1” Then

Wert = Text1

End If

Irgendwie so in der Art.

Ich möchte mit dem „Wert“ den ich aus dem Dropdown13 herauslese weiter programmieren.

Das funktioniert auf diese Art leider nicht?

Grüße Michael

1 Antwort

Ninombre

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

15.03.2016, 20:34

Den ausgewählten Eintrag in der ComboBox in eine Variable zu übernehmen kannst Du direkter machen:

Wert=Dropdown13.text

In Deinem Beispiel hast Du Wert=Text1 - da müssten noch "" um Text1, ansonsten wird es als Variable interpretiert - da es diese vermutlich nicht gibt, setzt Du Wert auf leer bzw 0

Wenn Du mit den ausgewählten Einträgen rechnen willst, wäre .value statt .text besser.

Ähnliche Fragen

Java Strings mischen?

Hallo, Ich habe hier zwei Strings:

String a = "QWERTZU";
String b = "abc";
boolean append = false;

Wenn append true ist soll es einmal gemischt werden: "QaWbEcRTZU";
Wenn es false ist dann = "QaWbEcRaTbZcUa";

Mein Versuch:

private static String zippStrings(String text1, String text2, boolean append) {
    String result = "";
    int len = text1.length();
    if (text2.length() > text1.length()) {
        len = text2.length();
    }
for (int i = 0; i <= len; i++) {
    if (text1.length() > text2.length()) {
        text2 += " ";
    } else if (text2.length() > text1.length()) {
        text1 += " ";
    }
    result += text1.charAt(i);
    result += text2.charAt(i);
}
return result;

}

...zur Frage

Customtkinter klammern + text färben?

Hey! ich beschäftige mich gerade mit UI's in Python und bin auf customtkinter gestoßen und damit auf das nachfolgende problem self.textbox.insert("0.0", f"(text1) text2 text3\n") ich würde gerne die klammern um text1 rot färben und text2 grün nur kriege ich es nur hin den kompletten text in eine farbe zu ändern wäre nett wenn mir jemand helfen könnte
LG

...zur Frage

Excel Oder mit mehreren Bedingungen?

Wenn D1 entweder Text1, Text2 oder Text3 (...) enthält, dann kopiere J1 nach K1.
Kann mir hierbei jemand helfen?
Danke

...zur Frage

Wie kann ich einen kurzen Text mit HTML und JavaScript auf Knopfdruck ändern?

Hallo, ich würde gern mit HTML und JavaScript erreichen, dass ich "Text1" angezeigt bekomme und darunter ein "Weiter"-Button liegt, der dann mittels Klick "Text1" mit "Text2" austauscht, "Text2" mit "Text3" etc.

hatte mir dafür einen code mit Klickzähler herausgesucht, der auch Funktioniert. Der Plan wäre es, den Klickzähler dafür zu nutzen, um die Zahl zu erhöhen und von dieser Zahl den ausgespielten Text abhängig zu machen.

Also z.B. Zahl 1 = Text1 und Zahl 2 = text2 usw.

Allerdings verstehe ich noch nicht , wie ich den Text mit der Zahl verknüpfe und diesen dann ausspielen lassen kann.

Habt ihr da vllt eine Idee oder einen Tipp, bzw. aber auch eine bessere Lösung?

Vielen Dank im Voraus!

<div>
  <center><h3 id="counter-label">0</h3></center>
   
<center>
  <div>
    <button onclick="incrementClick()">Click Me</button>
    <button onclick="resetCounter()">Reset</button>
  </div>
</center>
   
   
   
<script>
var counterVal = 0;
function incrementClick() {
  updateDisplay(++counterVal);
}
function resetCounter() {
  counterVal = 0;
  updateDisplay(counterVal);
}
function updateDisplay(val) {
  document.getElementById("counter-label").innerHTML = val;
}

...zur Frage

VBA kombiationsfeld mit Werten füllen?

Hi Leute,

ich habe Excel 2016 und versuche vergebens meine Kombinationsfelder mit den 3 Werten "Stahl" "Messing" und "Edelstahl" zu füllen.

Es Wird oft beschrieben das ich nachdem ich in der Userform bin und mir ein Kombinationsfeld erstellt hab auf "code anzeigen" gehen muss und oben rechts "initalize" klicken soll, jedoch finde ich diesen befehl dort nicht.

Kann mir einer weiter helfen?

...zur Frage

Node.js text auslesen und trennen?

Hey, ich möchte gerne dass bei Node.js aus einer Dtaei ausgelesen wird

z.B. text1:text2

ich will das man das mit split irgendwie beim : auseinander tut dass dann text1 in eine Variable gesetzt wird und text2 in eine Variable gesetzt wird dass wenn ich bei der ausgabe einfach z.B variable1 rauskommt und da dann in dem fall text1 drin steht.

...zur Frage

Excel – bestimmte Werte aus Zelle auslesen?

Hallo,

ich habe eine Frage bzgl. dem Auslesen von bestimmten Werten einer Zelle.

meine Zelle enthält folgendes: "blabla1: Text1 | blabla2: Text2"

Nun zu meiner Frage: ich möchte Text1 und Text2 in einem anderen Blatt in zwei verschiedenen Zellen ausgeben. Wobei hier die Schwierigkeit ist, dass beide Texte jeweils 2 verschiedene Zeichenlängen aufweisen können und ich somit mit der Formel "=teil()" anstehe.

Hoffe ich habe das verständlich erklärt. Danke schonmal für eure Hilfe.

– verwende das neueste Excel for Mac

...zur Frage

Excel-Code für Mehrfachauswahl in Dropdown-Listen?

Hallo zusammen,

Ich versuche gerade ein Excel-Dokument zu erstellen, bei dem eine Mehrfachauswahl aus Dropdown-Listen möglich ist. Das heißt aus einer Liste sollte es möglich sein mehrere Werte anzuwählen. Das habe ich auch mit dem untenstehenden VisualBasic-Code gemeistert. Allerdings habe ich erstens das Problem, dass auch eine Mehrfachauswahl des immer gleichen Wertes möglich ist. Theoretisch könnte also in einer Zelle x-mal derselbe Werte auftauchen. Dies soll natürlich nicht möglich sein. Bei Doppelauswahl desselben Wertes soll dieser aus der Zelle wieder verschwinden.

Mein zweites Problem ist, dass ich bislang nur 2 zwei Dropdown-Listen mit Mehrfachauswahl eingefügt bekomme. Sobald ich eine dritte Spalte versuche zu implementieren, bekomme ich eine Fehlermeldung für meinen Code.

Dadurch, dass ich mich mit dem Ganzen nicht so wirklich auskenne, wäre es sehr nett, wenn mir jemand helfen könnte.

Danke!

Bisheriger Code:

Private Sub Worksheet_Change(ByVal Target As Range)

** Mehrfachauswahl über DropDown-Liste

'** Einfügen im Code-Container des betreffenden Arbeitsblattes

'** Dimensionierung der Variablen

Dim rngDV As Range

Dim wert_old As String

Dim wertnew As String

'** Errorhandling

On Error GoTo Errorhandling

'** Mehrfachauswahl im definierten Bereich "Abteilungen" und "Themen" (Bsp. J2:J2000, I2:I2000) durchführen

If Not Application.Intersect(Target, Range("J2:J2000", "I2:I2000")) Is Nothing Then

'**Range definieren

Set rngDV = Target.SpecialCells(xlCellTypeAllValidation)

If rngDV Is Nothing Then GoTo Errorhandling

'** Prüfen, ob eine gültige Zelle ausgewählt wurde und Werte eintragen

If Not Application.Intersect(Target, rngDV) Is Nothing Then

Application.EnableEvents = False

wertnew = Target.Value

Application.Undo

wertold = Target.Value

Target.Value = wertnew

If wertold <> "" Then

If wertnew <> "" Then

Target.Value = wertold & ", " & wertnew

End If

Application.EnableEvents = True

End If

Errorhandling:

Application.EnableEvents = True

End Sub

...zur Frage

Excel VBA - Wert auslesen?

Mein Problem:

Mit dem ersten Makro wird ein Wert in Zelle A1 geschrieben.

In einem weiteren Makro will ich nun diesen Wert auslesen mit Worksheets("Blatt1").Cells(1, 1).Value = i. Wenn ich das mache steht danach in Zelle A1 aber eine 0 und nicht mehr der vorige Wert. Was ist falsch?

...zur Frage

Excel Vba Wert in Bereich prüfen?

Hallo,

ich habe eine Excel Tabelle erstellt, mit verschiedenen Namen und Zeiträumen (von - bis) zu den Namen erstellt. Ich möchte, dass Excel durch einen CommandButton prüft, ob die Zeiträume korrekt eingetragen sind. Zum Beispiel habe ich beim Namen "Fireflice3" einen Zeitraum von 21.04.2016 bis 20.04.2016. Das ist ja aber kein gültiger Zeitraum, da das "von" Datum größer als das "bis" Datum ist. Vba soll hier eine Msgbox zur Warnung ausgeben. Ich weiß wie man diese Programmierung auf einzelne Zellen anwendet.

Bsp. If cells(Zeile, Spalte) >= cells(zeile, Spalte) then Msgbox("ungültiger Zeitraum") End If

Meine Frage bezieht sich darauf, wie ich diesen Code nicht auf einzelne Zellen anwende sondern auf ganze Bereiche. Kann mir da jemand weiterhelfen?

Besten Dank

...zur Frage

Wie füge ich in C# einzeln Zeilen in eine Textbox ein?

Hallo,

ich habe eine Methode geschrieben, die ca. so aussieht:

Mein Problem ist, führe ich diesen Code aus, zeigt der mir Text1 und Text2 erst nach der zweiten Anweisung an. Jedoch möchte ich, dass er die Texte in der gleichen Reihenfolge in der Textbox LIVE ausgibt wie es dort erwähnt ist, d.h.: Erst soll in der Textbox der Text1 erscheinen, dann soll die Anweisung1 ausgeführt werden und dann soll Text2 erscheinen und dann soll die Anweisung2 ausgeführt werden.

Mir ist außerdem aufgefallen, wenn ich die MessageBox dazwischen aktiviere, funktioniert alles wie oben beschrieben, jedoch muss es ja auch ohne MessageBox dazwischen laufen.

void Methode()
{
  textBox1.Text += "Hi" + Environment.NewLine;  //Text1
  //MessageBox.Show("test");
  Anweisung1();
  textBox1.Text += "Nachricht2" + Environment.NewLine;  //Text2
  Anweisung2();
}

...zur Frage

Visual Studio Code gleichen Text anzeigen lassen?

Gibt es eine Möglichkeit in Visual Studio Code doppelten Text enzeigen zu lassen?
z.B.
1.text1

2.text2

3.text1

Und das vsc mir dann 1. und 3. markiert da das der gleiche Text ist.

...zur Frage

Wie kann man in Excel per VBA abhängig von einem Wert Spalten aus-/einblenden?

Hey. Ich weiß zu diesem Thema gibt es schon ein paar Einträge im Netz. jedoch habe ich es nie für mich umformuliert bekommen. Vielleicht kann mir hier jemand helfen?

In Zelle G6 steht ein Wert von 1-6. Abhängig davon sollen dann immer andere Spalten ausgeblendet werden. Mein Code zur Zeit:

Sub Ausblenden()
'
' Ausblenden Makro
'
' Tastenkombination: Strg+a
'
    If "G6" = "1" Then
                Columns("v:bn").EntireColumn.Hidden = False
                Columns("v:bn").EntireColumn.Hidden = True
            Else
                If "G6" = "2" Then
                    Columns("v:bn").EntireColumn.Hidden = False
                    Columns("ae:bn").EntireColumn.Hidden = True
                Else
                    If "G6" = "3" Then
                        Columns("v:bn").EntireColumn.Hidden = False
                        Columns("an:bn").EntireColumn.Hidden = True
                    Else
                        If "G6" = "4" Then
                            Columns("v:bn").EntireColumn.Hidden = False
                            Columns("aw:bn").EntireColumn.Hidden = True
                        Else
                            If "G6" = "5" Then
                                Columns("v:bn").EntireColumn.Hidden = False
                                Columns("bf:bn").EntireColumn.Hidden = True
                            Else
                                If "G6" = "6" Then
                                    Columns("v:bn").EntireColumn.Hidden = False
                                End If
                            End If
                        End If
                    End If
                End If
    End If
End Sub

Ich bin ein VBA anfänger, also bitte seit nachsichtig x). Danke schon einmal im voraus!

...zur Frage

VBA If else then?

Hallo!

Ich möchte ein Tool in VBA erstellen. Basis bildet eine Tabelle, in der Teile gelistet und deren Zustand eingetragen werden sollen. Entsprechend dem Zustand ergibt sich ein Wert von 5EUR doer 10EUR. Soweit habe ich es in VBA schon regeln können, nur soll die Liste beliebig lang werden und ich möchte nicht für die kommenden 300+ Zeilen die If-Else Formel immer aufs neue tippen. Gibt es eine Vereinfachung dafür?

Danke Im Voraus!

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen