Office: Letzte Zeile einer Tabelle ermitteln.

Hallo,

ich brsuche mal wieder Hilfe mit einem Code.

PHP:

         Sub Test_Datenholen()
Dim Dateiname As String
Dim sPfad As String
Dim rngZelle As Range
Dateiname = "Daten_aus_ZC56-IW59.xlsx.xlsm"
sPfad = "W:Abteilung_internPEE_FLV222_KAPAMaster_Dat"

Sheets.Add(after:=Sheets(Sheets.Count)).Name = "z"
'LetzteZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For Each rngZelle In Sheets("z").Range("B2:J50")
rngZelle = HoleWert(sPfad, Dateiname, "IW-59", rngZelle.Address)
Next rngZelle
Worksheets("z").Range("J2:J50").NumberFormat = "0.0"
Worksheets("z").Range("D2:D50").NumberFormat = "dd.mm.yyyy"
Worksheets("z").Range("B2:J50").Copy
With Worksheets("Service_ELO").Range("B3")
.PasteSpecial Paste:=xlPasteValues ' Werte
'.PasteSpecial Paste:=xlFormats ' Formate
End With

Sheets("z").Range("B2:J50").Copy
'Destination:=Sheets("Service_ELO").Range("B3")
With Worksheets("Service_ELO").Range("B3")
.PasteSpecial Paste:=xlPasteValues ' Werte
'.PasteSpecial Paste:=xlFormats ' Formate
End With

Application.DisplayAlerts = False
Call ServiceKopieren
Sheets("z").Delete
Application.DisplayAlerts = True



End Sub
Public Function HoleWert(path$, file$, sheet$, range_ref$)
Dim arg As String
If Right(path, 1) <> "" Then path = path & ""
If Dir(path & file) <> "" Then
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(range_ref).Range("A1").Address(, , xlR1C1)
HoleWert = ExecuteExcel4Macro(arg)
End If
End Function


:)

 

Hallo,

die Suchmaschine deines Vertrauens hat da viele, viele komplett fertige Lösungen für dich.

Hier eine davon.

 

Ja, das ist es ja. Ich habe viele Lösungen gefunden und ausprobiert, aber ich weis nicht wie bzw. wo ich das einbauen kann / soll.

 

Hi,

nach diesem Prinzip:

Code: