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

Olero · 1. April 2019

Hallo Berni,

das produziert den Laufzeitfehler 424 - Objekt erforderlich ???

Gruß Olero

MisterBurns · 1. April 2019

Nochmal, ohne Beispielmappe ist das mühsam. Ich kenne dein komplettes Vorhaben nicht. Wofür ist es gut, einen Eintrag zu löschen aber dort eine Leerzeile stehen zu lassen?

Olero · 1. April 2019

Hallo Berni,

ich habe die Datei mal im Anhang mit hochgeladen.

Gruß Olero

MisterBurns · 2. April 2019

Die With-Anweisung hat er so nicht gemocht, hab sie umgemodelt. Und ich hab deinen Code etwas gekürzt, denn es bringt ja nichts bei einer Msgbox eine If-Abfrage zu machen, wenn man sowieso nur Ok klicken kann.

Code:

Private Sub CommandButton1_Click()
Dim frage As Integer, Zeile As Integer
If ComboBox1.ListIndex > -1 Then
If MsgBox("Soll der Eintrag wirklich gelöscht werden?", vbYesNo, "Löschen der Daten") = vbYes Then
Zeile = ComboBox1.ListIndex + 3
With Worksheets("Daten")
.Rows(Zeile).Delete
.Rows(Zeile).Insert shift:=xlDown
End With
MsgBox "Eintrag wurde gelöscht."
'Unload Me
Else
MsgBox "Es wurden keine Daten gelöscht."
Unload Me
End If
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nun ist es so, dass die ausgewählte Zeile gelöscht wird und an der gleichen Position eine Leerzeile eingefügt wird. Nur wäre doch eigentlich wesentlich sinnvoller, die Leerzeile am Ende einzufügen, oder? Falls du das auch so siehst, dann ersetze
Code:

.Rows(Zeile).Insert shift:=xlDown
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

durch
Code:

.Rows(25).Insert shift:=xlDown
.Range("A3:M3").Copy
.Range("A25").PasteSpecial Paste:=xlFormats
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dadurch wird in Zeile 25 eine neue Zeile eingefügt und das Format aus Zeile 3 dorthin übernommen.

Olero · 2. April 2019

Hallo Berni,

erst mal ganz herzlichen Dank für deine Hilfe.
Ich habe dann die Variante 2 genommen.
Leider gibt es am Ende immer einen Bezugsfehler bei der Tabelle Eingabe. Die ist gekoppelt an Tabelle "Berechnung" und "Daten". Da hier die hinterlegte Formel nicht automatisch eingefügt wird gibt es immer den Bezugsfehler.

Ich werde mal Kopf anstrengen wegen der Formel.

Gruß Olero

grone89 · 16. Juli 2019

Hallo zusammen *Smilie

Ich habe ein kleines Problem mit meiner UserForm. Es läuft wie folgt. Die UserForm wird ausgefüllt und überträgt dann die entsprechenden Angaben in mein Sheet. Soweit läuft das alles sauber durch.

Nun wollte ich noch bestimmte Teile der Eingaben auf zwei andere Sheets übernehmen, in Abhängigkeit zu dem Befehl bei der Qualifikation. Und da scheitert es leider. Ich weiß, das so wie der Code jetzt aufgebaut ist, nur das aktive Sheet angesprochen wird. Ich habe schon einige Varianten versucht, aber irgendwie bekomme ich es nicht hin.

Ich habe es bisher wie folgt versucht: Habe in diesen Code noch versucht den rows count auf die anderen sheets auszuweiten, indem ich noch zwei zusätzliche dim eingebaut habe (letzeZeile2, bzw. letztZeile3) um dann die geforderten Sheets direkt anzusprechen. Aber die Eintragungen kommen immer nur auf das eine Sheet.
Als Beispiel so:

Code:

dim letzeZeile2 as Integer
letzeZeile2=sheets("Import Tutor").cells(Rows.Count, 1).End(xlUp).Row + 1
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das ganze eben drei mal für alle drei sheets. Und in der IF Abfrage dann die einzelnen sheets angesprochen:
Als Beispiel so:

Code:

If CheckBox_LuftAss.Value = True Then Sheets("Stammdaten & Erfassung").Cells(letzeZeile, 16).Value = "X"
If If CheckBox_LuftAss.Value = True Then sheets("Import Tutor").Cells(letzeZeile, 1).Value = TextBox_SPX_ID
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aber irgendwie stelle ich mich etwas unschlau an :-(
Vielleicht kann man mir ja hier auf die Sprünge helfen? Würde mich freuen.

Ich habe den Ursprungscode hier im Beispiel, so wie er bisher läuft.
Ich hoffe mein Anliegen ist einigermaßen Verständlich?!?

Vielen Dank schon mal im Vorraus...grüße grone

Code:

Private Sub Button_Abbrechen_Click()

Unload Me

End Sub

Private Sub Button_Eintragen_Click()

With Application
.DisplayAlerts = False
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With

Dim letzeZeile As Integer
letzeZeile = Cells(Rows.Count, 1).End(xlUp).Row + 1

'SPX ID
Cells(letzeZeile, 1).Value = TextBox_SPX_ID

'Vorname
Cells(letzeZeile, 3).Value = TextBox_Vorname

'Nachname
Cells(letzeZeile, 4).Value = TextBox_Nachname

'Eintrittsdatum
Cells(letzeZeile, 11).Value = TextBox_Eintrittsdatum
Cells(letzeZeile, 14).Value = "Eintritt " & TextBox_Eintrittsdatum

'Flughafen
If CheckBox_TXL.Value = True Then Cells(letzeZeile, 6).Value = CheckBox_TXL.Caption
If CheckBox_SXF.Value = True Then Cells(letzeZeile, 6).Value = CheckBox_SXF.Caption

'Bereich
If CheckBox_Bereich1.Value = True Then Cells(letzeZeile, 8).Value = CheckBox_TXL.Caption & "-" & CheckBox_Bereich1.Caption
If CheckBox_Bereich2.Value = True Then Cells(letzeZeile, 8).Value = CheckBox_SXF.Caption & "-" & CheckBox_Bereich2.Caption

'Qualifikation
If CheckBox_LuftAss.Value = True Then Cells(letzeZeile, 16).Value = "X"
If CheckBox_KK_PWK.Value = True Then Cells(letzeZeile, 17).Value = "X"
If CheckBox_Sima.Value = True Then Cells(letzeZeile, 19).Value = "X"

With Application
.DisplayAlerts = True
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With

MsgBox ("Neuer Mitarbeiter wurde angelegt.") & vbNewLine & ("Weitere Mitarbeiter anlegen oder Abbrechen zum verlassen.")
Unload Me
UserForm1.Show

End Sub

Private Sub UserForm_Initialize()

'SPX ID
TextBox_SPX_ID = "Bitte SPX ID eintragen"

'Vorname
TextBox_Vorname = "Bitte den Vornamen eintragen"

'Nachname
TextBox_Nachname = "Bitte den Nachnamen eintragen"

'Eintrittsdatum
TextBox_Eintrittsdatum = "Bitte Datum eintragen"

'Flughafen
CheckBox_TXL.Value = False
CheckBox_SXF.Value = False

'Bereich
CheckBox_Bereich1.Value = False
CheckBox_Bereich2.Value = False

'Qualifikation
CheckBox_LuftAss.Value = False
CheckBox_KK_PWK.Value = False
CheckBox_Sima.Value = False

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mase · 16. Juli 2019

Hi,

das Thema wurde vom Threadstarter als erledigt gekennzeichnet.

Empfehle Dir 2 Dinge:
1) Neues Thema erstellen
2) Problem kurz und präzise erklären

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

Werte aus TextBox in erster freier Zelle einer andere Tabelle schreiben

Werte aus TextBox in erster freier Zelle einer andere Tabelle schreiben

Werte aus TextBox in erster freier Zelle einer andere Tabelle schreiben

Werte aus TextBox in erster freier Zelle einer andere Tabelle schreiben - Similar Threads - Werte TextBox Zelle

Wert aus 2 TextBoxen suchen

Wert aus Inputbox in Textbox übernehmen ohne Inhalt zu löschen

Userform Textfeld füllen abhängig von Wert aus Combobox

Wert von Textbox mit Wert von Combofeld multiplizieren

Werte aus TextBox in die Zelle übertragen

automatisches Anpassen der Textbox Datum, wenn sich Werte in Comboboxen ändern

VBA Werte aus Listbox/Textbox in Zelle schreiben