Hallo liebes Forum,
ich habe ein Problem mit VBA und Excel. Ich möchte die Zelleninhalte B5, C5 und E5 aus dem Sheet „Mitarbeitererfassung“ in eine Textdatei schreiben. Wie kann ich später diese in der Textdatei gespeicherten Werte wieder auslesen und in die Zellen B12, C15 und E84 des Sheets „Bonus“ einfügen?
Hallo Achim,
da brauchst du zwei Makros. Die Deklaration der Variablen var1, var2 und var3 muß du natürlich an die Inhalte der 3 Zellen anpassen. in meinem Beispiel sind alle Variablen als Text deklariert.
Sub Daten\_nach\_Textdatei\_schreiben()
Dim Textdatei As String, var1 As String, var2 As String, var3 As String
Textdatei = InputBox("Name der Textdatei:", "Bonusdaten speichern", "C:\Test\Textdatei.txt")
var1 = Application.Range("Mitarbeitererfassung!B5")
var2 = Application.Range("Mitarbeitererfassung!C5")
var3 = Application.Range("Mitarbeitererfassung!E5")
Open Textdatei For Output Access Write As #1
Write #1, var1, var2, var3
Close #1
End Sub
Sub Daten\_nach\_Bonus\_einlesen()
Dim Textdatei As String, var1 As String, var2 As String, var3 As String
Textdatei = InputBox("Name der Textdatei:", "Bonusdaten einlesen", "C:\Test\Textdatei.txt")
Open Textdatei For Input Access Read As #1
Input #1, var1, var2, var3
Close #1
Application.Range("Bonus!B12") = var1
Application.Range("Bonus!C15") = var2
Application.Range("Bonus!E84") = var3
End Sub
Der Inhalt der Textdatei sieht dan z.B. so aus:
"Wert 1","Wert 2","Wert 3"
Warum der Umweg über die Text-Datei?
Schreibe die Daten per VBA aus den Zellen B5, C5 und E5 im Sheet „Mitarbeitererfassung“ in ein weiteres Sheet „Textdatei“ in die Zellen A1, B1, C1.
Aus diesem Blatt kannst du die Daten dann bei Bedarf in das Blatt „Bonus“ übertragen.
Gruß
Franz
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Franz,
vielen lieben Dank! Hat super geklappt.
Gruß Achim