Hallo,

das Anliegen sässt sich sehr schwer lesen, da alles in nur eine einzige Zeile geschrieben wurde.

<Inronie>

Schnelle Ferndiagnose: Scheinbar ist auf der verwendeten Tastatur die Enter-Taste defekt

Lösung: Schnell zum nächsten PC-Servicegeschäft laufen und eine vernünftige USB-Tastatur kaufen !!!

</Ironie>

Ich habe mir die Mühe gemacht, das Anliegen in einer lesbaren Form zu setzen:

Hallo Welt, Hello world, guten Abend Liebe Community

ich steck hier vor einem Problem.

Problem:

Ich habe 3 Funktion diese sollen in einem Panel funktionieren, im einzelnen Funktionieren diese auch, jedoch in Kombination leider nicht.

1 Problem: der Button ist in Tabellenblatt Nr.1, dort wird auch das Panel aufgerufen, jedoch die im Panel eingetragene Daten sollen in ein anderes Tabellenblatt übertragen warden.

2 Problem: Die Kombination von allen 3 Features funktioniert nicht. Soll jedoch :P

3 Problem: Auch wenn Beispielsweise die Eingetragenen Daten leer sind soll die Datensegmentierung sowie Grafikeinstellung veränderbar sein.

Userform1

Option Explicit

'daten eintragen

Private Sub Eintragen_Click()
    Dim Datumzelle As Range
    Dim spalte As Variant, zeile As Variant
    For Each Datumzelle In [A:A]
        If IsEmpty(Datumzelle) = True Then Exit For
    Next
    Datumzelle = ActiveCell
    neuesDatum = Date$
    Datumzelle.Value = CDate(neuesDatum)
    spalte = Datumzelle.Column
    zeile = Datumzelle.Row
    Cells(zeile, spalte + 1) = CSng(Gold)
    Cells(zeile, spalte + 2) = CSng(Rohöl)
    Cells(zeile, spalte + 3) = CSng(Silber)
    Cells(zeile, spalte + 4) = CSng(Erdgas)
    Cells(zeile, spalte + 5) = CSng(Baumwolle)
    Cells(zeile, spalte + 6) = CSng(Zucker)
    Cells(zeile, spalte + 7) = CSng(Weizen)
    Cells(zeile, spalte + 8) = CSng(Kupfer)
    Cells(zeile, spalte + 9) = CSng(Platin)
    
    'auswahl gegenstand Und Graph
    
    Dim auswahl As Byte, auswahl2 As Byte
    
    With UserForm1
        If .OptionButton1.Value = True Then
            auswahl 1
            If .OptionButton2.Value = True Then
                auswahl 2
                If .OptionButton3.Value = True Then
                    auswahl 3
                End If
    End With
    With UserForm1
        If .OptionButton4.Value = True Then
            auswahl2 = 1
        ElseIf .OptionButton5.Value = True Then
            auswahl2 = 2
        End If
    End With
    Call DialogMarktAuswerten(auswahl, auswahl2)
End Sub

Private Sub Schließen_Click()
    UserForm1.Hide
End Sub

Private Sub Löschen_Click()
    neuesDatum = ""
    Gold = ""
    Rohöl = ""
    Silber = ""
    Erdgas = ""
    Baumwolle = ""
    Zucker = ""
    Weizen = ""
    Kupfer = ""
    Platin = ""
End Sub

Modul2

Option Explicit

Sub userformanzeigen()
    UserForm1.Show
End Sub

Sub DialogMarktAuswerten(auswahl, auswahl2)
    Worksheet("Charttypen Markt").ChartObjects(1).Activate
    'aktivieren oben
    'fall auswahl selektiertes chart mit with kann man active chart weglassen
    Select Case auswahl2
        Case 1
            With Worksheet("Charttypen Markt").Shapes.AddChart2(332, xlLineMarkers).Select
                .SetSourceData Source:=Range("'Charttypen Markt'!$A:$J")
            End With
        Case 2
            With Worksheet("Charttypen Markt").Shapes.AddChart2(286, xl3DColumn).Select
                .SetSourceData Source:=Range("'Charttypen Markt'!$A:$J")
            End With
    End Select
    Select Case auswahl
        Case 1
            With Worksheet("Charttypen Markt").SeriesCollection(1)
                .Name = Range("B2")
                .Values = Range("B2:B6")
            End With
        Case 2
            With Worksheet("Charttypen Markt").SeriesCollection(1)
                .Name = Range("C1")
                .Values = Range("C2:C6")
            End With
        Case 3
            With Worksheet("Charttypen Markt").SeriesCollection(1)
                .Name = Range("D1")
                .Values = Range("D2:D6")
            End With
    End Select
    Range("A1").Select
End Sub

----------------------------

Entspricht das in entwa der Anfage?

VG, BigBen