|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
17.12.2015 22:15:53 |
Schachmatt |
|
|
 Userform Panel Eingabe/Grafikformat ändern für gewünschte Datensegmentierung |
17.12.2015 22:16:42 |
Gast53000 |
|
|
Von:
Gast53000 |
Datum:
17.12.2015 22:16:42 |
Views:
1478 |
Rating:
|
Antwort:
|
Thema:
Userform Panel Eingabe/Grafikformat ändern für gewünschte Datensegmentierung |
|
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
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
17.12.2015 22:15:53 |
Schachmatt |
|
|
Userform Panel Eingabe/Grafikformat ändern für gewünschte Datensegmentierung |
17.12.2015 22:16:42 |
Gast53000 |
|
|