Office: Inhalt aus textbox in nächste freie Zelle schreiben

Hallo,

über Commandbutton soll der Inhalt aus Textbox1 und 2 in die nächste freie Zeile in Spalte A und B geschrieben werden. Mit meinen Code klappte das bisher auch. jetzt schreibt er immer in die zweite Zeile. Was ist an meinem Code falsch?

Private Sub CommandButton1_Click()
'Erste freie Zelle in Tabelle2 "Hilfstabellen" Spalte Mitarbeiter wird gesucht
Dim x As Long
Dim i As Integer
Dim y As Integer

x = Cells(Rows.Count, 2).End(xlUp).Row + 1
Tabelle3.Cells(x, 2) = TextBox1
Tabelle3.Cells(x, 1) = TextBox2

End Sub

Danke für Hilfe

Gruß
Olerostock

:)

 

Hi,

dann ist vielleicht Spalte B leer, denn du ermittelst die erste freie Zeile in Spalte B.

 

Moin
Ich wuerd mal sagen die zuweisung des richtigen Blattes fehlt.

x = Tabelle3.Cells(Rows.Count, 2).End(xlUp).Row + 1
Tabelle3.Cells(x, 2) = TextBox1
Tabelle3.Cells(x, 1) = TextBox2
gruss hary

 

Du musst korrekt referenzieren!
Code:

Sucht die erste freie Zeile der Spalte B im aktiven Blatt!
Richtig ist:
Code:

Beachte die Punkte vor Cells!

Gruß, Ralf

 

Hallo Karin,

in B steht jeweils etwas. Er überschrieb es mir trotzdem. habe jetzt Spalte A zum ermitteln genommen und mal die ersten freien Zeilen wo nichts drin stand, den Inhalt gelöscht. Nun klappt es.

Danke karin und Gruß
Olerostock

 

Hallo RaLF UND hARRY;

habe den Code geändert und wie in der Antwort zuvor beschrieben, die angeblich leeren Zeilen noch mal über "Inhalt leeren" geleert. Nun klappt es. Hier der Code: Private Sub CommandButton1_Click()
'Erste freie Zelle in Tabelle2 "Hilfstabellen" Spalte Mitarbeiter wird gesucht
Dim x As Long
Dim i As Integer
Dim y As Integer

x = Cells(Rows.Count, 1).End(xlUp).Row + 1
Tabelle3.Cells(x, 1) = TextBox1
Tabelle3.Cells(x, 2) = TextBox2

Sheets("Kopiervorlage").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Me.TextBox1

Unload Me
UserForm1.Show

End Sub

Nun noch eine Frage wenns Recht ist. In den Tabellen der Mitarbeiter habe ich in Zelle A1 die Funktion "=Blattname()". Leider wird die Anzeige nicht korrekt durchgeführt, wenn ich ein neues Tabellenblatt hinzufüge. Wie kann ich die Aktualisierung dieser Funktion anstoßen ohne jedes mal in die Zelle A1 des jeweiligen Tabellenblattes zugehen und die Funktion mit Enter zu bestätigen?

Danke Euch und Gruß
Olerostock