Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Textdatei erzeugen + löschen

Forumthread: Textdatei erzeugen + löschen

Textdatei erzeugen + löschen
01.08.2003 07:34:06
Steffen
Hallo und guten morgen,
ich habe ein Problem bei dem ich bitte Eure Hilfe brauche!
Und zwar möchte ich beim öffnen einer Mappe eine Textdatei erzeugen, in die ich den Benutzernamen eintragen möchte und diese soll dann wieder geschlossen werden.
Beim schliessen der Mappe soll diese Datei dann gelöscht werden.
Während diese Datei existiert, möchte ich den Inhalt gern von einer anderen Mappe auslesen lassen.
Vielleicht habt Ihr dazu ne Idee, denn mit TXT Dateien habe ich noch nicht soviel gemacht.
Danke schonmal
Steffen
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textdatei erzeugen + löschen
01.08.2003 07:44:06
Stephan
Hi Steffen!
Das hört ziemlich eigenartig an. Kannst Du das ganze Problem schildern ?! Die Cracks hier im Forum wissen vielleicht eine andere bessere Lösung ...
Gruß
Stephan

AW: Textdatei erzeugen + löschen
01.08.2003 07:47:19
Ivan
hi Steffen
eine sehr gute seite zum nachlesen
http://195.186.84.74/soscq/vbacode.htm
hoffe es hilt dir
gruss
ivan

Anzeige
AW: Textdatei erzeugen + löschen
01.08.2003 08:18:28
Stephan
Hi Steffen!
Weil hier im Forum ja alle Wünsche erfüllt werden :-)), ein Code für Dich:

Sub schreiben()
Dim NeueMappe As Workbook
Dim benutzer As String
Set NeueMappe = Workbooks.Add
benutzer = InputBox("Bitte Benutzernamen eingeben", benutzername)
Range("A1") = benutzer
NeueMappe.SaveAs "Benutzername" & ".txt", FileFormat:=xlTextMSDOS
NeueMappe.Close
End Sub


Sub auslesen()
Workbooks.OpenText FileName:="Benutzername.txt"
End Sub

Gruß
Stephan

Anzeige
AW: Textdatei erzeugen + löschen Korrektur
01.08.2003 08:19:28
Stephan
eine Korrektur:

Sub schreiben()
Dim NeueMappe As Workbook
Dim benutzer As String
Set NeueMappe = Workbooks.Add
benutzer = InputBox("Bitte Benutzernamen eingeben", benutzer)
Range("A1") = benutzer
NeueMappe.SaveAs "Benutzername" & ".txt", FileFormat:=xlTextMSDOS
NeueMappe.Close
End Sub


Sub auslesen()
Workbooks.OpenText FileName:="Benutzername.txt"
End Sub


Anzeige
AW: Textdatei erzeugen + löschen Korrektur
01.08.2003 08:47:23
Michael Scheffler
Hi Stephan,
etwas von hinten durch die Brust ins Auge Dein Code?
Hilfe etwas abgewandelt:

Sub MakeTxT()
Dim strNutzer As String
strNutzer = Stephan"
Open "Nutzer" For Output As #1    ' Datei zur Ausgabe öffnen.
Write #1, strNutzer
Close #1    ' Datei schließen.
End Sub


Sub KillTxT
Kill "Nutzer"
End Sub

MFG
Micha

Anzeige
AW: Textdatei erzeugen + löschen Korrektur
01.08.2003 08:53:48
Stephan
Hi Micha!
Klar, es geht immer ein Stück eleganter.
Jeder tut halt, was er kann ... ;)

so ganz steig ich noch nicht dahinter
01.08.2003 10:52:56
Steffen
also das erzeugen der Datei geht super, nur wie komme ich an diese Datei von einer zweiten Mappe ran.
Es soll also so laufen
Mappe1 wird geöffnet --> Textdatei wird erzeugt.
Benutzer 2 öffnet eine andere Mappe und dort soll dann die Meldung kommen " Der Benutzer XY befindet sich zur Zeit in der Mappe1
Beim beenden von Mappe1 soll dann die TXT Datei gelöscht werden.
Danke nochmal
Steffen
PS: Ihr seit seit wirklich spitze

Anzeige
Habs selbst gelöst,
01.08.2003 11:29:09
Steffen
hier mein kleiner Erfolg:
~begin~

Sub ReadTXT()
zeile = 1
On Error GoTo raus
Open "Nutzer" For Input As #1
Do Until EOF(1)
Line Input #1, variable
'Range("a" & zeile).Value = variable
Info = MsgBox("Es befindet sich gerade der Benutzer: " & Chr(13) & Chr(13) & variable & Chr(13) & Chr(13) & "in der Vorführwagenverwaltung." & Chr(13) & Chr(13) & "Bitte versuchen Sie es später nocheinmal.", vbInformation, "Vorführwagenverwaltung")
zeile = zeile + 1
Loop
Close
raus:
End Sub

~end~
Danke Euch nochmal vielmals
Steffen

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige