Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1156to1160
1156to1160
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten in geschlossene externe Tabelle VBA

Forumthread: Daten in geschlossene externe Tabelle VBA

Daten in geschlossene externe Tabelle VBA
andreas
Hallo zusammen,
habe bei dieser Anwendung die Möglichkeit die Daten der Userform in die Tabelle der Kundenliste
zu übertragen, funktioniert auch problemlos. Aufruf durch Button "neuer Kunde"
Muss jetzt aber das Tabellenblatt "Kundenliste" als separate Tabelle genannt "Kunden" ausführen.
Datei befindet sich in "C\..."
Das bedeutet ich muss die Tabelle unsichtbar im Hintergrund öffnen, die Daten übertragen und danach die unsichtbare Tabelle wieder schliessen.
weiss leider nicht wie das geht und bin deshalb für jede Hilfe dankbar
https://www.herber.de/bbs/user/69680.xls
Gruß Andreas
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Daten in geschlossene externe Tabelle VBA
22.05.2010 12:22:56
Oberschlumpf
Hi Andreas
Was genau meinst du mit "unsichtbar"?
a) Datei kann ruhig in Taskleiste sichtbar sein, aber soll in Excel nicht zu sehen sein?
b) Datei darf nirgendwo zu sehen sein, auch nicht in der Taskleiste?
Wo genau befindet sich die Datei in C:\... ? Oder bist du in der Lage, später im Code den Pfad selbst anzupassen?
Ciao
Thorsten
Anzeige
AW: Daten in geschlossene externe Tabelle VBA
25.05.2010 13:00:46
andreas
Hallo Thorsten,
ich habe bei einer anderen Anwendung einen Code bei dem das ähnlich passiert, dabei wird aber nur der Wert aus einer Zelle "B8" in die externe Tabelle geschrieben.
Private Sub CommandButton3_Click() 'Neue Kunden in externe Kundenliste übertragen
Dim lastrow As Integer
Dim ws As Worksheet
Dim exapp As New Application
If Range("b8") = ("") Then
End
End If
Set exapp = New Excel.Application       'Neue Excel Instanz eröffnen
exapp.Visible = False                   'Excel bleibt unsichtbar
exapp.Workbooks.Open "\\Hts01\1zu1_datenordner\1zu1_Allgemeines\Vorlagen – Maschinen –  _
Sonstiges\Vorlagen - Listen\Messprotokoll_Kundenliste.xls" 'Quelldatei öffnen
Set ws = exapp.Worksheets("Kundenliste")      'Quelltabelle angeben...
lastrow = ws.Cells.SpecialCells(xlCellTypeLastCell).Row
ws.Range("A" & lastrow + 1) = Range("b8").Value
ws.Range("A" & lastrow).Sort Key1:=ws.Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Set ws = Nothing
exapp.Workbooks("Messprotokoll_Kundenliste.xls").Close Savechanges:=True
exapp.Quit
End Sub
Jetzt will ich aber mehrere verschiedene Werte aus der Userform in die externe Tabelle schreiben, komme aber mit der Anpassung des Codes nicht klar.
Noch zu deiner Frage, den Pfad kann ich natürlich selbst anpassen, da ich auch noch nicht genau weiss wo die Tabelle am schluß abgelegt wird.
Gruß Andreas
Anzeige
AW: Daten in geschlossene externe Tabelle VBA
25.05.2010 15:50:33
Oberschlumpf
Hi Andreas
Interessant ist nur diese Zeile:
ws.Range("A" & lastrow + 1) = Range("b8").Value
der Rest des Codes ist ja nur zur Zugriffs-Vorbereitung auf die ext. Datei notwendig.
Da der Code mit Klick auf CommandButton3 gestartet wird, gehe ich davon aus, dass CommandButton3 zu dem Userform gehört, aus dem du weitere Daten in die ext. Datei übertragen willst.
Dann versuch es mal so: 

ws.Range("A" & lastrow + 1) = Range("b8").Value 'unterhalb dieser Zeile schreibst du
ws.Range("B" & lastrow + 1) = Steuerelement.Text
ws.Range("C" & lastrow + 1) = Steuerelement.Text
ws.Range("D" & lastrow + 1) = Steuerelement.Text
'usw.

für "B", "C" und "D" musst du natürlich die Spalten angeben, die du vorgesehen hast.
Das Gleiche gilt für "Steuerelement.Text".
Ihr Fragenden erzählt sehr oft leider nur Halbwahrheiten...wo von dem UF kommen denn die Daten her?...aus ner TextBox, Combobox, oder oder oder?
Na ja, so müsst ihr euren Code nur mehr selbst anpassen, als eigtl notwendig.
Hilfts denn?
Wenn nicht, dann zeig mal ne Bsp-Datei, und erklär, was wann wie wo hin soll.
Ciao
Thorsten
Anzeige
AW: Daten in geschlossene externe Tabelle VBA
26.05.2010 11:27:04
andreas
Hallo Thorsten,
habe deine Anweisungen befolgt, klappt so wie ich es mir vorgestellt hatte.
Noch kurz zu den Fragenden.
Es stimmt schon dass die Fragen aus der sicht eines Profis sicherlich nicht immer richtig sind, aber das ist doch der Grund weshalb die Fragen zustande kommen, weil nicht alle den selben Wissensstand haben.
Ich z.B. würde mich sehr für die VBA Programmierung interessieren und probiere auch herum, aber was mir fehlt ist der richtige Anfang von ganz vorne. Ich weiss nicht was ich wo suchen muss und wie ich zu den ganzen Begriffen komme.
Vielleicht kannst du mir ja eine gute Webseite oder eine Lektüre empfehlen, bei der das brauchbar erklärt ist.
nochmals vielen Dank für deine Hilfe, versuche meine Fragen in Zukunft besser zu formulieren.
Gruß Andreas
Anzeige
AW: Daten in geschlossene externe Tabelle VBA
23.05.2010 04:41:53
fcs
Hallo Andreas,
das erfordert an verschiedenen Stellen Anpassungen.
Die Auswahlliste der Kundennamen für die Combobox2 wird beim Öffnen der Datei aus der Kundenliste mit Daten gefüllt.
Zum Speichern eines neuen Kunden wird die Datei mit der Kundenliste jeweils kurzzeitig geöffnet.
Probleme beim Speichern könnte es geben, wenn ein andere Anwender die Kundenliste geöffnet hat.
Den Dateinamen der Kundenliste muss du im Modul "DieseArbeitsmappe" anpassen.
Gruß
Franz
https://www.herber.de/bbs/user/69694.zip
Anzeige
;

Forumthreads zu verwandten Themen

Daten in externe Datei schreiben
Ludwig

Hallo Experten
Ich beschäftige mich schon seit einiger Zeit damit Daten in eine externe Datei zu schreiben - leider ohne Erfolg.
Set TB1.Worksheets("INPUT")
Set TB2.Worksheets("Datenbank")
Set TB3.Worksheets("DatenbankExtern")
TB2.Rows("2:2").Select
Selection.Copy
Wo...
28.09.2008 19:50:00
Thread-ID: 1012984
5 Beiträge
Daten per Makro in Textdatei schreiben
Etzed

Servus,
ich habe folgendes Problem. In einer Excel Tabelle verwalte ich die Mitglieder eines Vereins mit Kontodaten für die Buchungen. Ich brauche jetzt für meine Bank eine Datei in der die Kontodaten der Mitglieder die per Bankeinzug bezahlen enthalten sind.
Diese Daten stehen bei mir...
17.11.2008 13:57:09
Thread-ID: 1025212
4 Beiträge
Anzeige
aus datei2 daten in datei1 schreiben
Klaus

Hallo,
ich habe eine datei1. Heißt jeden Tag anders.
Diese datei wird geöffnet.
Diese datei muß ich spalte a (index) von oben nach unten abarbeiten.
ich habe eine datei2. Ist sortiert nach dem index.
Die muß noch geöffnet werden. Liegt auf der Platte immer mit gleichem Namen...
26.11.2008 20:46:59
Thread-ID: 1028151
3 Beiträge
Daten übertragen in geschlossene Datei
Thor

Guten Morgen allerseits.
Mir wurde hier ja schön öfter mal gut geholfen. Dafür zunächst mal ein "Danke" an alle.
Und dann habe ich gleich das nächste Problem.
Ich habe in einer Eingabemaske (Mappe3, Tabelle1) verschiedene Daten gesammelt, die ich zusätzlich noch in einer weiteren Da...
12.02.2010 09:59:48
Thread-ID: 1137965
3 Beiträge
Anzeige
Nochmal Daten in geschlossene Datei
Thor

Hallo allerseits,
hoffe Ihr habt alle die letzten Faschingstage gut überstanden und seid soweit alle fit.
Mit Hilfe von Rudi Maintaire habe ich das Problem mit der Übertragung in eine geschlossene Datei ja lösen können. Jetzt habe ich aber das Problem, dass ich es irgendwie nicht geback...
17.02.2010 18:13:33
Thread-ID: 1139332
8 Beiträge
Rechnungsdaten in gesonderte Datei schreiben
UliP.

Hallo,
könnt ihr mir helfen?
Ich schreibe eine Rechnung (Vordruck in einer Arbeitsmappe). Wenn die Rechnung gedruckt ist (Druck wird über ein Makro angestoßen), sollen das Rechnungsdatum, der Rechnungsempfänger und der Betrag in eine gesonderte Datei oder ein anderes Arbeitsblatt geschrie...
05.06.2002 18:02:05
Thread-ID: 126257
3 Beiträge
Aus Usf Listbox in geschlossene Datei schreiben
Judith

Hallo,
ich würde gerne aus einer UserForm Listbox Daten in eine andere (geschlossene) Exceldatei schreiben.
Irgendwie finde ich nichts im Web, das ich anpassen könnte. Es wäre super, wenn mir jemand vielleicht einen Link oder ein Beispiel nennen könnte, dass ich mit meinen begrenzten F...
29.09.2012 07:18:43
Thread-ID: 1279950
3 Beiträge
Daten in externe Excel-Datei schreiben
Lutz

Hallo Zusammen,
mein folgender Code funktioniert einwandfrei.
Folgende Frage ergibt sich für mich allerdings:
Welchen Teil müsste ich anpassen wenn ich folgendes ändern möchte:
Bisher schreibt er die Daten in einen neuen Reiter in der gleichen Datei.
NEU: ich würde gerne in...
11.02.2016 14:59:46
Thread-ID: 1474805
3 Beiträge
Daten einer geschlossenen Datei ändern?
Andy

Hallo Zusammen,
es ist mal wieder so weit, ich komme nicht weiter ☺
Aktuell stehe ich vor folgendem Problem:
In Datei "A" sind mehrere Daten hinterlegt die täglich gepflegt werden müssen.
Je nach dem welche Zelle ich ich in Datei "A" ändere, ändern sich auch Werte in Datei "B"....
08.02.2018 12:23:44
Thread-ID: 1607660
3 Beiträge
Daten in geschlossene Datei übertragen
Dietmar

Hallo zusammen,
Was ist in dem folgenden Quellcode falsch?
Das PasteSpecial funktioniert nicht.
Ab ... Destination:=WkSh_Z ... stimmt etwas nicht
Ich möchte aus der Quelldatei, Tabelle1, C4:C45 Werte in die Zieldatei, Tabelle1 übertragen.
Dabei soll in der Zieldatei über in...
17.03.2018 15:47:32
Thread-ID: 1614747
7 Beiträge
Daten in txt datei schreiben lassen
Jens

Hallo,
ich kann mit dem nachfolgenden Code Daten aus einer Zelle in Excel in eine txt datei schreiben lassen. Sub Upload() Dim z As String Dim z1 As String Dim i As Integer Dim j As Integer Dim a As String Dim b As String Dim c As String Dim Strurl As String Dim F As Integer Dim objFSO As...
17.05.2018 13:20:53
Thread-ID: 1624529
2 Beiträge
Daten aus einer Zelle in eine Text Datei schreiben
Peter

Hallo Zusammen,
ich habe eine Riesenmenge HEX Codes die ich ausgewertet habe. Hinter den HEX Codes verbergen sich kleine Dateien die ich wieder in eine Software integrieren möchte.
Die Daten befinden sich aktuell in einer CSV Datei. Aufbau wie folgt:
ID; Laufende Nummer; HEX Co...
07.08.2018 10:12:12
Thread-ID: 1637870
6 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Daten in geschlossene externe Tabelle mit VBA schreiben

Schritt-für-Schritt-Anleitung

  1. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor in Excel zu öffnen.

  2. Modul hinzufügen: Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)" und wähle Einfügen > Modul.

  3. Code einfügen: Füge den folgenden Code in das Modul ein, um Daten in eine geschlossene Datei zu schreiben:

    Private Sub CommandButton3_Click()
   Dim lastrow As Integer
   Dim ws As Worksheet
   Dim exapp As New Application

   ' Prüfen, ob das Textfeld leer ist
   If Range("b8") = ("") Then
       End
   End If

   ' Unsichtbare Excel-Instanz erstellen
   Set exapp = New Excel.Application
   exapp.Visible = False

   ' Externe Datei öffnen
   exapp.Workbooks.Open "C:\Pfad\Zu\Deiner\Kundenliste.xlsx"
   Set ws = exapp.Worksheets("Kunden")

   ' Letzte Zeile finden und Daten übertragen
   lastrow = ws.Cells.SpecialCells(xlCellTypeLastCell).Row
   ws.Range("A" & lastrow + 1) = Range("b8").Value
   ' Weitere Werte hinzufügen
   ws.Range("B" & lastrow + 1) = Steuerelement.Text ' Beispiel für zusätzliche Daten

   ' Datei speichern und schließen
   exapp.Workbooks("Kundenliste.xlsx").Close Savechanges:=True
   exapp.Quit
End Sub

  4. Anpassungen vornehmen: Ersetze Steuerelement.Text mit dem Namen des Steuerelements, aus dem du die Daten übertragen möchtest.

Häufige Fehler und Lösungen

  • Fehler: "Datei nicht gefunden"
    Überprüfe den angegebenen Pfad zur Datei. Achte darauf, dass die Datei existiert und der Pfad korrekt ist.

  • Fehler: "Excel-Anwendung kann nicht gestartet werden"
    Stelle sicher, dass Excel auf deinem Computer installiert ist. Überprüfe die Berechtigungen, um Excel über VBA zu starten.

  • Datenübertragung funktioniert nicht
    Stelle sicher, dass die Namen der Steuerelemente im Code korrekt sind und dass du die richtigen Zellreferenzen verwendest.

Alternative Methoden

  • Verwenden von Power Query: Wenn du keine VBA-Kenntnisse hast, kannst du Power Query nutzen, um Daten aus einer externen Excel-Datei zu importieren. Dies funktioniert jedoch nur, wenn die Datei geöffnet ist.

  • Excel-Add-Ins: Es gibt verschiedene Add-Ins, die dir helfen können, Daten in geschlossene Dateien zu schreiben, ohne dafür Programmierkenntnisse zu benötigen.

Praktische Beispiele

  1. Kundenliste aktualisieren: Verwende den obigen Code, um eine Kundenliste zu aktualisieren, indem du neue Kundeninformationen aus einer Userform überträgst.

  2. Berichtswesen automatisieren: Erstelle ein VBA-Skript, das automatisch wöchentliche Verkaufsberichte in eine geschlossene Datei schreibt.

Tipps für Profis

  • Fehlerbehandlung einbauen: Füge Fehlerbehandlungsroutinen zu deinem Code hinzu, um unerwartete Probleme zu identifizieren und zu lösen.

  • Variable Typen verwenden: Achte darauf, die richtigen Datentypen für Variablen zu verwenden, um die Effizienz deines Codes zu erhöhen.

  • Dokumentation: Kommentiere deinen Code ausführlich, damit du später leichter nachvollziehen kannst, was jeder Teil des Codes bewirken soll.

FAQ: Häufige Fragen

1. Wie kann ich Daten in eine geschlossene Datei schreiben?
Verwende VBA, um eine neue Excel-Anwendung zu erstellen, die Datei im Hintergrund zu öffnen und die Daten zu schreiben, bevor du die Datei schließt.

2. Gibt es eine Möglichkeit, dies ohne VBA zu tun?
Ja, du kannst Power Query oder Excel-Add-Ins verwenden, um Daten aus geschlossenen Dateien zu importieren oder zu aktualisieren, jedoch ist VBA oft flexibler.

3. Wie finde ich den Speicherort der Kundenliste?
Der Speicherort kann im Code angepasst werden. Stelle sicher, dass du den vollständigen Pfad zur Datei angibst, um Fehler zu vermeiden.

Beliebteste Forumthreads (12 Monate)

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