Methode 'Range" für das Objekt '_Worksheet' ist fe
siegfried.tuerk@bosch.com
ich habe seit kurzem ein Problem, dass ich das Makro über ein Formular nicht mehr ausführen kann.
Bei einigen Kollegen funktioniert die Datei noch immer einwandfrei. Bei mir bricht das Makro jedoch ab; siehe Meldung.
Hat mir vielleicht jemand einen Tip, was hier passiert sein könnte?
Der Debugger bleibt beim Fettgedruckten stehen.
Für jede Hilfe bin ich sehr dankbar.
vielen Dank im voraus
Siggi
If bNew Then
iRow = 2
If IsNumeric(Me.txtAngebotNr.Text) Then
lNr_New = CLng(Me.txtAngebotNr.Text)
Do
lNr = CLng(Tabelle1.Range("K" & CStr(iRow)))
If lNr = lNr_New Then
If bNew Then 'Neuer Eintrag sollte erstellt werden
bErgebnis = False
strError = strError & vbCrLf & "da die Angebotsnummer bereits verwendet wurde"
Exit Do
End If
End If
If lNr = 0 Then Exit Do
iRow = iRow + 1
Loop
End If
End If
'iRow zeigt nun die Zeile in der das Angebot eingefügt werden kann (wenn alles ok ist)
If bErgebnis Then bErgebnis = CheckAngebotRegex(strError)
If bErgebnis Then bErgebnis = CheckKundeRegex(strError)
If bErgebnis Then
DoProtection "Angebote", True
'Einträge in iRow vornehmen
Tabelle1.Range("A" & CStr(iRow)) = Me.txtSachbearbeiter.Text
Tabelle1.Range("B" & CStr(iRow)) = Format(Me.DTPicker1.Value, "dd.MM.yy")
Tabelle1.Range("C" & CStr(iRow)) = Me.txtMeldung.Text
Tabelle1.Range("D" & CStr(iRow)) = Me.txtVorgangsNr.Text
Tabelle1.Range("E" & CStr(iRow)) = Me.txtMaschTyp.Text
Tabelle1.Range("F" & CStr(iRow)) = Me.txtMaschNr.Text
Tabelle1.Range("G" & CStr(iRow)) = Me.txtKundenNr.Text
Tabelle1.Range("H" & CStr(iRow)) = Me.txtKdName.Text
Tabelle1.Range("I" & CStr(iRow)) = CStr(Me.cmbKdLand.Value)
Tabelle1.Range("J" & CStr(iRow)) = Me.txtKdOrt.Text
Tabelle1.Range("K" & CStr(iRow)) = Me.txtAngebotNr.Text
Tabelle1.Range("L" & CStr(iRow)) = Me.txtÜberschrift.Text
DoProtection "Angebote"
End If