Office: Werte aus TextBox in erster freier Zelle einer andere Tabelle schreiben

Hallo Berni,

ich habe das End If noch im oberen Cade-Teil eingefügt. Fehlermeldung kommt jetzt keine mehr, dafür wird aber nur der Wert aus der Textbox1 in "C" geschrieben und der Rest nicht.

Danke trotzdem

 

Ah ja, End If vergessen...

Kann das Problem nicht nachvollziehen. Ich hoffe, du hast die Zeile
Code:

so interpretiert, dass du noch die restlichen Zellen einfügen musst, die befüllt werden sollen?
Weil mein Code befüllt ja nur Spalte B und H aus Textbox1 & 2.

 

Hallo Berni,

Asche auf mein Haupt. Das habe ich komplett übersehen.
Mein Fehler!!!!!


Auf jeden Fall ein ganz großes Dankeschön von mir.

Gruß

Olero

 

Soweit so gut.

Jetzt habe ich noch das Problem mit dem Datumsformat in der Combobox.
In der Tabelle "Daten" sind die Zellen als Datumsformat formatiert. Ich habe jetzt mal folgenden Code ausprobiert und es klappt natürlich nicht.

Private Sub Medikamentenverwaltung_Initialize()
Dim Zeile As Integer
For Zeile = 1 To 9
ComboBox7.Value = Format(CDate(ComboBox7.Value), "dd.mm.yyyy")
ComboBox8.Value = Format(CDate(ComboBox8.Value), "dd.mm.yyyy")

Next Zeile
End Sub

 

Private Sub ComboBox7_Change()
ComboBox7.Text = Format(ComboBox7.Text, "dd-mm-yyyy")
End Sub
Private Sub ComboBox8_Change()
ComboBox8.Text = Format(ComboBox8.Text, "dd-mm-yyyy")
End Sub

und das Datum ist drin.
Jetzt werden nur die TextBoxen als Text wieder gegeben und nicht als Zahl und Kopf hängt.

 

Bei deinem CommandButton1_Click schriebst du statt
Code:

besser
Code:

Damit werden tatsächlich Zahlen in die Tabelle geschrieben (denn ein Datum ist letztlich auch nur eine Zahl). Du kannst das bei allen Comboboxen machen, bei denen eine Zahl geschrieben werden soll. Ist die Zelle im Blatt nun als Datum formatiert, wird es auch korrekt angezeigt.

Soll tatsächlich Text ins Blatt geschrieben werden soll, nimmst du statt .Value besser .Text. Beispielsweise
Code:

Wenn du also mit den Werten nicht rechnen musst, eignet sich Text ganz gut.

Soweit mal zum Eintrag der Daten in die Tabelle. Damit direkt am Userform die Combobox als Datum richtig angezeigt wird, machst du
Code:

 

Hallo Berni,

das mit dem Value habe ich jetzt berücksichtigt.
Ich habe nur noch mit der Spalte J (hier wird Text an statt zahl eingetragen) und Spalte "S" spricht vom falschen Wert.
???

 

Das Problem Textfeld habe ich mit Combobox gelöst und nun läuft alles super.

Dankeschön noch mal an dich Berni.

Gruß
Olero

 

Hallo zusammen,

mit folgendem Code wird der Wert aus der TextBox in die erste freie Zeile der Tabelle Daten; Spalte "A" geschrieben.

Nun habe ich das Problem, dass manchmal ein Wert aus der Spalte "A" gelöscht wird und somit eine Zeile eigentlich frei ist. Der Code berücksichtigt dieses aber nicht und trägt den neuen Wert immer am Ende in die erste freie Zelle ein. Wie muss der Code geändert werden, damit die erste freie Zelle genommen wird?

Private Sub CommandButton4_Click()
'Der Eintrag aus ComboBox4 wird in die Zelle von A in der ersten freien Zeile geschrieben
With Sheets("Daten")
.Range("A" & .Cells(.Rows.Count, "A").End(xlUp).Row + 1) = TextBox6.Text
End With
End Sub

Ganz, ganz herzlichen Dank für eure Hilfe.

Gruß Olero

 

Moin
Teste mal.A2 muss aber belegt sein.
Code:

gruss hary

 

Das Problem ist, dass händisch gelöschte Einträge von
Code:

mitgezählt werden. Du müsstest dafür die Zeile komplett löschen (nicht mit Entf, sondern mit dem Befehl "Zeile löschen").

So sollte es hinhauen
Code:

Und kannst du dir bitte angewöhnen, für deine Codes hier im Forum Codetags zu verwenden? Das erleichtert das Lesen für uns. Im Anhang ein Bild, wie das geht.

 

Hallo Berni,

Danke für deine schnelle Antwort.
Ich habe es mit deinem Code versucht. Es klappt leider nicht.
Schuld daran könnte die Userform1 sein, über die ich Einträge lösche.
Hier mal der Code der UserForm1. Code:

PS: Ich hoffe das mit der Code-Anzeige ist jetzt richtig. Entschuldigung!

Gruß Olero

 

Ohne Datei schwer zu sagen. Aber zwei Fragen noch dazu:

1) hast du auch den Code von hary getestet?
2) Du löschst mit
Code:

den Zellinhalt von Spalte 1 bis 13. Wäre es nicht sinnvoller, einfach die komplette Zeile zu löschen?
Code:

Oder kommt nach Spalte 13 noch was, was behalten werden muss?

 

Hallo Berni,

es wäre eventuell besser die ganze Zeile zu löschen, aber dann wird der Bereich in der Tabelle "Daten" kleiner. Der ist von Zeile 3 bis 25 festgelegt.
Gibt es die Möglichkeit die Zeile zu löschen und eine neue leere Zeile einzufügen?

Der Code von Harry funktioniert nicht.

 

Na logisch gibts die Möglichkeit *biggrin.gif*
Code: