UserForm; ComboBox

Forumthread: UserForm; ComboBox

UserForm; ComboBox

25.04.2003 08:48:59

Franz

Hallo,

ich habe eine Exceldatei in der Adressen gespeichert sind. In einer weiteren Datei ist eine Formularvorlage angelegt. Ich möchte nun in einer UserForm ein Auswahlfeld (ComboBox) einbauen, über das ich einen Namen auswählen und die dazugehörigen Daten (Name, Strasse, PLZ, Ort) in das Adressfeld der Formatvorlage kopiere.

Problem 1:
Wie bekomme ich die Namen der Adressdatei in die ComboBox?

Problem 2:
Wie werden die Daten in die Vorlage übernommen?

Problem 3.
Wie erreiche ich, daß beim Öffnen der Vorlage automatisch die Eingabemaske erscheint?

Ich hoffe, daß ist nicht zu viel auf einmal und freue mich jetzt schon über eine Hilfestellung.

vielen Dank jetzt schon

Franz

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: UserForm; ComboBox

25.04.2003 10:56:23

Klaus-Dieter
Re: UserForm; ComboBox

25.04.2003 12:25:24

Franz
Re: UserForm; ComboBox

25.04.2003 13:50:05

Klaus-Dieter

Re: UserForm; ComboBox

25.04.2003 10:56:23

Klaus-Dieter

Hallo Franz,

Zu 1:


Private Sub UserForm_Initialize()

    ComboBox1.RowSource = "Tabelle1!A2:A20"

    ComboBox1.ListIndex = 0

End Sub

Zu 2:
Dazu müßte man etwas mehr wissen. Etwa so:
cells(zeile,2)=Zieltabelle.Cells(zeile, spalte)
usw.

Zu 3:

Standarteingabemaske von Excel? Warum nicht das UserForm verwenden?

Gruß Klaus-Dieter
Klaus-Dieter's Excel und VBA Seite

Re: UserForm; ComboBox

25.04.2003 12:25:24

Franz

Hallo Klaus Dieter,

Zu 2.
Also in der Formatvorlage erstreckt sich das Adressfeld von
Zelle A8 - A11 und A13.
Zu 3
ich meine das UserForm.

Gruß Franz

Re: UserForm; ComboBox

25.04.2003 13:50:05

Klaus-Dieter

Hallo Franz,

das Eintragen könnte etwa so funktionieren:


Option Explicit

Private Sub ComboBox1_Change()

Dim zeile As Integer

zeile = ComboBox1.ListIndex + 2

Worksheets("Formatvorlage").Cells(8, 1) = Worksheets("Tabelle1").Cells(zeile, 2) & " " & Worksheets("Tabelle1").Cells(zeile, 1)

Worksheets("Formatvorlage").Cells(9, 1) = Worksheets("Tabelle1").Cells(zeile, 3)

Worksheets("Formatvorlage").Cells(10, 1) = Worksheets("Tabelle1").Cells(zeile, 4)

Worksheets("Formatvorlage").Cells(11, 1) = Worksheets("Tabelle1").Cells(zeile, 5)

Worksheets("Formatvorlage").Cells(13, 1) = Worksheets("Tabelle1").Cells(zeile, 6)

End Sub

Code eingefügt mit: Excel Code Jeanie

Wahrscheinlich mußt du das noch ein wenig anpassen.

Gruß Klaus-Dieter

;

Beliebteste Forumthreads (12 Monate)

Threadtitel

Lesezugriffe

excel wenn zelle bestimmten textteil enthält, dann

15447
excel wenn zelle größer als andere zelle dann farbe

15284
excel alles links von zeichen ausgeben

13585

Weitere Forumthreads anzeigen

excel wenn in zelle bestimmter text dann andere zelle farbe

11498

excel text vor zahl einfügen

10204

excel wenn zeichenfolge enthalten dann

9317

kann in excel nicht mehr scrollen

8870

excel formeln übertragen ohne änderung

8478

excel erstes zeichen abschneiden

8403

excel wenn dann wert aus anderer zelle

7643

summewenn mit sverweis

7279

excel wenn zelle teil eines textes enthält

7098

wenn wert negativ dann 0

7001

excel zelle färben wenn wert in anderer tabelle

6841

excel summe null angezeigt

6767

zeichen in excel entfernen

6686

excel 2 zeichen von links abschneiden

6602

zählenwenn doppelte werte ausschließen

6599

power query führende nullen entfernen

6346

excel text kürzen ab zeichen

6221

excel wenn wert in einer spalte vorhanden dann

6178

excel zählenwenn zeitraum

6038

excel zählenwenn oder funktion

5987

excel text ab bestimmten zeichen

5956

excel datum uhrzeit in einer zelle

5903

excel zelle ab zeichen auslesen

5854

excel makro letzte zeile ermitteln

5591

sonderzeichen zeilenumbruch

5580

excel zeichen zählen bis leerzeichen

5547

excel text aus zwei zellen zusammenführen mit absatz

5310

excel zeilen dynamisch ausblenden

5232

vba auskommentieren shortcut

5054

excel zählenwenns enthält text

5017

excel anderes tabellenblatt verlinken

4850

excel die ersten 4 zeichen löschen

4822

mauszeiger fadenkreuz tastenkombination

4732

excel letzte 3 zeichen einer zelle auslesen

4677

word shortcut zellen verbinden

4646

excel makro zellen löschen

4576

excel anführungszeichen in text einfügen

4544

excel makro text in zelle schreiben

4496

excel tabelle zeilen verbinden geht nicht

4435

excel datum rot färben wenn älter als

4383

excel wert in tabelle suchen und zeile ausgeben

4195

excel datum kleiner als

4118

excel addieren wenn zahl größer 0

4101

excel vba farbe ändern

4007

wenn zellen leer dann

4005

summewenn nicht wert

3962

kw in monat umwandeln excel

3934

entfernung zwischen zwei orten google maps

3927

excel zelle übernehmen

3894

excel datum in monat umwandeln

3857

wenn #nv dann 0

3816

excel tabellenblattname aus zelle

3771

excel auswahlfeld ja nein

3747

wenn wert 0 dann zelle leer

3728

excel datum wird nicht richtig angezeigt

3666

excel vba wert in spalte suchen und zelle ausgeben

3618

excel makro anhalten

3618

excel zeile übernehmen wenn bedingung erfüllt

3607

tastenkombination excel tabellenblatt wechseln

3600

excel summe aus mehreren spalten

3600

excel kennwort vergessen

3557

mehrere hyperlinks in excel einfügen

3532

excel text aus zelle in formel übernehmen

3523

excel wenn uhrzeit größer dann

3512

msgbox vba yes no

3511

excel text suchen von rechts

3481

excel größer als aber kleiner als

3459

excel wenn formatierung farbe dann

3420

excel formel nur zahlen aus zelle

3411

excel e+11 entfernen

3381

excel text aus zelle auslesen und einfügen

3358

excel summe ohne bestimmte zellen

3347

excel summewenns datumsbereich

3338

bereiche in excel sperren

3327

UserForm; ComboBox

3251

spalte xxx

3227

aktuelle zeit excel

3220

excel nummeriert nicht fortlaufend

3169

bedingte formatierung auf andere zeilen übertragen

3115

sverweis null nicht anzeigen

3098

excel gestrichelte graue linie entfernen

3027

excel alles nach zeichen löschen

3011

excel bedingte formatierung formel größer gleich

2997

excel gruppierung oben statt unten

2930

excel blattname aus zelle auslesen

2914

excel 3 zeichen von links löschen

2912

excel bestimmte inhalte aus zellen löschen

2910

zählenwenn mit filter

2903

zeit dezimal in stunden und minuten excel

2902

excel prüfung

2902

vba pause wait

2899

excel datei gruppe

2883

excel formel kopieren ohne anpassung

2836

excel text zu zelle hinzufügen

2829

aktuelles datum excel automatisch

2810

min in stunden umrechnen excel

2809

access tabellen schützen

2790

Forumthread: UserForm; ComboBox

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread