Hi Mase,
guter Ansatz, aber bekomme in der Zeile drei wieder einen Laufzeitfehler. Kannst du mir da helfen? Ich bekomme als msgbox 0.
If SuchErgebnis Is Nothing Then
Else
xlSheet.Cells(i, Spalte("Hallo")).Value = xlSheetDev.Cells(SuchErgebnis.Row, 9).Value
If i = 6 Then
xlSheet.Cells(i + 1, Spalte("Hallo")).Value = xlSheetDev.Cells(SuchErgebnis.Row, 11).Value
xlSheet.Cells(i + 18, Spalte("Hallo")).Value = xlSheetDev.Cells(SuchErgebnis.Row, 10).Value
End If
If i = 8 Then
xlSheet.Cells(i + 17, Spalte("Hallo")).Value = xlSheetDev.Cells(SuchErgebnis.Row, 10).Value
End If
End If
Next i
mit der function
Function Spalte(Bezug As String) As Integer
Dim Bereich, Zelle As Range
Set Bereich = Range("A1:AAA6")
For Each Zelle In Bereich
If Zelle.Text Like Bezug Then
Spalte = Zelle.Column
End If
Next
MsgBox Spalte
End Function
die Messagebox gibt 0 zurück, sodass das mit dem cells nicht funktionieren kann.Komischerweise funktioniert es, wenn ich die function alleine aufrufe.
Sub Test()
Spalte ("Hallo")
End Sub
Rückgabewert ist 21 somit Spalte H wie ich es will
|