103540
Mar 21, 2012
3128
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 Sub
Grüße
Amiga500
Please also mark the comments that contributed to the solution of the article
Content-Key: 182338
Url: https://administrator.de/contentid/182338
Printed on: April 24, 2024 at 04:04 o'clock
2 Comments
Latest comment