Office: Fehler

hallo liebe Excelgemeinde,

ich bastele gerade an einem makro, folgender hintergrund:

ich will daten in ein protokoll schreiben, abhängig von einer laufenden nummer. ist diese nummer in spalte A bereits vorhanden, dann diese nummer überschreiben und die weiteren daten in diese zeile eintragen.
ist diese nummer nicht vorhanden, soll die lfd. nr. in die erste freie Zelle in spalte A geschrieben werden und die weiteren daten in diese zeile.

der code funktioniert soweit, wenn die lfd. nummer nicht vorhanden ist.
wenn die lfd. nummer vorhanden ist, werden diese werte zwar in der richtigen zeile überschrieben, aber zusätzlich nochmal ans ende des protokolls geschrieben.

ich wollte das nun mit dieser sprungmarke lösen, hab das aber noch nie gemacht und weiß mit der fehlermeldung: "Fehler beim Kompilieren - Sprungmarke nicht definiert" überhaupt nichts anzufangen. geht das überhaupt so?

Der Code:


'Suchen ob die laufende Nummer bereits eingegeben ist

lfdnr = Workbooks(ex).Sheets(e).Range("d6")

For a = 1 To 65.536
If Workbooks(ex).Sheets(p).Cells(a, 1) = lfdnr Then
Sheets(p).Cells(a, 1).Value = Workbooks(ex).Sheets(e).Range("d6") 'laufende Nummer
Sheets(p).Cells(a, 1 + 1).Value = Workbooks(ex).Sheets(e).Range("d5") 'Tag
Sheets(p).Cells(a, 1 + 2).Value = Workbooks(ex).Sheets(s).Range("a55") 'Uhrzeit

GoTo sprungmarke 'weiterspringen um nicht die Daten nochmal an die letzte Zeile zu schreiben

End If
Next a


'Kopieren der Daten ins Protokoll an letzte Stelle, wenn die lfd. Nr. nicht vorhanden ist
With Workbooks(ex).Sheets(p).Cells(Rows.Count, 1).End(xlUp)
.Offset(1, 0).Value = Workbooks(ex).Sheets(e).Range("d6") 'Laufende Nr.
.Offset(1, 1).Value = Workbooks(ex).Sheets(e).Range("d5") 'Tag
.Offset(1, 2).Value = Workbooks(ex).Sheets(s).Range("a55") 'Uhrzeit

End With

sprunkmarke: 'hier weitermachen, wenn lfd. Nummer bereits vorhanden ist

'fortlaufende Nummer um 1 erhöhen
wert = Workbooks(ex).Sheets(e).Range("f6")
Workbooks(ex).Sheets(e).Range("d6") = wert + 1


danke schon mal an alle die das lesen.

mfg heidi

:)

 

Moin, Heidi,

allgemeiner Tipp: auch wenn es beschwerlich ist - verwende Option Explicit, dann würde die betreffende Zeile markiert.

sprungmarke (als Anweisung) und sprunkmarke (als Ziel) sind nicht identisch, bitte ändern...

 

hallo jinx,

ähm das ist mir jetzt aber unangenehm.... ein schreibfehler....!!

danke, jetzt kommt wenigstens keine fehlermeldung mehr.

funktioniert zwar noch nicht so wie ich will, aber da tüftel ich jetzt weiter.

gruß heidi

 

Hallo Heidi,

du musst ja einen Wahnsinnsrechner haben, wenn du es dir erlauben kannst, alle 65653 Zeilen zu durchsuchen, auch wenn nur ein paar Datensätze in der Tabelle stehen. Durch vorherige Ermittlung der letzten Zeile könntest du sicher einiges an Performance gewinnen.

Eben fällt mir auf, dass doch nur die ersten 65 (!) Zeilen geprüft werden, da der Punkt nicht als Tausendertrennzeichen interpretiert wird, sonder als Komma!

Steht denn die Sprungmarke an der richtigen Stelle? Die fortlaufende Nummer soll doch sicher nur erhöht werden, wenn ein neuer Datensatz eingetragen wurde. Bei deinem Code wird sie aber in jedem Fall hochgezählt.

Noch ein paar kleine Anmerkungen:

Die laufende Nummer scheint in D6 zu stehen. Du liest aber F6 aus, um den Zähler zu erhöhen. F6 wird zumindest in diesem Codeabschnitt nicht verändert.

Wenn die laufende Nummer in Cells(a,1) gefunden wurde, brauchst du sie eigentlich nicht noch einmal hineinzuschreiben.

Statt Cells(a,1+1) bzw. Cells(a,1+2) würde ich Cells(a,2) bzw. Cells(a,3) schreiben.

CU

Johannes

 

Hallo Johannes,

vielen Dank für deine Unterstützung zur Lösungsfindung bei meinem Problem mit der Sprungmarke!

Ich bin noch etwas ungeübt mit Makros, deshalb erstmal auch die 65.000 Zeilen...... *eek.gif*

Aber dank der Hinweise und ausprobieren hab ich es inzwischen hinbekommen.

Unerklärlicherweise hab ich aber darüber die Rückmeldung bei Dir vergessen, Asche über mein Haupt!!!

Schönes Wochenende

Mfg Heidi