Hallo Leute
ich hab echt kein Plan von VBA.
Vorhandene Datei: - eine .txt Datei die hat mehrere Zahlen , Werte etc.
Meine Aufgabe ist es ein Code zu schreiben, welches die Datei mit einem Button öffnet( also da dachte ich dann mache ich ein Worksheet auf nenne es Start setze ein Button hin das Öffnen heißt der öffnet mir den Explorer und ich kann die jeweilige Datei auswählen).
So nachdem die ausgewähle Datei dann in der Excel Datei in einem neuen Arbeitsblatt geöffnet ist, soll ich ein Code schreiben welches mir die Zeilen ausliest von spalte B und wenn es auf Spalte B ein Buchstaben entdeckt soll es mir in ein neues Arbeitsplatt hinzufügen, wenn er das gemacht hat soll er noch den Wert bei Spalte i4 mitnehmen und ihn darunter im neuen Arbeitsblatt einfügen.
ich hab echt kein Plan von VBA.
Vorhandene Datei: - eine .txt Datei die hat mehrere Zahlen , Werte etc.
Meine Aufgabe ist es ein Code zu schreiben, welches die Datei mit einem Button öffnet( also da dachte ich dann mache ich ein Worksheet auf nenne es Start setze ein Button hin das Öffnen heißt der öffnet mir den Explorer und ich kann die jeweilige Datei auswählen).
So nachdem die ausgewähle Datei dann in der Excel Datei in einem neuen Arbeitsblatt geöffnet ist, soll ich ein Code schreiben welches mir die Zeilen ausliest von spalte B und wenn es auf Spalte B ein Buchstaben entdeckt soll es mir in ein neues Arbeitsplatt hinzufügen, wenn er das gemacht hat soll er noch den Wert bei Spalte i4 mitnehmen und ihn darunter im neuen Arbeitsblatt einfügen.
Visual Basic:
Sub CommandButton1_Click()
Dim wsTarget As Worksheet
Dim varDatei As Variant
wsTarget = Worksheet("Datei")
varDatei = Application.GetOpenFilename()
If varDatei = False Then
MsgBox "Sie haben das Öffnen abgebrochen.", vbInformation, p_cstrAppName
Else
MsgBox "Ausgewählte Datei:" & vbCrLf & varDatei, vbInformation, p_cstrAppName
End If
Set wsTarget = Worksheets("Datei")
End Sub
Anhänge
Zuletzt bearbeitet: