003
01.11.2004, 21:06 Uhr
~_Tobi_
Gast
|
Hallo Vriza,
im Grunde ist es ganz einfach: Ich nehme mal an, dass dur deine Combo- Box auf einem Tabellenblatt platzieren möchtest.. Als erstes öffnest Du dein Excel musst du deine Excel- Symbolleiste so anpassen, dass die hilfreichen Icons für VBA auftauchen: Rechte Maustaste auf die Symbolleiste -> Anpassen und denn bei -> Symbolleisten das Häckchen für Visual Basic machen. Danach sollten die Icons irgendwo auf dem Bildschirm auftauchen..
Wechsel in den Entwurfsmodus (Icon mit dem Geodreieck und dem Stift) und lass dir auch die Steuerelemente- Toolbox anzeigen (Icon mit Hammer und Maulschlüssel).
Wähle Combo- Box und mal sie dir irgendwo hin. Mit der rechten Maustaste darauf hast du Zugriff auf die Eigenschaften des Steuerelementes. Nenn die ComboBox z.B. 'cmb_Auswahl'
Entsprechend machst du das mit zwei Buttons 'cmd_WerteSchreiben' und 'cmd_Werteintragen'. Damit hast du schon mal die Steuerelemente gemalt!
Jetzt noch ein wenig Code hinterlegen: Wechsel nun in den Visual Basic Editor (Entweder ALT + F11 oder "Extras" -> "Makro" -> "Visual Basic- Editor". Da du deine Steuerelemente auf deinem Tabellenblatt (genauer: auf "Tabelle 1") gemalt hast, mach einen Doppelklick auf "Tabelle1(Tabelle1)" im Projekt- Ansichtsfenster.
Jetzt musst du zwei Sachen realisieren:
1. Daten in die ComboBox schreiben (Datei: Werte.xls)
| Visual Basic: |
Private Sub cmd_WerteSchreiben_Click()
Worksheets("Tabelle1").cmb_Auswahl.Clear 'Combox löschen
For i = 0 To 2 Step 1 'Auswahl- Items hinzufügen
Worksheets("Tabelle1").cmb_Auswahl.AddItem "Auswahl " & i
Next i
End Sub
|
2. Ausgewählte Daten in die andere Excel- Tabelle schreiben (Zieldatei: Ergebnis.xls):
| Visual Basic: |
Private Sub cmd_Werteintragen_Click()
Dim AusgewählterWert As String 'Hier speicherst Du die Auswahl
Worksheets("Tabelle1").Activate
AusgewählterWert = Worksheets("Tabelle1").cmb_Auswahl.Text 'Auswahl abfragen
If AusgewählterWert = "" Then 'Keine Auswahl = nix zu tun!
MsgBox "Bitte wählen Sie einen Wert aus der Combo- Box aus!", vbOKOnly, "Fehler"
Exit Sub
End If
'andere Datei öffnen, in der die Daten eingetragen werden sollen
Workbooks.Open Filename:="C:\Ergebnis.xls"
Worksheets("Tabelle1").Activate
'Wert in Feld D4 eintragen
Worksheets("Tabelle1").Range("D4").Value = AusgewählterWert
End Sub
|
So, ich hoffe ich hab alle Klarheiten beseitigt und es müsste so eigentlich funzen, wenn nicht schick ich dir das ganze via email...
Die VBA- Hilfe bekommst du, wenn du im VBA- Editor in Excel einfach mal 'F1' drückst oder über Menü die Hilfe aufrufst. Vielleicht hilft es dir auch schon einfach mal Visual Basic Grundkurs zu machen, damit kann man schon viel machen.
So denn
Tobi |
