Office: (Office 2013) Fehler beim kompilieren sub oder Function nicht definiert

Hallo zusammen
erhalte Fehlermeldung:
Fehler beim Kompilieren oder Function nicht definiert.
übersehe ich etwas. (bin neuling)
Bin dankbar für jede Unterstützung


Private Sub cmdSpeichern_Click()
'überträgt die eingetragenen Werte in erste leere Zeile Tabelle "Matrix)

Dim intErsteLeereZeile As Long

With Worksheets("Matrix")
intErsteLeereZeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1
If intErsteLeereZeile = 3 Then .Cells(intErsteLeereZeile, 1).Value = 100
End With

schreibeDaten Worksheets("Matrix"), intErsteLeereZeile
Worksheets("Matrix").Cells(intErsteLeereZeile, 1) = Worksheets("Matrix").Cells(intErsteLeereZeile - 1, 1) + 1
Unload Me
UserForm1.Show

End Sub

:)

 

Hallo

was hast du denn hiermit

schreibeDaten Worksheets("Matrix"), intErsteLeereZeile

vor?


MfG Tom

 

vielen Dank für die Rückmeldung.

Ich habe den Code aus einem Excel File, das ich mit viel Unterstützung von Foren erstellt habe.

Wie schon gesagt habe nicht viel Ahnung von VBA.*frown.gif*

Was ich möchte ist das daten aus textboxen (Formular) in eine neue Zeile in Tabelle Matrix geschrieben werden.
die Daten sollen nummeriert werden beginnend mit 100.
anschliessend sollten die texboxen geleert werden.

herzlichen Dank im Voraus für deine Unterstützung
grüsse Toni

 

und was soll die eine Zeile

schreibeDaten Worksheets("Matrix"), intErsteLeereZeile

bewirken?

 

Sorry ich weiss es nicht, scheint als ob ich die gar nicht benötige.
*frown.gif* *frown.gif*
Wie gesagt habe mich die letzetn 4 jahre nicht mehr damit beschäftigt.
*rolleyes.gif*

 

Richtig! Die Zeile brauchst du nicht. Das war entweder mal eine Kommentarzeile, oder ein Versuch. einfach weglassen!

Da aber nicht klar ist, was in der Zeile 2 steht, ist es nicht klar, was in Zeile drei geschrieben werden soll. Erst schreibst du 100 rein und beim nächsten Schritt dann die Zahl in 2 + 1. In dem Code wird entweder 100 oder Zahl + 1 geschrieben: Code:

 

Hallo

Vielen, vielen herzlichen Dank.
Peinlich, ich hab wirkliche keine Ahnung*upps

jetzt speichert es die nummerierung so wie ich es haben wollte.

aber die restlichen daten werden nicht abgespeichert.

es sind noch 12 Textfelder.

bin wirklich dankbar für die Unterstüzung die ich hier im Forum erhalte

Beste Grüsse Toni

 

Hallo

spätestens jetzt solltest du eine Beispieldatei zeigen
woher soll man wissen wo du was aus welchen Textboxen speichern willst


MfG Tom

 

Hallo zusammen
beiliegend die Beispieldatei
Herzlichen Dank das ihr euch Zeitnehmt
Grüsse
Toni

 

Moin!
Mein Windows kann kein .rar öffnen.
Nutze .zip

Gruß Ralf

 

Vielen Dank Ralf

 

Hallo

hat das abspeichern der anderen TextBoxen denn vorher funktioniert?
auf dem Tabellenblatt sind ja nicht mal Überschriften vorhanden
da sind wir jetzt genau so schlau wie vorher


MfG Tom

 

Hallo

also mal geraten könnte es so aussehen

Code:

MfG Tom

 

Vielen Dank Tom

So komme ich wieder weiter.
allerdings frage ich mich schon wie der alte code funktioniert.
da muss ich die Textboxen nicht einzeln im code eingeben?
ich lege mal die alte datei 1 zu 1 bei.

Die suchfunktion ist dann mein nächster VERSUCH:::*grins *rolleyes.gif*

Nochmals herzlichen Dank für die tolle Hilfe
Beste Grüsse Toni

 

Hallo

dann hast du in der Datei mit der Fehlermeldung nicht die Sub

Sub SchreibeDaten.....

aus Modul 1 drin
deswegen zeigt dir die Fehlermeldung ja auch,
dass die Sub oder Funktion nicht definiert ist

MfG Tom