hmm okay, dann musste wohl selber gehn... mein moped kann ich eh erst donnerstag ab 18:00 holen 
naja viel glück!
PEACY
Beiträge von TiGGeR
-
-
so, bei mir steht ab donnerstag auch wieder n bike inner garage... (siehe bilderthread) dine strassengurke mehr, sondern ne hübsche, nackte lady in black mit 2 zylinder power :p
-
ey stift
wenn ich mein moped bereits am mi bekomme, dann hol ich dir ne neue sim :p xD
und ausserdem kannst du auch swisscom z.b. in wädenswil holen und orangeshops gibts auch wie sand am meer... sollte in jeder filiale gehen... -
Meine neue als Ablösung für die Suzuki GSX-R 600 K4 ist eine Ducati 600 Monster aus dem Jahre 1998, frei nach dem Motto altes währt am längsten.
Mods:
- Heckkürzung um ca. 10cm
- Aussenspiegel am Lenker
- Tiefergelegt (Sitzhöhe 72cm)
- Gedrosselt auf 25KWGeplante Mods:
- Auspuffanlage unterm Sattel
- Karbon Radabdeckung -
sonst noch jemand wach? heute gibts freinacht^^ (Quake 4 gesogen - ja, auch ich habs endlich geschafft, dieses game zu saugen xD )
-
-> BANANE?schön gibt es keine leute, die sinnlos ihren senf zu allem geben - und alles immer besser wissen müssen...
ah moment, die gibt es ja... ^^
nichts für ungut solae, ich weiss es ist unnötig OT zu schreiben, aber es passte mir halt grad so in den kram
-
hmm veronica alessandra vitale... ka wie ihre brüetsch heisst...
u chasch de gruess vom tigger säge, de wüsses gad wer xD
du kennsch bedi? de dävu u z very? isch jo geil
EDIT: you've got mail chiuchä
-
OT: hey chiuchä säg mau de very u äm pingu (david mitkov) e gruess wed se kennsch xD
-
ich hatte auch die auswahl zwischen 'nem punto und 'nem seat ibiza - mittlerweile bin ich froh, den ibiza gekauft zu haben, der läuft ohne grosse reparaturen mit mittlerweile 100'000km immernoch einwandfrei!
-
Und gleich nochma guten morgen - solch ferientage sind einfach genial - die ganze nacht am see resp. im see und dann frisch frööhlich in den tag pennen
-
äääh lol das hani gmeint ^^ egal, hauptsach es öpfeligrät mitme öpfeli osx - han es riese puff mit dene bezeichnige xD
-
nö xD
bini z giizig? ^^ -
Zitat
Original von Freak
ich het na äs 500mhz p3 notebook...das chasch ha für 300 stuz
lol? ^^ i suech es macbook mit osx installiert... -
Hi tweakers
Suche ein günstiges Apple Notebook mit >=OSX deutsch oder englisch installiert und flüssig laufend.
Preisrahmen <300.-Hat jemand sowas?
Greez tiG
-
War vor einem Monat dort...
74 Pkte. beim sport
7,9,7 bei den TestsFüs Bes / Radspz Fahr RS 11-2 vom 30.6.-21.11.2008 in Gossau / Chur
Absichten: möglichst nicht weitermachen oder wenn, dann höhere UO
-
ich kenn excel schon, aber es steht nicht zur diskussion, da kann zuviel kaputt gehen!
eine fertige lösung wär super!
-
Zitat
Original von aschi
WORD @ aschi ^^
das Ziel ist eben NICHT Excel zu verwenden... es soll schon DB mässig sein, Access fertiglösungen wären schon ma ein anfang - am liebsten eine UBUNTU Lösung - da wird nicht soviel kapputt gemacht von den junioren
-
bin jetzt zwar den ganzen nachmittag dran gesessen, habs aber geschafft^^
Alles anzeigenCode- Sub Makro6()
- '
- ' Makro6 Makro
- ' Makro am 13.06.2008 von Sascha Bosshard
- '
- Application.ScreenUpdating = False 'Put Screen updating off
- Charts.Add 'Add Chart with definitions
- ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
- "Linie - Säule auf zwei Achsen"
- ActiveChart.SetSourceData Source:=Sheets("Müller Martini Druck").Range( _
- "A50:A55,D50:O55"), PlotBy:=xlRows
- ActiveChart.Location Where:=xlLocationAsObject, Name:="Müller Martini Druck"
- With ActiveChart
- .HasTitle = False
- .Axes(xlCategory, xlPrimary).HasTitle = False
- .Axes(xlValue, xlPrimary).HasTitle = True
- .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "CHF"
- End With
- With ActiveChart
- .HasAxis(xlCategory, xlPrimary) = True
- .HasAxis(xlCategory, xlSecondary) = False
- .HasAxis(xlValue, xlPrimary) = True
- .HasAxis(xlValue, xlSecondary) = False
- End With
- ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlCategoryScale
- With ActiveChart.Axes(xlCategory)
- .HasMajorGridlines = False
- .HasMinorGridlines = False
- End With
- With ActiveChart.Axes(xlValue)
- .HasMajorGridlines = True
- .HasMinorGridlines = False
- End With
- ActiveChart.SeriesCollection(3).ChartType = xlLineMarkers 'Change Type of Row "Umsatz kum IST"
- ActiveChart.SeriesCollection(4).ChartType = xlLineMarkers 'Change Type of Row "Umsatz kum SOLL"
- ActiveChart.SeriesCollection(5).ChartType = xlColumnClustered 'Change Type of Row "AE"
- ActiveChart.SeriesCollection(1).Interior.Color = RGB(255, 255, 0) 'Change Color for "Umsatz ist"
- ActiveChart.SeriesCollection(2).Interior.Color = RGB(204, 0, 153) 'Change Color for "Umsatz soll"
- ActiveChart.SeriesCollection(5).Interior.Color = RGB(255, 0, 0) 'Change Color for "AE"
- ActiveChart.SeriesCollection(3).Border.Weight = -4138 'Change weight of Border on Row "Umsatz kum IST"
- ActiveChart.SeriesCollection(4).Border.Weight = -4138 'Change weight of Border on Row "Umsatz kum SOLL"
- ActiveChart.SeriesCollection(3).Border.Color = RGB(102, 255, 0) 'Change Border Color for "Umsatz kum IST"
- ActiveChart.SeriesCollection(3).MarkerBackgroundColor = RGB(102, 255, 0) 'Change Color for "Umsatz kum IST"
- ActiveChart.SeriesCollection(4).Border.Color = RGB(102, 204, 255) 'Change Border Color for "Umsatz kum SOLL"
- ActiveChart.SeriesCollection(4).MarkerBackgroundColor = RGB(102, 204, 255) 'Change Color for "Umsatz kum SOLL"
- With ActiveChart.Parent
- .Height = 600 ' resize
- .Width = 800 ' resize
- .Top = 100 ' reposition
- .Left = 100 ' reposition
- End With
- End Sub
-
*PUSH*
Basissystem: XP, VISTA, Ubuntu?!?
-
Mein Problem ist folgendes:
Ich lasse ein Diagramm erstellen als Object.Chart in der Tabelle "Müller Martini Druck". diesem Diagramm möchte ich einen "Titel" geben, damit ich es referenzieren kann, um Grösse und Position des Diagramms zu bestimmen. (nicht einfach nur Diagramm 1 - es existieren eben mehrere Diagramme^^)
2. Problem: ich möchte die Farbe einzelner Werte Verändern... statt gelb z.b. grün machen o.ä. wer kann mir helfen?Alles anzeigenCode- Sub Makro6()
- '
- ' Makro6 Makro
- ' Makro am 13.06.2008 von Sascha Bosshard aufgezeichnet
- '
- '
- Charts.Add
- ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
- "Linie - Säule auf zwei Achsen"
- ActiveChart.SetSourceData Source:=Sheets("Müller Martini Druck").Range( _
- "A50:A55,D50:O55"), PlotBy:=xlRows
- ActiveChart.Location Where:=xlLocationAsObject, Name:="Müller Martini Druck"
- With ActiveChart
- .HasTitle = False
- .Axes(xlCategory, xlPrimary).HasTitle = False
- .Axes(xlValue, xlPrimary).HasTitle = True
- .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "CHF"
- End With
- With ActiveChart
- .HasAxis(xlCategory, xlPrimary) = True
- .HasAxis(xlCategory, xlSecondary) = False
- .HasAxis(xlValue, xlPrimary) = True
- .HasAxis(xlValue, xlSecondary) = False
- End With
- ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlCategoryScale
- With ActiveChart.Axes(xlCategory)
- .HasMajorGridlines = False
- .HasMinorGridlines = False
- End With
- With ActiveChart.Axes(xlValue)
- .HasMajorGridlines = True
- .HasMinorGridlines = False
- End With
- ActiveChart.SeriesCollection(3).ChartType = xlLineMarkers
- ActiveChart.SeriesCollection(4).ChartType = xlLineMarkers
- ActiveChart.SeriesCollection(5).ChartType = xlColumnClustered
- ActiveSheet.ChartObjects("Diagramm 1").Height = 1024
- ActiveSheet.ChartObjects("Diagramm 1").Width = 768
- End Sub
