Hallo, ich bin noch Neuling in Sachen vba aber sehr lernfähig.
ich habe eine Userform entworfen, über die ich eine Arbeitszeiterfasung bearbeiten möchte. Leider stehe ich jetzt etwas auf dem Schlauch....
Wenn ich in der Textbox etwas ändere, zeigt Er die Änderung in der Textbox an aber ändert nicht die aktuelle Tabelle.
Mal ein paar Grundinfos:
- es gibt eine Combobox, wo der aktuelle Monat gewählt weden kann (Jan,Feb,Mrz....)
- in einer Listbox werden mir dann 2 Spalten ( A=Datum+B=Std Anzahl) angezeigt, wo man das Datum per Klick auswählen kann
- in einer Textbox wird mir dann die aktuelle Zeile (Spalte B) mit den Std Anzahl angezeigt
- ich habe auch noch 3 CommandButton "Schließen" , "Eingabe" und "Übernehmen" (welcher noch nicht belegt ist)
Hiermal der aktuelle Code:
Wie kann ich es anstellen, das die Änderung auch im Tabellenblatt an der richtigen Stelle (Spalte/Zeile) übernommen wird ???
Ich wäre Euch sehr Dankbar für ein bisschen Hilfe
CodeTags gesetzt und ins richtige Unterforum verschoben ~VaporiZed
ich habe eine Userform entworfen, über die ich eine Arbeitszeiterfasung bearbeiten möchte. Leider stehe ich jetzt etwas auf dem Schlauch....
Wenn ich in der Textbox etwas ändere, zeigt Er die Änderung in der Textbox an aber ändert nicht die aktuelle Tabelle.
Mal ein paar Grundinfos:
- es gibt eine Combobox, wo der aktuelle Monat gewählt weden kann (Jan,Feb,Mrz....)
- in einer Listbox werden mir dann 2 Spalten ( A=Datum+B=Std Anzahl) angezeigt, wo man das Datum per Klick auswählen kann
- in einer Textbox wird mir dann die aktuelle Zeile (Spalte B) mit den Std Anzahl angezeigt
- ich habe auch noch 3 CommandButton "Schließen" , "Eingabe" und "Übernehmen" (welcher noch nicht belegt ist)
Hiermal der aktuelle Code:
Visual Basic-Quellcode
- Private Sub Button_Schließen_Click()
- Unload meinFormular
- End Sub
- Private Sub ComboBox1_Click()
- ThisWorkbook.Sheets(ComboBox1.Text).Select
- With ListBox1
- .ColumnCount = 2
- .ColumnWidths = "2cm;2cm"
- .ColumnHeads = True
- ListBox1.List = Range("A5:j35").Value
- End With
- End Sub
- Private Sub Eingabe_Click()
- ListBox1.Column(1, ListBox1.ListIndex) = TextBox5.Value
- ListBox1.Column(0, ListBox1.ListIndex) = TextBox4.Value
- End Sub
- Private Sub ListBox1_Click()
- TextBox5.Value = ListBox1.Column(1, ListBox1.ListIndex)
- TextBox4.Value = ListBox1.Column(0, ListBox1.ListIndex)
- End Sub
- Private Sub UserForm_Activate()
- Dim objSheet As Object
- For Each objSheet In ThisWorkbook.Worksheets
- ComboBox1.List = Array("Januar", "Februar", "März", "April", "Mai")
- Next
- ComboBox1.Text = ActiveSheet.Name
- End Sub
Wie kann ich es anstellen, das die Änderung auch im Tabellenblatt an der richtigen Stelle (Spalte/Zeile) übernommen wird ???
Ich wäre Euch sehr Dankbar für ein bisschen Hilfe
CodeTags gesetzt und ins richtige Unterforum verschoben ~VaporiZed
