With Sheets Fehler

Sub Test()
istLeer = False
'Aufbau von metalle(x, y, z)
'x = Zeilenangabe, bei mehreren Proben werden mehrere Zeilen benötigt
'y = Nummer des Datensatzes, zählt für jede Übertragung 1 hoch
'z = 0, Zelle die kopiert werden soll
'  = 1, Spalte in der Zieldatei, wo die Werte eingefügt werden sollen
'  = 2, Quelltabelle (wenn nicht gesetzt dann ist diese das Deckblatt)
'  = 3, Alternative zu z = 0 -> Hier kann direkt ein Text eingegeben werden, der dann so ü  _
_
bertragen wird
Dim metalle(10, 20, 3) As String
Dim metalle_proben
Dim lCellMetalle As range
Dim lRowMetalle As Long
Dim metalleRange As range
Dim flag As Boolean: flag = False
metalle_proben = gibProbenArray(Sheets("Metalle").range("D19:D26"), Sheets("Metalle").range( _
_
"S19:S26"))
With Sheets("MakroData")
Set lCellMetalle = .Cells.Find(What:="*", After:=range("A3"), _
LookIn:=xlFormulas, lookat:=xlWhole, searchorder:=xlByRows, _
searchdirection:=xlPrevious)
If lCellMetalle Is Nothing Then
lRowMetalle = 1
Else
lRowMetalle = lCellMetalle.Row + 1
End If
metalleRange = .range("A3:E" & lRowMetalle) '