Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
19.04.2024 11:45:34
Feld im SAP auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
448to452
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
448to452
448to452
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellen per ComboBox auswählen & Daten kopieren

Tabellen per ComboBox auswählen & Daten kopieren
30.06.2004 15:59:20
Stephan
Ein Hilferuf an alle Profis!
Erstmal ein Dank an Euch die mir bisher schon immer so hervorragend geholfen haben :-)
Mein Problem ist (einfach ausgedrückt), das ich eine ComboBox auf Tabelle 1 haben möchte, in der ich eine Auswahl treffen kann, die dann Daten von Tabelle 3 oder 4 oder etc. nach Tabelle 2 kopiert. Dabei soll in Tab. 2 stehen welche Tab denn gerade genomen wurde. Desweiteren wäre eine automatische Ergänzung der Einträge in der ComboBox bei neuen Tabellen gut.
Da das irgendwie meine Kenntisse und den MacroRec. übersteigt wende ich mich an euch!
Ich hab das schon als Excel-File mal aufgebaut und hochgeladen:
https://www.herber.de/bbs/user/7898.xls
Vielleicht habt ihr ja 'nen Ansatz oder 'ne Lösung für mich.
Danke im vorraus & MfG,
Stephan

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellen per ComboBox auswählen & Daten kopieren
30.06.2004 20:07:30
Christoph
Hallo Stephan,
probier's mal so:
Gruß
Christoph
Option Explicit

Private Sub ComboBox1_Change()
Dim strShName$
strShName = Sheets("Haupt").ComboBox1.Text
If strShName <> "" Then
Sheets("Kalk-Ergebnis").Range("B5") = strShName
Sheets(strShName).Range("A10:A15").Copy _
Sheets("Kalk-Ergebnis").Range("A11")
End If
Sheets("Haupt").Range("A1").Select
End Sub



Private Sub ComboBox1_GotFocus()
Dim i%
With Sheets("Haupt").ComboBox1
.Clear
For i = 3 To Sheets.Count
.AddItem Sheets(i).Name
Next
End With
End Sub



Private Sub CommandButton1_Click()
Sheets("Kalk-Status").Copy After:=Sheets(Sheets.Count)
End Sub

Anzeige
AW: Tabellen per ComboBox auswählen & Daten kopieren
Stephan
@ Christoph M:
Wow. Danke schön für die Hilfe, das funktioniert!
Nur 3 Fragen hab ich da noch:
1. Ich kann in die Box selber mit der Maus hineinklicken, sodass dort ein Cursor blinkt. Kann ich das ausstellen? ICh will ja selber nichts dort eintippen.
2. Ist es möglich das in der Box nach dem Öffnen des Blattes (also bevor man überhaupt was in der Box auswählt) irgendwie ein Name steht. So in der Art "Bitte wählen:" ?
3. Wenn an irgendeiner Stelle im Blatt gearbeitet wurde (folglich auch eine Zelle) ausgewählt ist) und ich dann auf den Pfeil der ComboBox drücke, klappt das Feld nicht komplett mit den Einträgen auf, sondern ich habe nur den ersten Eintrag der Liste und an der Seite so ein Drehfeld mit dem ich durch die Listeneinträge drehen kann. Das komplette Listenfeld lässt sich meist erst durch einen Doppelklick öffnen. Woran liegt das nun wieder?
Gruß
Stephan
Anzeige
AW: Tabellen per ComboBox auswählen & Daten kopieren
01.07.2004 15:41:53
Christoph
Hallo Stephan,
zu 1. stell in den Eigenschaften der ComboBox: Style auf "2 - frmStyleDropDownList"
zu 2. wenn 1 ausgeführt kannst du allerdings keinen Standard-Wert à la "Bitte wählen" vorgeben. (dies passiert in den Felder "Text", bzw. "Value").
zu 3. das kann ich so nicht nachvollziehen...ich denke, es ist auch eines der Attribute in den Eigenschaften. (aber vielleicht ist es auch mit der Einstellung unter 1. erledigt)
btw: in meinem Code ist spätestens nach dieser Umstellung der Style-Eigenschaft die Zeile "Sheets("Haupt").Range("A1").Select" überflüssig
Gruß
Christoph
Anzeige
AW: Tabellen per ComboBox auswählen & Daten kopieren
Stephan
Genau die Eigenschaft suchte ich! Dank dir nochmal, klappt alles....
Danke für die Rückmeldung (o.T.)
01.07.2004 20:58:31
Christoph
Problem bei neuer geänderter Form von diesem Thema
06.07.2004 11:17:08
diesem
Hellas!
Die Probleme gehen in etwas anderer Form weiter. Nachdem das ursprüngliche so gut jetzt läuft, muss ich eigentlich das gleiche nochmal (in abgeänderter Form) auch noch in meinem Projekt verbauen. Das ist aber jetzt irgendwie schwerer, da die Daten aus geschlossenen Dateien kommen sollen.
Ich habe wieder das ganze mal mit dem bisherigen Ansatz als Beispiel-Excel-File zusammengebaut:
https://www.herber.de/bbs/user/8132.zip
Das sollte so eigentlich verständlich sein.
Ich möchte auf dem "Kalk1"-Blatt unter "Haupt" wieder eine ComboBox haben, die Daten aus geschlossenen (!!) Excel-Dateien ("Center" & "Rear") aus den Blättern z.B. "Center (1)" oder "Center (2)" liest. Diese sollen dann auf die "Ergebnis"-Seite von "Kalk1" kopiert werden.
Die ComboBox sollte wieder ihre Inhaltsauswahl aus den jeweiligen Dateien (Center" / "Rear") nehmen können, und auch sich aktualiseren, falls in "Center"/"Rear" neue Blätter wie z.B. "Center (3)" dazukommen.
Ich hoffe das ihr versteht was ich meinte (?) und könnt mir weiterhelfen
Gruß
Stephan
Anzeige

300 Forumthreads zu ähnlichen Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Anzeige
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Zellen mit Werten aus darüberliegender Zelle fülle
Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
11.08.2008 08:59:25
Thread-ID: 1000713
4 Beiträge
Anzeige
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
"Bild von Excel-Kamara" variabel...
Excel-Kamara"

Hi Experten,
einen Bereich (Zellen, Bild, Grafik...) mit der Excel-Kamara "fotografieren" und in eine andere Excelmappe einfügen ist kein Problem.
Bei mir werden Ecxel_Vorlagen ausgefüllt und unter fortlaufender Dateinummer abgespeichert, zB. QR000123, QR000124, QR000125 usw. Alle Datei...
12.08.2008 10:33:28
Thread-ID: 1001116
4 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
7
2
3
1
7
8
2
3
6
11
5
5
8
15
3
7
4
4
3
2
7
4
3
4