Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Code erweitern

Betrifft: Code erweitern von: Frank
Geschrieben am: 02.11.2020 15:23:56

Hallo zusammen,
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
vielen Dank

Betrifft: AW: Code erweitern
von: Nepumuk
Geschrieben am: 02.11.2020 15:46:30

Hallo Frank,

so:
Set Ziel = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Gruß
Nepumuk

Betrifft: AW: Code erweitern
von: Frank
Geschrieben am: 02.11.2020 16:00:01

Hallo Nepumuk,
es funktioniert. Ich danke dir recht herzlich.

Gruß Frank

Betrifft: AW: Code erweitern
von: Frank
Geschrieben am: 02.11.2020 16:00:03

Hallo Nepumuk,
es funktioniert. Ich danke dir recht herzlich.

Gruß Frank

Beiträge aus dem Excel-Forum zum Thema "Code erweitern"