Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
596to600
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
596to600
596to600
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

combobox aus tab in anderer mappe füllen

combobox aus tab in anderer mappe füllen
12.04.2005 08:55:20
roland_k
hi zusammen...
habe mal wieder problem mit daten aus anderer mappe holen
in mappe "hallo.xls" tabelle 1 habe ne combox1
in diese will ich mit additem namen schreiben (füllen) diese sten aber in ner mappe "namen.xls" in der tabelle ("mitglieder") in zelle B5:B25
ich habe da was gemacht aber das ding will nicht laufen:-((
For Each Arbeitsmappe In Workbooks
If Arbeitsmappe.Name = "hallo.xls" Then gefunden = True: Exit For
Next Arbeitsmappe
If Not gefunden Then Workbooks.Open "C:\"hallo.xls" 'Else Workbooks("hallo").Activate
For i = 5 To 25
With Sheets("mitglieder").ComboBox1
.AddItem Cells(i, 2).Value
End With
Next i
ind der zeile
With Sheets("mitglieder").ComboBox1
kommt debugger:
laufzeitfehler '428'
object unterstützt diese eingenschft oder methode nicht
was habe da mal wieder nicht begriffen ?
kommts etwo drauf an welche tab bzw mappe aktiviert ist ?
oder muss die mappe erst gar nicht oeffnen ?
danke wenn sich das jemand anschaut ev ..ist das auch triviales problem ?
gruss roland__k

21
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: combobox aus tab in anderer mappe füllen
12.04.2005 09:00:47
Tobias
Servus!
Also ich wuerd in dem Fall das with weglassen:

Worksheets("mitglieder").ComboBox1.Additem Range("C" & i ).Value

Gruss

Tobias
da ändert sich nichts (( ...der pfad ?
12.04.2005 09:25:48
roland_k
hi thobias
da ändert sich nichts
Worksheets("mitglieder").ComboBox1.Additem AddItem Cells(i, 2).Value
das with kann denke ich nciht ursache sein
irgendwie muss denke was mit workbooks sein pfad zu der anderen mappe
hmm..dass iahc immer an so zwuegs rumhänge :-((
gruss roland_k
AW: da ändert sich nichts (( ...der pfad ?
12.04.2005 09:27:04
Tobias
Servus!
Ich denke schon, dass das was mit dem with zu tun hat. Probiers ma mit exakt meinem Code aus, bevor du sagst, es funktioniert nich.
Gruss

Tobias
Anzeige
AW: da ändert sich nichts (( ...der pfad ?
12.04.2005 09:37:29
roland_k
klar habe das probiert
gleicher fehler
aber warum mit range geht das mit cells nicht ?
gruss roland
AW: da ändert sich nichts (( ...der pfad ?
12.04.2005 09:39:32
Tobias
Servus!
Das mit den Cells liegt daran, dass ich sie ned mag... Range ist imho besser zum Arbeiten (jedenfalls fuer mich). Kannst du nochmal den kompletten Code pasten, wie er jetzt ist, mit meiner Codezeile?
Gruss

Tobias
Nachtrag
12.04.2005 09:25:56
Tobias
Hups... natuerlich ned Range("C"... sondern Range("B"...

Gruss

Tobias
AW: Nachtrag
12.04.2005 09:41:50
roland_k
hab e probiert geht eben nicht
warum range ...geht das nciht mit cells =?
gruss roland:_k
AW: Nachtrag
12.04.2005 09:44:49
Tobias
Servus!
Hab ich dir grad geschrieben gehabt... aber nu reich den Code nochmal rueber, so wie er jetzt ist...
Gruss

Tobias
Anzeige
AW: Nachtrag
12.04.2005 09:50:14
roland_k
hi
der code original
For Each Arbeitsmappe In Workbooks
If Arbeitsmappe.Name = "skatclub77-wehr.xls" Then gefunden = True: Exit For
Next Arbeitsmappe
If Not gefunden Then Workbooks.Open "C:\skatclub_77_wehr\skatclub77-wehr.xls" Else Workbooks("skatclub77-wehr.xls").Activate
For i = 5 To 44
Worksheets("administration").ComboBox1.AddItem Range("F" & i).Value
Next i
hmm...
gruss roland
AW: Nachtrag
12.04.2005 09:54:45
Tobias
Servus!

For i = 5 To 44
Workbooks("katclub77-wehr.xls").Worksheets("administration").ComboBox1.AddItem Range("F" & i).Value
Next i

Ich seh aber richtig, dass die ComboBox1 auf dem Tabellenblatt administration ist und nicht in irgendeiner UserForm, oder?
Ansonsten musst du das naemlich anders machen.
Gruss

Tobias
Anzeige
AW: Nachtrag
12.04.2005 09:58:40
Tobias
Doof nur, wenn man bei Skat das s vergisst... also, das natuerlich noch dazu :)

Gruss

Tobias
AW: Nachtrag
12.04.2005 10:04:43
roland_k
hmmm
aus administration muss er holen
die combobox oist auf tabellenblatt
keine ahnung warum nicht geht
gruss roland
AW: Nachtrag
12.04.2005 10:15:07
Tobias
Servus!
So wie ichs grad geschrieben hab, gehts auch nicht?
Also:

For i = 5 To 44
Workbooks("skatclub77-wehr.xls").Worksheets("administration").ComboBox1.AddItem Range("F" & i).Value
Next i

Gruss

Tobias
AW: Nachtrag probiere das auch nochmal
12.04.2005 11:27:33
roland_k
hi thobias
danke dir ..nochmal ,,,das quickinfo zeigt im debugger nach dem additem range...den
ersten richtigen namen an
aber ich denke es geht so nicht
schau mal beitrag von paulchen so gehts jedenfalls
gruss roland_k
Anzeige
AW: Nachtrag
12.04.2005 10:16:37
P@ulchen
Hallo Roland,
Du mußt die Mappen ansprechen, sonst wird das nix...
Dim wks1, wks2 As Worksheet
Set wks = ThisWorkbook.ActiveSheet
For Each Arbeitsmappe In Workbooks
If Arbeitsmappe.Name = "hallo.xls" Then gefunden = True: Exit For
Next Arbeitsmappe
If Not gefunden Then
Workbooks.Open "C:\"hallo.xls"
Else
Workbooks("hallo").Activate
End If
Set wks2 = ActiveWorkbook.ActiveSheet
For i = 5 To 25
wks1.ComboBox1 .AddItem wks2.Cells(i, 2).Value
Next i
Gruß aus Leipzig
P@ulchen
Das Forum lebt auch von den Rückmeldungen !
Anzeige
AW: Nachtrag
12.04.2005 10:37:37
roland_k
hi paulchen
wks1.ComboBox1.AddItem wks2.Cells(i, 2).Value
hier bleibt stehn
objekt erforderlich ?
die mappe oeffnet er richtig
habe das so stehn jetzt in nem modul:
Dim wks1, wks2 As Worksheet
Dim i As Variant

Sub combobox_eintragen()
Dim wks1, wks2 As Worksheet
Set wks = ThisWorkbook.ActiveSheet
For Each Arbeitsmappe In Workbooks
If Arbeitsmappe.Name = "skatclub77-wehr.xls" Then gefunden = True: Exit For
Next Arbeitsmappe
If Not gefunden Then Workbooks.Open "C:\skatclub_77_wehr\skatclub77-wehr.xls" Else Workbooks("skatclub77-wehr.xls").Activate
Set wks2 = ActiveWorkbook.ActiveSheet
For i = 5 To 25
wks1.ComboBox1.AddItem wks2.Cells(i, 2).Value
Next i
End Sub

keine ahnung
im beitrag von thobias ...ist in dem additem.range...der name der ersten zeile in der quickinfo zu sehn aber geht eben auch nicht
gruss roland _k
Anzeige
AW: Nachtrag
12.04.2005 10:42:08
P@ulchen
Hallo Roland,
kleiner Fehler von mir:
das erste wks muß wks1 heißen, also so:
Dim wks1, wks2 As Worksheet
Dim i As Variant

Sub combobox_eintragen()
Dim wks1, wks2 As Worksheet
Set wks1 = ThisWorkbook.ActiveSheet
For Each Arbeitsmappe In Workbooks
If Arbeitsmappe.Name = "skatclub77-wehr.xls" Then gefunden = True: Exit For
Next Arbeitsmappe
If Not gefunden Then Workbooks.Open "C:\skatclub_77_wehr\skatclub77-wehr.xls" Else Workbooks("skatclub77-wehr.xls").Activate
Set wks2 = ActiveWorkbook.ActiveSheet
For i = 5 To 25
wks1.ComboBox1.AddItem wks2.Cells(i, 2).Value
Next i
End Sub

Gruß aus Leipzig
P@ulchen
Das Forum lebt auch von den Rückmeldungen !
Anzeige
AW: Nachtrag
12.04.2005 10:42:37
EtoPHG
Hallo Roland,
Ersetze
Set wks = ThisWorkbook.ActiveSheet
durch
Set wks1 = ThisWorkbook.ActiveSheet
Gruss Hansueli
debugger weg ) aber ? !!! oh weh :-))
12.04.2005 10:55:30
roland_k
hi Ihr paulchen hatte es richtig bist auf die läppige (1) :_))
debuggger weg ......aber ich haare raufe list leer pfffffffffffft
habe dann aber gleich gemerkt dass die spalte leer ist ...au weia daten eine spalte daneben :((
aber es funkt
danke euch zusammen
gruss roland_k
AW: Nachtrag
12.04.2005 10:44:40
roland_k
ich starte das modul so ':

Private Sub Workbook_Open()
Worksheets("daten").Activate
combobox_eintragen
Worksheets("startbild").Activate
End Sub

die combobox ist auf dem tabellenblatt "daten"
grausames durcheinander :((
gruss roland
Anzeige
es lauft und lauft _SUPER _forum !!
12.04.2005 11:24:28
roland_k
hoi möchte mich nochmal zusätzlich bedanken
vor allem fuer eure geduld ist nicht selbstverständlich
gruss von schweizer grenze
roland_k

302 Forumthreads zu ähnlichen Themen

Laufende Nummer aus anderer Datei ziehen
mtremer

Hallo Excel-Freunde,
nun habe ich schon länger recherchiert, aber gefunden habe ich nichts :-(
Folgendes habe ich vor:
Ich befinde mich in einer Datei (Start.xls). Von dort aus möchte ich eine laufende Nummer aus einer anderen Datei (Sammlung.xls) ziehen. Diese Nummer befindet sich...
17.09.2008 11:55:00
Thread-ID: 1010315
4 Beiträge
Anzeige
Dropdown-Auswahlliste: Ausgabe anderer Text
Daniel

Hallo
Ich habe eine Dropdown-Auswahlliste erstellt, die auch funktioniert. Nun möchte ich aber, dass aus Platzgründen ein anderer (kürzerer) Text ausgegeben wird als in der Auswahlliste angezeigt wird.
Beispiel: Anzeige = Telefon ----- Ausgabe im Feld = Tel.
Ist das überhaupt mac...
04.12.2008 08:58:00
Thread-ID: 1030032
2 Beiträge
Import eines Arbeitsblatts aus anderer Excel-Datei
eliewsam

Hallo VBA-Experten,
ist es möglich, dass ich ausgehend von einer Excel-Datei ein einzelnes Arbeitsblatt einer anderen Excel-Datei importiere. Die Vergabe eines Namens für das neue (importierte) Arbeitsblatt sollte per Dialogfenster erfolgen.
Vielleicht kann mir einer von Euch in diesbez...
04.02.2009 09:06:29
Thread-ID: 1046879
4 Beiträge
Anzeige
Formeln aus anderer Datei
Thorsten

Hallo zusammen,
ich hab ne Frage auf die ich im Forum keine Antwort finde.
Und zwar möchte ich in einer Excel-Datei formeln herunterziehen.
Jedoch bezieht sich die verknüpfung auf eine andere datei.
Dann geht das irgendwie nicht .
Und zwar steht in Zelle A1 von meiner Datei...
09.02.2009 10:55:56
Thread-ID: 1048583
3 Beiträge
Worksheet aus anderer Excel Datei einbinden
Matze

Hallo zusammen!
Ich habe folgendes Vorhaben:
Ich möchte per CommandButton eine andere Excel Datei öffnen, aus dieser die einzelnen vorhandenen Worksheets (5 Stück) kopieren und diese anschließend in die Urpsungsdatei als Worksheet einbinden. Das Öffnen der anderen Excel Datei klappt, b...
26.02.2009 15:06:16
Thread-ID: 1054417
7 Beiträge
Bereichsnamen auslesen, in anderer Datei einlesen
Jörg

Hallo Forum,
ich lese meine vergebenen Bereichsnamen aus mit
Sub Namen_lesen_und_Bereich_angeben() For n = 1 To Names.Count Cells(n, 1) = Names(n).Name Cells(n, 2) = Names(n).Value Next n End Sub
Anschließend kopiere ich das Register in eine andere Datei und versuche dort die Be...
03.03.2009 15:46:37
Thread-ID: 1056016
6 Beiträge
Excelzellen durch Zellen aus anderer Datei füllen
KH

Hallo,
ich möchte folgendes tun:
In einer Exceldatei, in einer Zelle trage ich Kürzel ein (z.B. W1, W2, W3....)
Diese Kürzel sind in einer anderen Datei (Referenzdatei) mit Maßnahmen (Text, 1 Zelle), Nummern (Zahl, 1 Zelle) und Preisen ( Zahl, 1 Zelle) definiert.
W1 - Abriss - 0...
22.04.2009 15:49:17
Thread-ID: 1070395
3 Beiträge
Werte mit VB aus anderer Mappe auslesen
Jubro

Hallo zusammen,
ich sollte eine Lösung für folgendes Problemchen haben!
In einer "Mappe1/Tabelle1" habe ich einen Button der bei Click in "Mappe1/Tabelle1" in Spalte "B" die erste freie Zeile sucht und den Wert aus der Zelle links daneben in Zelle "H13" einfügt! dies funktionier ohne we...
01.05.2009 19:49:10
Thread-ID: 1072359
5 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox UserForm

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
3
4
1
3
4
2
6
5
2
4
3
3
5
3
8
1
6
3
2
2
3
1
12
4
1