IsNumeric(Ausdruck) Beispiel: vba If IsNumeric(Range("A1").Value) Then MsgBox "Zahl" Else MsgBox "Keine Zahl" End If Rückgabewert: True = numerisch False = nich...
Wie trage ich Werte von Comboboxen ohne OleoObjects in Zellen ein?
Antwort vomUm die Werte von mehreren Comboboxen in bestimmte Zellen einzutragen, ohne die OLEObjects-Funktion zu verwenden, kann VBA (Visual Basic for Applications) in Excel werden. Hier ist ein Beispiel, wie das gemacht werden kann: 1. **Erstelle die Comboboxen**: Füge die Comboboxen über die Entwicklertools in Excel hinzu. Verwende ActiveX-Comboboxen oder Formular-Comboboxen. 2. **Schreibe das VBA-Skript**: Öffne den VBA-Editor (Alt + F11) und füge ein neues Modul hinzu. Schreibe dann den Code, um die Werte der Comboboxen in die gewünschten Zellen zu übertragen. Hier ist ein Beispielcode für ActiveX-Comboboxen: ```vba Sub WerteEintragen() ' Annahme: Es gibt drei Comboboxen mit den Namen ComboBox1, ComboBox2 und ComboBox3 ' und die Werte sollen in die Zellen A1, A2 und A3 eingetragen werden. ' Werte der Comboboxen in die Zellen eintragen Worksheets("Tabelle1").Range("A1").Value = ComboBox1.Value Worksheets("Tabelle1").Range("A2").Value = ComboBox2.Value Worksheets("Tabelle1").Range("A3").Value = ComboBox3.Value End Sub ``` Für Formular-Comboboxen (Form Controls) könnte der Code so aussehen: ```vba Sub WerteEintragen() ' Annahme: Es gibt drei Formular-Comboboxen mit den Namen Drop Down 1, Drop Down 2 und Drop Down 3 ' und die Werte sollen in die Zellen A1, A2 und A3 eingetragen werden. ' Werte der Comboboxen in die Zellen eintragen Worksheets("Tabelle1").Range("A1").Value = Worksheets("Tabelle1").DropDowns("Drop Down 1").List(Worksheets("Tabelle1").DropDowns("Drop Down 1").ListIndex) Worksheets("Tabelle1").Range("A2").Value = Worksheets("Tabelle1").DropDowns("Drop Down 2").List(Worksheets("Tabelle1").DropDowns("Drop Down 2").ListIndex) Worksheets("Tabelle1").Range("A3").Value = Worksheets("Tabelle1").DropDowns("Drop Down 3").List(Worksheets("Tabelle1").DropDowns("Drop Down 3").ListIndex) End Sub ``` 3. **Makro ausführen**: Führe das Makro aus, um die Werte der Comboboxen in die entsprechenden Zellen einzutragen. Stelle sicher, dass die Namen der Comboboxen und die Zielzellen korrekt im Code angegeben sind.
Verwandte Fragen
Gibt es die Excel-Funktion ZÄHLENWENN auch in Excel-VBA?
Ja. In Excel-VBA gibt es dafür WorksheetFunction.CountIf oder direkt Application.CountIf. Beispiel: vba Dim erg As Long erg = Application.WorksheetFunction.CountIf(Range("A1:A10"), &...
Wie nennt man das Zerlegen einer Excel-VBA-Prozedur in mehrere Teile?
Das nennt man meist Refactoring, genauer: Modularisierung: eine große Prozedur in mehrere kleinere Prozeduren/Funktionen aufteilen Extrahieren von Methoden/Prozeduren (Extract Method): Teilcode...
Wie lege ich in Excel eine UserForm an?
„UnserForm“ ist in Excel kein gängiger Begriff. Gemeint ist sehr wahrscheinlich UserForm. So legst du in Excel eine UserForm an: 1. Entwicklertools aktivieren Excel öffnen Date...
Kann man in Excel-VBA die Schriftgröße der MsgBox ändern?
Nein. Die Schriftgröße der eingebauten VBA-MsgBox lässt sich nicht direkt ändern. Möglichkeiten: Eigene UserForm verwenden → volle Kontrolle über Schriftgrö&s...
Ist dieser Excel-VBA-Code korrekt, um Spalten auszublenden und einen Bereich wieder einzublenden?
Nein. Korrekt ist bei Columns die Angabe von Spaltenbuchstaben oder Spaltennummern als Bereich, nicht "spaltevon:spaltebis" wörtlich. Beispiel: vba With Sheets("Tab1") .Co...
Excel-Makro: Spalten E:G per Button ein- und ausblenden?
Ja. Verwende dieses Makro und weise es dem Button zu: vba Sub SpaltenEGUmschalten() Columns("E:G").EntireColumn.Hidden = Not Columns("E").EntireColumn.Hidden End Sub So funktio...
Kann man in Excel nur einen bestimmten Bereich schützen, ohne den Blattschutz zu verwenden?
Nein. In Excel lässt sich ein bestimmter Bereich nicht wirksam separat schützen, ohne am Ende doch den Blattschutz zu verwenden. Das Prinzip ist: Zellen bekommen die Eigenschaft „Gesp...
Wie Excel-Tabelle in Word-Datei umwandeln?
Eine Excel-Tabelle lässt sich in Word auf mehrere Arten übernehmen: 1. Kopieren und einfügen Tabelle in Excel markieren Strg + C In Word klicken Strg + V 2. Als verknüpfte Tabell...
Excel-Makro: Im Bereich B10:B20, wenn der IndentLevel in Spalte B = 1 ist, dann in dieser Zeile in B:O oben eine dünne Rahmenlinie setzen?
vba Sub RahmenObenBeiIndent1() Dim ws As Worksheet Dim c As Range Set ws = ActiveSheet For Each c In ws.Range("B10:B20") If c.IndentLevel = 1 Then With ws.Range(ws.Cells(c.Row, &q...