Thema Datum  Von Nutzer Rating
Antwort
Rot Zeileninhalt zurück in UserForm laden und bearbeiten
05.05.2022 11:14:09 Mago
NotSolved
05.05.2022 12:02:34 ralf_b
NotSolved
05.05.2022 12:16:48 Mago
NotSolved
05.05.2022 14:50:28 ralf_b
NotSolved
05.05.2022 15:33:19 Gast60973
NotSolved
05.05.2022 18:07:49 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Mago
Datum:
05.05.2022 11:14:09
Views:
35
Rating: Antwort:
  Ja
Thema:
Zeileninhalt zurück in UserForm laden und bearbeiten
Private Sub UserForm_Initialize()

'Pm
TextBoxPm.Value = ActiveSheet.Name
TextBoxPm.Enabled = False

'WT

'Position
Dim i3 As Integer

With ComboBox_Position
    For i3 = 1 To 14
    .AddItem CInt(i3)
    Next
End With

'Aktion

'0% Yield

'Lauf


'Name
TextBox_Name.Value = Application.UserName
TextBox_Name.Enabled = False

'Datum

TextBox_Datum.Value = Now
TextBox_Datum.Enabled = False
End Sub



Private Sub CommandButton_Eingabe_Click()

'Eingabe untereinander

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

If UserForm.TextBox_WT.Value = "" And UserForm.TextBoxBemerkung.Value = "Administrator" Then Sheets("Einstellungen").Visible = True: GoTo ENDE

'Pm
Cells(last, 1).Value = UserForm.TextBoxPm.Value

'WT
Cells(last, 2).Value = Format(UserForm.TextBox_WT, "000")


'Position
Cells(last, 3).Value = Format(UserForm.ComboBox_Position, "0000")


'Aktion
If CheckBox7.Value = True Then Cells(last, 4).Value = "Aus Anlage entnommen"
If CheckBox8.Value = True Then Cells(last, 4).Value = "In Anlage eingesetzt"
If CheckBox5.Value = True Then Cells(last, 4).Value = "Austausch"
If CheckBox6.Value = True Then Cells(last, 4).Value = "Reinigung"
If CheckBox5.Value = True And CheckBox6.Value = True Then
Cells(last, 4).Value = "Austausch und Reinigung"
End If


'O% Yield
If CheckBox1.Value = True Then Cells(last, 5).Value = "Ja"
If CheckBox2.Value = True Then Cells(last, 5).Value = "Nein"
If Cells(last, 5).Value = "Ja" Then Cells(last, 5).Interior.Color = vbRed

'Lauf
If CheckBox3.Value = True Then Cells(last, 6).Value = "Links"
If CheckBox4.Value = True Then Cells(last, 6).Value = "Rechts"


'Bemerkung
Cells(last, 7).Value = TextBoxBemerkung.Value


'Name
Cells(last, 8).Value = TextBox_Name.Value


'Datum
Cells(last, 9).Value = TextBox_Datum.Value


'Nach Eingabe Click UserForm schließen
ENDE:
Unload UserForm
ThisWorkbook.Save


Guten Tag alle zusammen,

ich habe eine Userform erstellt womit ich eine Datenbank erzeuge. Die Userform dient als Eingabemaske und übernimmt die Daten chronologisch in eine Tabelle in die letzte freie Zeile. Nun möchte ich eine beliebige Zeile in der Tabelle auswählen, diese Daten aus dieser Zeile (mit verschiedener Informantion aus 9 Spalten, wie zb Datum, Name usw..) sollen zurück in meine UserForm (Eingabemaske) geladen werden, damit ich diese nun überarbeiten kann und die "korrigierte" Daten wieder in die selbe Zeile überschreiben kann.

Ich habe meinen Code mal für die UserForm und die Eingabetaste aufgeführt

 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Zeileninhalt zurück in UserForm laden und bearbeiten
05.05.2022 11:14:09 Mago
NotSolved
05.05.2022 12:02:34 ralf_b
NotSolved
05.05.2022 12:16:48 Mago
NotSolved
05.05.2022 14:50:28 ralf_b
NotSolved
05.05.2022 15:33:19 Gast60973
NotSolved
05.05.2022 18:07:49 ralf_b
NotSolved