Microsoft Excel

Herbers Excel/VBA-Archiv

Unerklärliche Fehlermeldung

Betrifft: Unerklärliche Fehlermeldung von: Heiko
Geschrieben am: 17.09.2004 13:39:41

Hallo Experten,
ich trage Daten zeilenweise in eine Tabelle ein.
Vorher kopiere ich die aktuelle Zeile und füge diese an der aktuellen Stelle ein. Damit habe ich immer genügend Zeilen frei.

Ich bekomme nun plötzlich die Fehlermeldung (siehe Bild).
Was kann ich dagegen tun. Der Code hat vor her ca. 100 mal funktioniert?


Case "Lagerprotokoll"
ZA = Worksheets(Anlage).Range("A3").Value
If Not ZA < 11 Then
Worksheets(ActiveSheet.Name).Rows(ZA + 1).Copy
Worksheets(ActiveSheet.Name).Rows(ZA + 1).Insert <-------------- HIER
ActiveSheet.Cells(ZA + 1, 1).Select
End If


Danke für Eure Hilfe
Beste Grüße Heiko

  


Betrifft: AW: Unerklärliche Fehlermeldung von: Heiko
Geschrieben am: 17.09.2004 13:43:02

Sorry, habe den Link vergessen



  


Betrifft: AW: Unerklärliche Fehlermeldung von: nighty
Geschrieben am: 17.09.2004 16:54:04

hi heiko :)

bei mir lief das makro,daher kann ich nur vermuten das deine zahl bzw. variable ZA noch keine zahl ist,probier diese variante mal bzw achte auf das format der zelle.

gruss nighty

val(var) wandelt einen string in eine zahl um

ZA = Val(Worksheets(Anlage).Range("A3").Value)


  


Betrifft: AW: Unerklärliche Fehlermeldung von: Heiko
Geschrieben am: 20.09.2004 09:03:37

hallo nighty
Vielen Dank für Deinem Tipp. funktioniert trotzdem nicht.

Ich habe die 'Copy' und die 'Inert' Zeilen inzwischen weggelassen.
Selbst dann kommt die Fehlermeldung (-2147417848), aber da wird dann nicht mehr 'Insert' sondern ... 'Value' für das Objekt 'Range' beanstandet. Wenn ich dann auf Debuggen gehe
kann ich mit F8 im Einzelschritt aber ohne Probleme weitermachen.

Ich habe jetzt erstmal die 'On Error Resume Next' Zeile in den Code geschrieben.
Es ist aber keine saubere Lösung.

Also nochmals vielen Dank
Gruß Heiko


 

Beiträge aus den Excel-Beispielen zum Thema "Unerklärliche Fehlermeldung"