Problem mit Makro
27.12.2003 19:09:57
Tom
brauche Eure Hilfe, was ist hier falsch:
(Ich bekomme in Excel bei .Cells(IngRow, 1) = Range("C4") einen Objektorientierten fehler angezeigt)
Function GetRow(strAufNr) As Long
On Error Resume Next
With Sheets("Daten") 'dort werden die Aufträge abgelegt
GetRow = WorksheetFunction.Match(strAufNr, .Range("A:A"), 0)
If Err Or GetRow = 0 Then
GetRow = .Rows(.Rows.Count).End(xlUp).Row + 1
End If
End With
On Error GoTo 0
End Function
Sub SaveChanges()
Dim lngRow As Long
lngRow = GetRow(Range("B1").Value)
With Sheets("Daten")
.Cells(IngRow, 1) = Range("C4")
.Cells(IngRow, 2) = Range("L4")
.Cells(IngRow, 3) = Range("C6")
.Cells(IngRow, 4) = Range("L6")
.Cells(IngRow, 5) = Range("C8")
End With
End Sub
Dankeschön an alle
Tom