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
|