Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon userform-datei vom 21.12.2019, 13:57 Options
Daten aus geschlossener Arbeitsmappe in Userform einlesen
Hallo Forum,
folgendes Problem, bei welchem ich zumindest schon einen Teil selbst rausbekommen habe, aber bei dem Rest komme ich einfach nicht weiter.
Ich möchte in Excel in eine Userform2, Daten aus einer geschlossenen Arbeitsmappe (Datei2) , in eine Combobox1 einlesen. Dies klappt soweit auch ganz gut mit:
Sub UserForm_Initialize()
For i = 1 To 20
ActiveSheet.Range("A1").Formula = _
"='C:\Download\[Datei2.xls]Tabelle1'!C" & i
UserForm2.ComboBox1.AddItem (Range("A1").Value)
Next i
Range("A1").Value = ""
UserForm2.Show
End Sub
Damit kann ich die Daten aus "Datei2" aus Zellen C1 bis C20 in der combobox anzeigen laßen und auslesen.
Jetzt möchte ich aber noch zusätzlich, die Daten, welche rechts neben den Einträgen C1 bis C20 in der geschlossenen "Datei2" stehen, nämlich D1 bis D20, in einer Textbox (textbox1) anzeigen laßen. In Abhängigkeit natürlich, von der Auswahl welche in der conbobox1 gemacht wurde.
Beispiel: in C1 der geschlossenen Datei "Datei2" steht "Bauteil" und rechts daneben in D1 steht "Schraube M10". Wenn ich die Userform2 starte und in der Combobox1 "Bauteil" auswähle, soll in der Textbox1 automatisch "Schraube M10" erscheinen. Das alles ohne die Datei "Datei2" öffnen zu müßen.
Geht das?
Vielen Dank im Voraus.
Gruß
Max
folgendes Problem, bei welchem ich zumindest schon einen Teil selbst rausbekommen habe, aber bei dem Rest komme ich einfach nicht weiter.
Ich möchte in Excel in eine Userform2, Daten aus einer geschlossenen Arbeitsmappe (Datei2) , in eine Combobox1 einlesen. Dies klappt soweit auch ganz gut mit:
Sub UserForm_Initialize()
For i = 1 To 20
ActiveSheet.Range("A1").Formula = _
"='C:\Download\[Datei2.xls]Tabelle1'!C" & i
UserForm2.ComboBox1.AddItem (Range("A1").Value)
Next i
Range("A1").Value = ""
UserForm2.Show
End Sub
Damit kann ich die Daten aus "Datei2" aus Zellen C1 bis C20 in der combobox anzeigen laßen und auslesen.
Jetzt möchte ich aber noch zusätzlich, die Daten, welche rechts neben den Einträgen C1 bis C20 in der geschlossenen "Datei2" stehen, nämlich D1 bis D20, in einer Textbox (textbox1) anzeigen laßen. In Abhängigkeit natürlich, von der Auswahl welche in der conbobox1 gemacht wurde.
Beispiel: in C1 der geschlossenen Datei "Datei2" steht "Bauteil" und rechts daneben in D1 steht "Schraube M10". Wenn ich die Userform2 starte und in der Combobox1 "Bauteil" auswähle, soll in der Textbox1 automatisch "Schraube M10" erscheinen. Das alles ohne die Datei "Datei2" öffnen zu müßen.
Geht das?
Vielen Dank im Voraus.
Gruß
Max
Antwort 1 von Beverly vom 21.12.2019, 16:15 Options
Hi Max,
ich würde alle benötigten Daten in ein Arbeitsblatt einlesen, welches z.B. ausgeblendet ist. Dann kannst du auch je nach Auswahl der ComboBox die zugehörigen Daten im Textfeld anzeigen lassen.
Bis später,
Karin
ich würde alle benötigten Daten in ein Arbeitsblatt einlesen, welches z.B. ausgeblendet ist. Dann kannst du auch je nach Auswahl der ComboBox die zugehörigen Daten im Textfeld anzeigen lassen.
Bis später,
Karin
Antwort 2 von userform-datei vom 21.12.2019, 16:47 Options
Hallo Karin,
Danke für die Antwort.
Das hatte ich auch schonmal überlegt. Allerdings will ich die Arbeitsmappengröße so gering wie möglich halten. Daher die Überlegung die Daten aus einer geschlossenen Arbeitsmappe zu ziehen.
Gruß
Max
Danke für die Antwort.
Das hatte ich auch schonmal überlegt. Allerdings will ich die Arbeitsmappengröße so gering wie möglich halten. Daher die Überlegung die Daten aus einer geschlossenen Arbeitsmappe zu ziehen.
Gruß
Max
Antwort 3 von Beverly vom 21.12.2019, 16:52 Options
Hi Max,
was ist schon ein Tabellenblatt mit 20 Zeilen Daten?! Wenn du außerdem die Formeln mit Bezug auf die geschlossene Arbeitsmappe in Werte umwandelst, dürften die zusätzlichen Daten kaum ins Gewicht allen.
Bis später,
Karin
was ist schon ein Tabellenblatt mit 20 Zeilen Daten?! Wenn du außerdem die Formeln mit Bezug auf die geschlossene Arbeitsmappe in Werte umwandelst, dürften die zusätzlichen Daten kaum ins Gewicht allen.
Bis später,
Karin
Antwort 4 von aiuto vom 21.12.2019, 17:38 Options
Hallo Max,
versuch es so:
mfg vom Helfer
ps
versuch es so:
Option Explicit
Private Sub ComboBox1_Change()
ActiveSheet.Range("A1").Formula = _
"='C:\Eigene Dateien\[Datei2.xls]Tabelle1'!D" & Me.ComboBox1.ListIndex + 1
Me.TextBox1.Text = Range("a1").Value
Range("A1") = ""
End Sub
Private Sub UserForm_Initialize()
Dim i%
UserForm2.ComboBox1.Clear
For i = 1 To 20
ActiveSheet.Range("A1").Formula = _
"='C:\Eigene Dateien\[Datei2.xls]Tabelle1'!C" & i
UserForm2.ComboBox1.AddItem (Range("A1").Value)
Next i
Range("A1").Value = ""
UserForm2.Show
End Submfg vom Helfer
ps
Zitat:
Das alles ohne die Datei "Datei2" öffnen zu müßen.
Geht das?
geht natürlich nicht! Es erfolgt immer ein Zugriff auf die Datei - wie sollte es sonst gehen?Das alles ohne die Datei "Datei2" öffnen zu müßen.
Geht das?
Antwort 5 von userform-datei vom 21.12.2019, 18:37 Options
Hallo Helfer,
mit:
meine ich natürlich, daß man die Datei nicht in Excel erst öffnen muß. Klar muß man auf die Datei grundsätzlich zugreifen.
Habe den Code probiert - funktioniert hervoragend.
Vielen Dank, genau das was ich brauchte.
Danke auch an Karin.
Schönes Wochenende und frohes Weihnachtsfest + guten Rutsch!!!
Gruß
Max
mit:
Zitat:
Das alles ohne die Datei "Datei2" öffnen zu müßen.
Das alles ohne die Datei "Datei2" öffnen zu müßen.
meine ich natürlich, daß man die Datei nicht in Excel erst öffnen muß. Klar muß man auf die Datei grundsätzlich zugreifen.
Habe den Code probiert - funktioniert hervoragend.
Vielen Dank, genau das was ich brauchte.
Danke auch an Karin.
Schönes Wochenende und frohes Weihnachtsfest + guten Rutsch!!!
Gruß
Max
Ähnliche Themen
"Hyperlink einfügen"-Funktion im UserForm nutzen
Cuidas 26.02.2007 - 172 Hits -
UserForm Listbox
bage 20.03.2007 - 173 Hits - 9 Antworten
Motorola V3i - Anrufen mit geschlossener Klappe
air-pilot 09.09.2007 - 37 Hits - 4 Antworten
Gesamte Arbeitsmappe an mehrere Personen versenden
Tim85 03.03.2008 - 33 Hits - 2 Antworten
beim "Klick" auf das Druckensymbol, soll UserForm geöffnet werden
Tim85 06.03.2008 - 6 Hits - 8 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
