Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1388to1392
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
1388to1392
1388to1392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

externe Exceltabelle in Datensheet einlesen

externe Exceltabelle in Datensheet einlesen
23.10.2014 13:01:41
Larissa
Hallo Zusammen,
ich bin leider noch nicht so fit in VBA.
Vllt kann mir jmd weiterhelfen. Hier ist mein Problem bzw. meine "Aufgabe".
Mit dem "CommandButton7_Click()" soll eine externe Exceltabelle in das Sheet "Daten" eingelesen werden. Hört sich einfach an, bei mir ist leider der Wurm drin... =(
Danke schon mal für die Hilfe =)
Private Sub CommandButton7_Click() 'Messauftrag WTC übernehmen
Dim strDatei, wks As Worksheet
Dim erste_freie_zeile As Integer
strDatei = Application.GetOpenFilename
If strDatei  False Then
Set wks = Workbooks.Open(strDatei).Sheets(1)
Else
Exit Sub
End If
erste_freie_zeile = Sheets("Daten").Range("B65536").End(xlUp).Offset(1, 0).Row
Sheets("Daten").Cells(erste_freie_zeile, 2) = wks.Range("B3")
Sheets("Daten").Cells(erste_freie_zeile, 3) = wks.Range("B4")
Sheets("Daten").Cells(erste_freie_zeile, 5) = wks.Range("B5")
Sheets("Daten").Cells(erste_freie_zeile, 86) = wks.Range("B6")
Sheets("Daten").Cells(erste_freie_zeile, 15) = wks.Range("B7")
Sheets("Daten").Cells(erste_freie_zeile, 16) = wks.Range("B8")
Sheets("Daten").Cells(erste_freie_zeile, 17) = wks.Range("B9")
Sheets("Daten").Cells(erste_freie_zeile, 6) = wks.Range("B10")
Sheets("Daten").Cells(erste_freie_zeile, 7) = wks.Range("B11")
Sheets("Daten").Cells(erste_freie_zeile, 8) = wks.Range("B12")
Sheets("Daten").Cells(erste_freie_zeile, 82) = wks.Range("B13")
Sheets("Daten").Cells(erste_freie_zeile, 83) = wks.Range("B14")
Sheets("Daten").Cells(erste_freie_zeile, 4) = wks.Range("B15")
Sheets("Daten").Cells(erste_freie_zeile, 85) = wks.Range("B16")
Sheets("Daten").Cells(erste_freie_zeile, 81) = wks.Range("A19")
Sheets("Daten").Cells(erste_freie_zeile, 18) = wks.Range("E3")
Sheets("Daten").Cells(erste_freie_zeile, 22) = wks.Range("E4")
Sheets("Daten").Cells(erste_freie_zeile, 20) = wks.Range("E5")
Sheets("Daten").Cells(erste_freie_zeile, 21) = wks.Range("E6")
Sheets("Daten").Cells(erste_freie_zeile, 23) = wks.Range("E7")
Sheets("Daten").Cells(erste_freie_zeile, 24) = wks.Range("E8")
Sheets("Daten").Cells(erste_freie_zeile, 30) = wks.Range("E9")
Sheets("Daten").Cells(erste_freie_zeile, 34) = wks.Range("E10")
Sheets("Daten").Cells(erste_freie_zeile, 25) = wks.Range("E11")
Sheets("Daten").Cells(erste_freie_zeile, 31) = wks.Range("E12")
Sheets("Daten").Cells(erste_freie_zeile, 26) = wks.Range("E13")
Sheets("Daten").Cells(erste_freie_zeile, 27) = wks.Range("E14")
Sheets("Daten").Cells(erste_freie_zeile, 28) = wks.Range("E15")
Sheets("Daten").Cells(erste_freie_zeile, 29) = wks.Range("E16")
Sheets("Daten").Cells(erste_freie_zeile, 36) = wks.Range("E17")
Sheets("Daten").Cells(erste_freie_zeile, 32) = wks.Range("E18")
Sheets("Daten").Cells(erste_freie_zeile, 33) = wks.Range("E19")
Sheets("Daten").Cells(erste_freie_zeile, 39) = wks.Range("E20")
Sheets("Daten").Cells(erste_freie_zeile, 91) = wks.Range("E22")
Sheets("Daten").Cells(erste_freie_zeile, 92) = wks.Range("E23")
Sheets("Daten").Cells(erste_freie_zeile, 94) = wks.Range("E24")
Sheets("Daten").Cells(erste_freie_zeile, 97) = wks.Range("E25")
Sheets("Daten").Cells(erste_freie_zeile, 96) = wks.Range("E26")
Sheets("Daten").Cells(erste_freie_zeile, 95) = wks.Range("E27")
Sheets("Daten").Cells(erste_freie_zeile, 93) = wks.Range("E28")
Sheets("Daten").Cells(erste_freie_zeile, 98) = wks.Range("E29")
Sheets("Daten").Cells(erste_freie_zeile, 41) = wks.Range("H3")
Sheets("Daten").Cells(erste_freie_zeile, 44) = wks.Range("H4")
Sheets("Daten").Cells(erste_freie_zeile, 47) = wks.Range("H5")
Sheets("Daten").Cells(erste_freie_zeile, 50) = wks.Range("H6")
Sheets("Daten").Cells(erste_freie_zeile, 53) = wks.Range("H7")
Sheets("Daten").Cells(erste_freie_zeile, 56) = wks.Range("H8")
Sheets("Daten").Cells(erste_freie_zeile, 59) = wks.Range("H9")
Sheets("Daten").Cells(erste_freie_zeile, 62) = wks.Range("H10")
Sheets("Daten").Cells(erste_freie_zeile, 65) = wks.Range("H11")
Sheets("Daten").Cells(erste_freie_zeile, 68) = wks.Range("H12")
Sheets("Daten").Cells(erste_freie_zeile, 71) = wks.Range("H15")
Sheets("Daten").Cells(erste_freie_zeile, 72) = wks.Range("H16")
Sheets("Daten").Cells(erste_freie_zeile, 73) = wks.Range("H17")
Sheets("Daten").Cells(erste_freie_zeile, 74) = wks.Range("H18")
Sheets("Daten").Cells(erste_freie_zeile, 75) = wks.Range("H19")
Sheets("Daten").Cells(erste_freie_zeile, 76) = wks.Range("H20")
Sheets("Daten").Cells(erste_freie_zeile, 77) = wks.Range("H21")
Sheets("Daten").Cells(erste_freie_zeile, 78) = wks.Range("H22")
Sheets("Daten").Cells(erste_freie_zeile, 79) = wks.Range("H23")
Sheets("Daten").Cells(erste_freie_zeile, 80) = wks.Range("H24")
Sheets("Daten").Cells(erste_freie_zeile, 69) = wks.Range("I3")
Sheets("Daten").Cells(erste_freie_zeile, 69) = wks.Range("I4")
Sheets("Daten").Cells(erste_freie_zeile, 69) = wks.Range("I5")
Sheets("Daten").Cells(erste_freie_zeile, 69) = wks.Range("I6")
Sheets("Daten").Cells(erste_freie_zeile, 69) = wks.Range("I7")
Sheets("Daten").Cells(erste_freie_zeile, 69) = wks.Range("I8")
Sheets("Daten").Cells(erste_freie_zeile, 69) = wks.Range("I9")
Sheets("Daten").Cells(erste_freie_zeile, 69) = wks.Range("I10")
Sheets("Daten").Cells(erste_freie_zeile, 69) = wks.Range("I11")
Sheets("Daten").Cells(erste_freie_zeile, 69) = wks.Range("I12")
Sheets("Daten").Cells(erste_freie_zeile, 70) = wks.Range("J3")
Sheets("Daten").Cells(erste_freie_zeile, 70) = wks.Range("J4")
Sheets("Daten").Cells(erste_freie_zeile, 70) = wks.Range("J5")
Sheets("Daten").Cells(erste_freie_zeile, 70) = wks.Range("J6")
Sheets("Daten").Cells(erste_freie_zeile, 70) = wks.Range("J7")
Sheets("Daten").Cells(erste_freie_zeile, 70) = wks.Range("J8")
Sheets("Daten").Cells(erste_freie_zeile, 70) = wks.Range("J9")
Sheets("Daten").Cells(erste_freie_zeile, 70) = wks.Range("J10")
Sheets("Daten").Cells(erste_freie_zeile, 70) = wks.Range("J11")
Sheets("Daten").Cells(erste_freie_zeile, 70) = wks.Range("J12")
Sheets("Daten").Cells(erste_freie_zeile, 78) = wks.Range("G27")
Sheets("Daten").Cells(erste_freie_zeile, 81) = wks.Range("G28")
Sheets("Daten").Cells(erste_freie_zeile, 78) = wks.Range("G29")
Sheets("Daten").Cells(erste_freie_zeile, 81) = wks.Range("I27")
Sheets("Daten").Cells(erste_freie_zeile, 81) = wks.Range("I28")
Sheets("Daten").Cells(erste_freie_zeile, 81) = wks.Range("I29")
wks.Parent.Close False
Set wks = Nothing
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: externe Exceltabelle in Datensheet einlesen
23.10.2014 18:53:39
Christian
Hallo Larissa,
wenn du eine Datei öffnest, ist dies die aktive Datei.
Sheets("Daten") ist aber in der Datei, in der das Marko laufen soll.
Ohne Angabe des Workbooks wird Sheets("Daten") in der neu geöffneten Datei gesucht und falls dort vorhanden auch genommen. Dann würdest du dort die Daten überrschreiben, anstatt die Daten bei dir einzutragen.
Wenn es Sheets("Daten") in der neu geöffneten Datei nicht gibt, dann bricht das Makro mit Fehler ab.
Deshalb immmer vollständig referenzieren.
Bsp: 
...
With ThisWorkbook.Sheets("Daten")
erste_freie_zeile = .Range("B65536").End(xlUp).Offset(1, 0).Row
.Cells(erste_freie_zeile, 2) = wks.Range("B3")
.Cells(erste_freie_zeile, 3) = wks.Range("B4")
.Cells(erste_freie_zeile, 5) = wks.Range("B5")
.Cells(erste_freie_zeile, 86) = wks.Range("B6")
' usw ...
.Cells(erste_freie_zeile, 81) = wks.Range("I28")
.Cells(erste_freie_zeile, 81) = wks.Range("I29")
End With
wks.Parent.Close False
Set wks = Nothing
End Sub
Gruß
Christian
Anzeige

300 Forumthreads zu ähnlichen Themen

Daten aus Tabellenblatt kopieren
Jochen

Hi,
ich kopiere daten von einem Tabellenblatt in ein anderes:
Sub Übersicht() Dim intS As Integer 'letzte belegte Spalte auf Blatt 1 Sheets("Daten").Columns("C:H").Copy With Sheets("Übersicht") intS = .Cells(1, Columns.Count).End(xlToLeft).Column .Cells(1, intS).PasteSpecial Paste:=xl...
08.08.2008 22:24:43
Thread-ID: 1000422
2 Beiträge
Anzeige
Datensätze in neues Tabellenblatt
kutzmutz

Hallo liebe Experten,
ich bastele für meinen Vater eine Übersicht über Bestellungen. Es gibt ein Tabellenblatt "Ersatzteile" in dem Teile mit Bestellnummern, Preisen etc. versehen sind. Wird ein Teil benötigt, wird die Zeile grün markiert und der Gesamtpreis der zu bestellenden Teile ans En...
26.08.2008 23:09:00
Thread-ID: 1004943
3 Beiträge
Datenbereich dynamisch in Pivot-Tabelle einbinden
Markus

Hallo allerseits,
ich habe folgendes Problem. Für die Erstellung einer Pivot-Tabelle muß ich den Datenbereich manuell selektieren. Da sich aber mein Datenbereich ständig ändert, würde ich das ganze automatisiert selektieren lassen. Wie krieg' ich das in dem folgenden Makro unter ?:
Rang...
02.09.2008 14:20:30
Thread-ID: 1006792
4 Beiträge
Anzeige
Daten in UF und nicht in Tabelle
Wolfgang

Hallo,
den untenstehenden Code hatte mir Tino soweit zur Verfügung gestellt und er läuft auch super. Nun kam mir nur die Überlegung, ob die zu importierenden Daten anstatt in eine Tabelle auch in ein Userform mit entsprechenden Textboxes eingefügt werden können (Textbox1 = Vorname, Textbox...
10.09.2008 20:31:00
Thread-ID: 1008913
8 Beiträge
Daten aus Userfom in eine ausgeblendete Tabelle
Ramon

Hallo alle zusammen,
ich möchte nach Klick auf den Command_Button "cb_send" Eingabewerte aus einer
Userform in eine Tabelle schreiben.
In Abhängigkeit der eingegebenen Werte sollen die Daten entweder in das Tabllenblatt
"data_booked" oder in "data_planned" geschrieben werden, u...
16.09.2008 12:28:00
Thread-ID: 1010054
5 Beiträge
2 Combobox in UF in Tabelle1 u. Daten in Tabelle 2
Bernhard

Guten Abend liebe Excelprofis,
ich komme nicht weiter, folgende Aufgabenstellung zu lösen:
Ich rufe in Tabelle 1 eine Userform auf, die 2 ComboBoxen hat. (ArtikelNr. ArtikelBezeichnung). In Tabelle 2 stehen in Spalte A die ArtikelNrn. und in Spalte B die ArtikelBezeichnungen untereinand...
17.09.2008 21:32:00
Thread-ID: 1010532
5 Beiträge
Daten in Listbox und in Tabelle
otto

Hi, mit folgendem code suche ich Daten in einem Tabellenblatt und lese die Funstellen in eine Listbox ein, gleichzeitig werden die Daten in ein anderes Tabellenblatt geschrieben, dass ich sie für weitere Aktionen (z. B. filtern) zur Verfügung habe.
With Worksheets("Auftrag").Range("a10:af30...
18.09.2008 10:45:00
Thread-ID: 1010647
3 Beiträge
Datensätze in Tabellenblätter schreiben
TomTom


Hi,
ich habe eine Excelmappe mit 4 Bättern. Auf dem ersten Blatt (Spalte A) stehen die Rohdaten drin. Die sehen in etwar so aus:
START;flag,2,23,,,,34,45,33,45,,,,,,,56
ATTEMPT;flag,1,45,,12,,34,,,45,,,,,7,,56
START;flag,2,23,,,,34,45,33,45,,,,,,,56
STOP;flag,3,45,,5,,,...
30.09.2008 13:43:00
Thread-ID: 1013375
3 Beiträge
Anzeige

Links zu Excel-Dialogen

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