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 Beispielsweiße die Eingetragenen Daten leer sind soll die Datensegmentierung sowie Grafikeinstellung veränderbar sein.
Userform1
'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
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
|