Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
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
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
704to708
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
704to708
704to708
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Speicher aus Zellen

Speicher aus Zellen
07.12.2005 18:53:17
Chris
Hallo zusammen,
ich bin absoluter Neuanfänger in Sachen Excel VBA und ich möchte gerne folgendes erreichen:
In einer Tabelle trage ich in verschiedene Zellen Adressdaten ein, z.B. E10, C7, F18, A19
Mit denen ich später eine Rechnung erstelle. Um diese Daten nicht immer neu zuschreiben, würde ich diese gerne in eine Textdatei im Ordner „Rechnungen“ speichern. Der Dateiname soll sich aus der Rechnungsnummer, die in Zelle C13 steht, ergeben.
Des Weiteren möchte ich gerne die Daten (aus z.B. E10, C7, F18, A19) auch wieder in die einzelnen Zellen laden können. Es wäre toll, wenn das mit einem „Datei öffnen“ Fenster gehen würde.
Wer könnte mir da weiterhelfen?
Gruß
Chris

20
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speicher aus Zellen
07.12.2005 23:04:32
chris
Kann mir denn niemand weiterhelfen ?
AW: Speicher aus Zellen
07.12.2005 23:21:52
Reinhard
Hi Chris,
mal ein Ansatz: 
Sub inDatei()
Pfad = "C:\blabla\"
Close
Open Pfad & Range("c13") & ".txt" For Output As #1
Print #1, Range("A1") & ";" & Range("a2")
Close
End Sub
Sub Einlesen()
Pfad = "C:\blabla\"
Datei = "xyz.txt"
Close
Open Pfad & Datei For Input As #1
Input #1, satz
satz2 = Split(satz, ";")
Close
Range("A1") = satz2(0)
Range("A2") = satz2(1)
End Sub

Es gibt da noch einen Befehl der mir grad nicht einfällt damit öffnet man das DateiÖffnenMenü und kann die Datei auswählen, leider fällt er mir grad nicht ein deshalb Frage noch auf offen, dann wird quasi die Zeile Datei= durch diesen Befehl ersetzt.
Aber check erstmal ob die Makros laufen, habe es nicht getestet.
Gruß
Reinhard
ps:Das Forum lebt auch von Rückmeldungen
Anzeige
AW: Speicher aus Zellen
07.12.2005 23:25:00
Unbekannter
Damit du nicht weinent ins Bett gehst werde ich mich morgen Früh darum kümmern,aber du muss genau wissen welche Zellen du gespeichert haben willst mit z.B. lässt sich schlecht was anfangen.
p.s Ab ca 17:00 sind die meisten der Experten/Profis nicht mehr da also nicht glei heulen sondern auf morgen früh warten.
Gruß UN1
AW: Speicher aus Zellen
07.12.2005 23:40:02
chris
Hallo,
Danke für Eure bisherige Hilfe. Ich möchte folgende Zellen auslesen bzw. einlesen:
E5
E8
J8
Q8
J11
Q11
J14
Q14
J17
Q17
Danke für Eure Hilfe
Chris
AW: Speicher aus Zellen
08.12.2005 10:43:52
Unbekannter
Das sollte es sein wenn eine Zelle fhelt füge sie einfach an.

Sub raus()
Pfad = "C:\"
Open Pfad & Range("c13") & ".txt" For Output As #1
Print #1, Range("E5")
Print #1, Range("E8")
Print #1, Range("j8")
Print #1, Range("q8")
Print #1, Range("j11")
Print #1, Range("q11")
Print #1, Range("j14")
Print #1, Range("q14")
Print #1, Range("j17")
Print #1, Range("q17")
Close (1)
End Sub



Sub rein()
Dim satz(10) As String, dia As FileDialog
Set dia = Application.FileDialog(msoFileDialogOpen)
dia.Show
datei = dia.SelectedItems(1)
Open datei For Input As #1
Do While Not EOF(1)
a = a + 1
Input #1, satz(a)
Loop
Close (1)
Range("E5") = satz(1)
Range("E8") = satz(2)
Range("j8") = satz(3)
Range("q8") = satz(4)
Range("j11") = satz(5)
Range("q11") = satz(6)
Range("j14") = satz(7)
Range("q14") = satz(8)
Range("j17") = satz(9)
Range("q17") = satz(10)
End Sub

Gruß UN1
Anzeige
AW: Speicher aus Zellen
08.12.2005 12:01:36
chris
Hallo UN1,
erstmal Danke für Deine Hilfe,
aber Excel zeigt bei beiden Scripts immer „Datei bereits geöffnet“ an.
Ich habe die Scripts jeweils auf einen Button gelegt und die Scripts befinden sich in der Tabelle, die auch exportiert bzw. importiert werden soll.
Was mache ich da falsch?
Gruß
Chris
AW: Speicher aus Zellen
08.12.2005 12:09:16
Reinhard
Hi Chris,
setze vor die Open Befehle ein Close
Gruß
Reinhard
ps:Das Forum lebt auch von Rückmeldungen
AW: Speicher aus Zellen
08.12.2005 12:27:05
Chris
Hallo Reinhard,
danke für den Tipp, der import funktioniert jetzt.
Leider geht's beim Export immer noch nicht (Datei nicht gefunden), siehe hier:

Sub raus()
Pfad = "C:\"
Open Pfad & Range("c13") & ".txt" For Output As #1
Print #1, Range("E5")
Print #1, Range("E8")
Print #1, Range("j8")
Print #1, Range("q8")
Print #1, Range("j11")
Print #1, Range("q11")
Print #1, Range("j14")
Print #1, Range("q14")
Print #1, Range("j17")
Print #1, Range("q17")
Close (1)
End Sub

Würdest Du mir nochmals helfen?
Danke
Gruß
Chris
Anzeige
AW: Speicher aus Zellen
08.12.2005 12:56:48
Reinhard
Hi Chris,
überprüfe den Weg zur Datei
msgbox Pfad & Range("c13") & ".txt"
Gruß
Reinhard
ps:Das Forum lebt auch von Rückmeldungen
AW: Speicher aus Zellen
08.12.2005 13:10:38
Chris
Hallo Reinhard,
ich versteh nicht richtig was Du genau meinst ?
Das Makro soll mir ja eine Datei unter - Pfad = "C:\ " - anlegen und den Dateinamen aus „C13“ bilden.
Das hat doch dann mit dem Pfad gar nichts zu tun ?
Bitte kläre mich auf :-)
Danke
Chris
P.S. Ich habe nicht so die Ahnung von VBA!
AW: Speicher aus Zellen
08.12.2005 13:14:29
Reinhard
Hi Chris,
bei mir läuft der Code problemlos, egal was und ob was in C3 steht.
Gruß
Reinhard
ps:Das Forum lebt auch von Rückmeldungen
Anzeige
AW: Speicher aus Zellen
08.12.2005 13:20:45
Chris
Hallo nochmal,
liegt das vielleicht an meinem Excel 2003 ?
Gruß
Chris
AW: Speicher aus Zellen
08.12.2005 14:47:17
Chris
Hallo,
ich habe jetzt sogar wieder meine alte OfficeXP Version druafgespielt, aber es funktioniert immer noch nicht. Würde vielleicht jemand mal einen Blick drauf werfen?
Ich habe die Datei hier angehangen:
https://www.herber.de/bbs/user/29070.xls
Gruß
Chris
AW: Speicher aus Zellen
08.12.2005 19:07:51
Unbekannter
Also bei mir funktioniert alles wie es soll.
AW: Speicher aus Zellen
08.12.2005 20:09:18
Chris
Hallo nochmal,
das importieren funktioniert bei mir auch, aber…
Wenn ich auf importieren klicke öffnet sich ja das „Datei Öffnen“ Fenster, wenn ich jetzt in diesem auf „Abbrechen“ klicke, erhalte ich eine msgBox mit
„Ungültiger Prozeduraufruf oder ungültiges Argument“
Beim Exportieren:
Ich fülle alle Felder aus, klicke auf „exportieren“ und erhalte eine msgBox mit
„Datei nicht gefunden“
Das kann doch bald nicht sein, was mache ich denn da falsch ?
Kann ich Excel irgendwie zurücksetzen?
Bitte helft mir weiter!
Danke allen, die mir bis jetzt geholfen haben.
Gruß
Chris
Anzeige
AW: Speicher aus Zellen
08.12.2005 20:21:57
Unbekannter
So das mit Cancel ist erledigt und das mit dem Ausfüllen hat bei mir keine Fehler egal was drin steht selbst wenn der Dateiname fehlt geht es.

Sub raus()
On Error Resume Next
Open "c:\" & Range("Q8") & ".txt" For Output As #1
Print #1, Range("E5")
Print #1, Range("E8")
Print #1, Range("j8")
Print #1, Range("q8")
Print #1, Range("j11")
Print #1, Range("q11")
Print #1, Range("j14")
Print #1, Range("q14")
Print #1, Range("j17")
Print #1, Range("q17")
Close (1)
End Sub



Sub rein()
On Error GoTo 1
Dim satz(10) As String, dia As FileDialog
Set dia = Application.FileDialog(msoFileDialogOpen)
dia.Show
datei = dia.SelectedItems(1)
Open datei For Input As #1
Do While Not EOF(1)
a = a + 1
Input #1, satz(a)
Loop
Close (1)
Range("E5") = satz(1)
Range("E8") = satz(2)
Range("j8") = satz(3)
Range("q8") = satz(4)
Range("j11") = satz(5)
Range("q11") = satz(6)
Range("j14") = satz(7)
Range("q14") = satz(8)
Range("j17") = satz(9)
Range("q17") = satz(10)
MsgBox ("Daten wurden importiert")
1:
End Sub

Anzeige
AW: Speicher aus Zellen
08.12.2005 20:32:43
Chris
Hallo,
danke nochmals, dass mit der Importfunktion funktioniert einwandfrei!
Aber ich kann immer noch nicht exportieren. Woran das wohl liegt?
Kannst Du mir einen Tipp geben, was ich machen kann, evtl. Excel zurücksetzen?
Gruß
Chris
AW: Speicher aus Zellen
08.12.2005 20:58:16
Unbekannter
Welche Zeile bringt den Fehler?
AW: Speicher aus Zellen
08.12.2005 22:01:26
Chris
Hallo,
ich denke es liegt am Befehl „print“ irgendwie kann das mein ExcelXP bzw. WindowsXP nicht ?
Woran kann das liegen?
Chris
AW: Speicher aus Zellen
08.12.2005 22:51:21
Unbekannter
Ich hab auch Winxp und Office 2003 der Print befehl kann das nicht sein ist mir noch nie vorgekommen das Print ein Fehler verursacht wenn man ihn richtig benutzt,aber schaue mal bei den Verweisen ob da alles Stimmt.
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige