Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
288to292
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
288to292
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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 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


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

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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige