Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
416to420
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
416to420
416to420
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

ComboBox ,Ausgabe in eine Tabelle

ComboBox ,Ausgabe in eine Tabelle
Sergej
Hallo Ihr Profi!!!!
Bitte um Hilfe
Das ist meine Code für drei ComboBoxen in einem UserForm
Option Explicit

Private Sub UserForm_Initialize()
Worksheets("dummy").Activate
Geraetetype
Bearbeiter
Frequenz
End Sub

Sub Geraetetype()
Me.cboGeraetetype.RowSource = "dummy!B50:B92"
End Sub
Sub Bearbeiter()
Me.cboBearbeiter.RowSource = "dummy!L50:L52"
End Sub
Sub Frequenz()
Me.cboFrequenz.RowSource = "dummy!N50:N56"
End Sub
//ich kenne so was (Ausgabe in eine Tabelle)
Sub cboGeraetetype()
Worksheets("dummy").Activate
Range("A1") = Me.cboGeraetetype.ListIndex + 1
End Sub
wie schreibt man so was änliches ,aber für drei ComboBoxen?
cboGeraetetype -> Ausgabe in Worksheet("dummy").Range("A1")
cboBearbeiter ->Ausgabe in Worksheet("dummy").Range("M50")
cboFrequenz->Ausgabe in Worksheet("dummy").Range("O50")
irgendwie verstehe ich nicht, wie eine Funktion deklariert wird:(
Dank im voraus
Gruss Sergej

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

Betreff
Benutzer
Anzeige
AW: ComboBox ,Ausgabe in eine Tabelle
Nike
Hi,
na, einfach nach einander:

Sub cboGeraetetype()
with Worksheets("dummy")
.Range("A1") = Me.cboGeraetetype.ListIndex + 1
.Range("M50") = Me.cboBearbeiter.ListIndex + 1
.Range("O50") = Me.cboFrequenz.ListIndex + 1
end with
End Sub

Bye
Nike
AW: Re. Danke aber es funzt nicht
Sergej
Nochmals Danke für Deine Hilfe Nike..
habe die Code eingegeben...aber funzt nicht ...
und keine FehlerMeldungen
Option Explicit

Private Sub UserForm_Initialize()
Worksheets("dummy").Activate
Geraetetype
Bearbeiter
Frequenz
End Sub

Sub Geraetetype()
Me.cboGeraetetype.RowSource = "dummy!B50:B92"
End Sub
Sub Bearbeiter()
Me.cboBearbeiter.RowSource = "dummy!L50:L52"
End Sub
Sub Frequenz()
Me.cboFrequenz.RowSource = "dummy!N50:N56"
End Sub

Private Sub Ausgabe()
With Worksheets("dummy")
.Range("A1") = Me.cboGeraetetype.ListIndex + 1
.Range("M50") = Me.cboBearbeiter.ListIndex + 1
.Range("O50") = Me.cboFrequenz.ListIndex + 1
End With
End Sub


Private Sub Schließen_Click()
UserForm1.Hide
End Sub

So sieht es aus...Bitte helefen Sie mir!!!
Danke:)
Anzeige
AW: Re. Danke aber es funzt nicht
barni
hi sergej
gib mal in den jeweiligen eigenschatsfenstern unter "controlsource" deine
jeweilige zielzelle ein. dann brauchsdt du nichts zuprogrammieren.
AW: Re. Danke aber es funzt nicht
23.04.2004 09:48:01
Sergej
Hi Barni!!
Was ist dann mit meiner Formatierung .ListIndex + 1?
Das heißt ,es wird nur ZeilenNr. einzelnen Einträge aus der Liste
an Zelle z.B "A1" zurückgegeben.
Gruss Sergej
AW: Re. Danke aber es funzt nicht
Nike
Hi,
und einfach so?

Private Sub Ausgabe()
With Worksheets("dummy")
.Range("A1") = Me.cboGeraetetype.value
.Range("M50") = Me.cboBearbeiter.value
.Range("O50") = Me.cboFrequenz.value
End With
End Sub

Bye
Nike
Anzeige
AW: Problem mit drei ComboBox's noch nicht gelöst
Sergej
Das ist leider nichts.
Aber Danke für deine Hilfsbereitschaft.
(.ListIndex + 1)
Das heißt,es wird nur ZeilenNr. einzelnen Einträge aus der Liste
an Zelle z.B "A1" zurückgegeben.
Z.B in "Tabelle1" in bereich A1:A10 stehen Namen

Im ComboBox wird z.B Name7 ausgewählt,
dann sollte in Zelle A1 ("Tabelle2)
Ziffer 7 stehen
Zeilen Nr.von A7 ist 7
dafür ist diese formatierte Ausgabe Range "A1" =Me.ComboBox1.ListIndex+1
Mit einem ComboBox funktioniert das problemlos..
Aber mit drei nicht...etwas im Code stimmt nicht..:(
Gruss Sergej
Anzeige
AW: Problem mit drei ComboBox's noch nicht gelöst
Nike
Hi,
hier mal eine Beispieldatei:
https://www.herber.de/bbs/user/5610.xls
Einfach nach dem Buttonclick auf die zweite Seite schaun...
Bye
Nike
Danke!Danke! Danke!
Sergej
Danke

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige