Mit Userform einträge in anderem Tabellenblatt

[Tobias_S]

Hallo Zusammen,

ich habe eine Userform, welche sich im Tabellenblatt "Aufgaben" öffne und dort auch sichtbar haben möchte.

Die Einträge sollen aber im Tabellenblatt "Gesamtübersicht Alle" geschehen - genauso sollen die Eingaben für die Combobox aus Spalte A des Tabellenblattes "Gesamtübersicht Alle" kommen.

Da ich mir meinen VBA Code auf biegen und brechen aus Foren zusammengesucht habe, fällt es mir schwer äderungen so vorzunehmen, dass sie meine Erwartungen erfüllen.

Code:

Private Sub UserForm_Initialize()

Worksheets("Aufgaben").Activate

Dim c As Range
With Worksheets("Gesamtübersicht Alle")

AuswahlAufgaben.Clear
For Each c In Range(Range("A2"), Range("A" & Rows.Count).End(xlUp))
        If c.Value <> vbNullString Then AuswahlAufgaben.AddItem c.Value
    Next c
End With


End Sub



Private Sub CommandButton1_Click()

Worksheets("Gesamtübersicht Alle").Activate

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

ActiveSheet.Cells(last, 1).Value = UserForm1.AuswahlAufgaben.Value
ActiveSheet.Cells(last, 4).Value = UserForm1.AuswahlAufgaben.Value

End Sub

Kann mir hierbei jemand aushelfen? Ich stehe auf dem Schlauch - gerne auch mit einer kurzen erklärung, damit ich es lerne :)

Danke und liebe Grüße
Tobias

[Klaus-Dieter]

Hallo,

wenn die Einträge in ein anderes, als dem aktiven Tabellenblatt geschrieben werdn sollen, dann muss der entsprechende Name anstelle von ActiveSheet eingetragen werden.

[Tobias_S]

Vielen Dank für die schnelle Antwort!

Was ich noch nicht verstehe ist, wie kann man im Code festlegen, wo sich die Userform öffnet und aus welchem Tabellenblatt heraus sich die Combobox speißt?

Ich habe hier nochmal den Code mit Kommentaren/Fragen?

Code:

Private Sub UserForm_Initialize()

Worksheets("Aufgaben").Activate    <--'Dieser Code gibt an, wo sich die Userform öffnet oder, gleichzeitig aber auch die
                                       Quelle der Combobox richtig? Wie kann ich das trennen? Also so, dass in "Aufgaben"
                                       die Userform läuft, Inhalt, Einfügen, und alles andere sich aber auf
                                       "Gesamtübersicht Alle" bezieht.

Dim c As Range

AuswahlAufgaben.Clear

For Each c In Range(Range("A2"), Range("A" & Rows.Count).End(xlUp))

        If c.Value <> vbNullString Then AuswahlAufgaben.AddItem c.Value
    Next c

End Sub

[Klaus-Dieter]

Hallo Tobias,

das ist alles nicht besonders sauber programmiert. Man muss nicht ein bestimmtes Blatt öffnen, um damit weiter zu arbeiten. Das würde ich zwar noch etwas anders lösen, aber damit du deinen Ansatz wieder findest:

Code:

Option Explicit

Private Sub UserForm_Initialize()
    Dim c As Range
    For Each c In Worksheets("Aufgaben").Range("A2:A", Range("A" & Rows.Count).End(xlUp))
        If c.Value <> vbNullString Then AuswahlAufgaben.AddItem c.Value
    Next c
End Sub

[Tobias_S]

Lieber Klaus-Dieter,

vielen Dank für die Unterstützung. Der nicht-optimale Code kommt vermutlich daher, dass ich eigentlich kein VBA kann und es mir aktuell versuche zu erschließen.

Danke auch für den Lösungsvorschlag, allerdings bekomme ich nun einen Laufzeitfehler 1004.

Liebe Grüße
Tobias

[Klaus-Dieter]

Hallo Tobias,

so könnte es klappen: 

Code:

Option Explicit

Private Sub UserForm_Initialize()
    Dim c As Range
    With Worksheets("Aufgaben")
        For Each c In .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp))
            If c.Value <> vbNullString Then AuswahlAufgaben.AddItem c.Value
        Next c
    End With
End Sub

am besten lädst du mal die Datei hoch. Ohne testen ist das immer schlecht.

[Tobias_S]

Lieber Klaus-Dieter,

danke für die Geduld und Hilfe! Auf Basis deiner Tipps konnte ich das Problem lösen, vielen Dank!

Ich fühle mich grundsätzlich immer unwohl dabei meine chaotischen Dateien hier hochzuladen, da jeder mit halbwegs Erfahrung vermutlich nur noch mit dem Kopf schütteln würde - Aber Ja - Mit Datei lässt es sich sicherlich besser arbeiten.

Ganz liebe Grüße und Danke für deine Mühen
Tobias