wenn ich bei der Arbeit, dieses Makro in Excel 8.0 starte
kommt folgende Fehlermeldung:
Laufzeitfehler 13 : Typen unverträglich
in folgender Codezeile:
If Sheets("Ergebnisse").Cells(Zeile, 3) = Suche Then
Sub urkunde12042003()
' Urkunde Anhand der Startnummer drucken
Dim Suche As Integer
Dim Zeile As Long
Dim Spalte As Integer
Sheets("Urkunde").Select
Range("B14:C17,D17,C18,C19,C20,D21").ClearContents
Suche = Sheets("Urkunde").Cells(12, 8)
Application.ScreenUpdating = False
Worksheets("Ergebnisse").Activate
Cells(1, 1).Select
For Zeile = 1 To Cells.SpecialCells(xlLastCell).Row
If Sheets("Ergebnisse").Cells(Zeile, 3) = Suche Then
Sheets("Urkunde").Cells(14, 2) = Sheets("Ergebnisse").Cells(Zeile, 12)
Sheets("Urkunde").Cells(17, 1) = Sheets("Ergebnisse").Cells(Zeile, 6)
Sheets("Urkunde").Cells(17, 2) = Sheets("Ergebnisse").Cells(Zeile, 5)
Sheets("Urkunde").Cells(18, 3) = Sheets("Ergebnisse").Cells(Zeile, 10)
Sheets("Urkunde").Cells(19, 3) = Sheets("Ergebnisse").Cells(Zeile, 1) & ". Platz Gesamtwertung"
Sheets("Urkunde").Cells(20, 3) = Sheets("Ergebnisse").Cells(Zeile, 2) & ". Platz in der Altersklasse"
Sheets("Urkunde").Cells(21, 4) = Sheets("Ergebnisse").Cells(Zeile, 4)
End If
Next Zeile
If IsEmpty(Sheets("Urkunde").Cells(21, 4)) Then
Sheets("Urkunde").Select
MsgBox "Startnummerdaten nicht vorhanden!"
Exit Sub
End If
Application.ScreenUpdating = True
Sheets("Urkunde").Select
Sheets("Urkunde").Cells(17, 3).Value = Cells(17, 1).Value & " " & Cells(17, 2).Value
Range("A17,B17").ClearContents
If Range("I1000").End(xlUp).Row + 1 < 20 Then
LetzteZeile = 20
Else
LetzteZeile = Range("I1000").End(xlUp).Row + 1
End If
'Wert übertragen
Cells(LetzteZeile, 9) = Range("H12")
Sheets("Urkunde").Select
Range("H12").Select
ActiveSheet.PrintOut
End Sub
Kann mir jemand das Makro so umbauen des es in Excel 8.0 läuft?
Vielen Dank für eure Hilfe!
Tschüß
Rolf