103540
21.03.2012
3211
2
0
Sich verändernde Daten aus Zelle auslesen und in Textdatei schreiben
Moin
ich habe wieder ein kleines Problem und konnte in der Suche nichts finden.
Ich habe ein Button der beim klicken in der Zelle nebenan eine Vorgangsnummer hochzählt. Nach klicken des Button soll er jetzt allerdings noch zusätzlich die Vorgangsnummer die er erstellt in eine Textdatei schreiben.
Dies funktioniert auch schon, allerdings bei wiederholtem klick und neuer vorgangsnummer überschreibt er die alte textdatei. Er soll aber die vorhandene benutzen und den Text hinten einfügen. Die Textdatei soll als Sicherung dienen falls die Vorgangsnummern in der Exceldatei mal verloren gehen. So weiss man immer welche Vorgangsnummer zuletzt erstellt wurde.
Grüße
Amiga500
ich habe wieder ein kleines Problem und konnte in der Suche nichts finden.
Ich habe ein Button der beim klicken in der Zelle nebenan eine Vorgangsnummer hochzählt. Nach klicken des Button soll er jetzt allerdings noch zusätzlich die Vorgangsnummer die er erstellt in eine Textdatei schreiben.
Dies funktioniert auch schon, allerdings bei wiederholtem klick und neuer vorgangsnummer überschreibt er die alte textdatei. Er soll aber die vorhandene benutzen und den Text hinten einfügen. Die Textdatei soll als Sicherung dienen falls die Vorgangsnummern in der Exceldatei mal verloren gehen. So weiss man immer welche Vorgangsnummer zuletzt erstellt wurde.
Private Sub button1_Click()
Dim Textdatei As String
Dim var1 As String
With Range("G32")
.Value = .Value + 1
End With
Textdatei = InputBox("Vorgangsnummern:", "Vorgangsnummer speichern", "c:\xxx\xxx\xxx\Vorgangsnummern.txt")
var1 = Application.Range("Änderungsantrag!G32")
Open Textdatei For Output Access Write As #1
Write #1, var1
Close #1
End SubGrüße
Amiga500
Kommentieren
Teilen
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 182338
Url: https://administrator.de/forum/sich-veraendernde-daten-aus-zelle-auslesen-und-in-textdatei-schreiben-182338.html
Ausgedruckt am: 18.05.2025 um 16:05 Uhr
2 Kommentare
Neuester Kommentar
Hallo Amiga500!
Versuch es anstelle der Zugriffsart "
Grüße
bastla
Versuch es anstelle der Zugriffsart "
Output" mit "Append" ...Grüße
bastla
Danke Dir...
Wenn mal jedes Problem so schnell zu lösen wäre ;)
Grüße
Amiga500
Wenn mal jedes Problem so schnell zu lösen wäre ;)
Grüße
Amiga500
