Code erweitern
02.11.2020 15:23:56
Frank
ich habe ein kleines Problem, ihr könnt mir sicherlich helfen.
Kann mir jemand diesen Code so umschreiben das er nicht in A3 einfügt, sondern in der ersten leeren Zeile in Spalte A.
Public Sub DatenNWB()
' Die Funktion arbeitet mit der obrigen GetDataClosedWB zusammen
Dim PFAD As String
Dim Dateiname As String
Dim Blatt As String
Dim Bereich As String
Dim Ziel As Range
PFAD = "B:\FLS-Test\via Lüll ex Test\"
Dateiname = "0" ' aus welcher Datei soll er holen?
Blatt = "0" ' von welcher Tabelle soll er holen?
Bereich = "A4:R200" ' aus welchem Bereich soll er holen?
Sheets("NWB.").Activate
Set Ziel = ActiveSheet.Range("A3") ' in welchen Bereich soll er kopieren? Genauer gesagt: _
Bei welcher Zelle soll er anfangen, Datein reinzukopieren? Bsp: ActiveCell geht auch
If GetDataClosedWB(PFAD, Dateiname, Blatt, Bereich, Ziel) Then
MsgBox "Daten importiert"
End If
End Sub
Anzeige