Zum Inhalt springen

Nr. 123 - lustige Grillfeiern, Sonnenbaden am See und inkompetente Autoknacker


Crash2001

Empfohlene Beiträge

  • Antworten 501
  • Erstellt
  • Letzte Antwort

Top-Benutzer in diesem Thema

Ach Kügelschen :e@sy hab doch nur von meinem geredet ;)

na wenn das so ist :) :e@sy

irgendwie gehts mir heute nich so gut... heute code ich hier einen mist zusammen:


Sub CreateCharts(strRange As String, bolPie As Boolean, strSheet As String, strChartName As String _
, Anfang As Integer, Ende As Integer, strTitle As String, intCol2 As Integer, intRow2 As Integer, intSub As Integer)
Dim intRow As Integer, intCol As Integer

intRow = intRow2
intCol = intCol2
[...]
If strSheet = "C" Then
Do While Tabelle3.Cells(intRow, intCol) <> ""
intRow = intRow + 1
Loop
intRow = intRow - 2
intCol = intCol + 1
ActiveChart.SetSourceData Source:=Sheets("C Pivots").Range(Chr(64 + intCol2) & intRow2 & ":" & Chr(64 + intCol) & intRow), PlotBy:=xlColumns
Else
Do While Tabelle4.Cells(intRow, intCol) <> ""
intRow = intRow + 1
Loop
Do While Tabelle4.Cells(intRow - 1, intCol) <> ""
intCol = intCol + 1
If intCol >= 27 Then
intCol = intCol - 27
Do While Tabelle4.Cells(intRow, 26 + intCol) <> ""
intCol = intCol + 1
If intCol >= 27 Then
intCol = intCol - 27
Do While Tabelle4.Cells(intRow, 52 + intCol) <> ""
intCol = intCol + 1
Loop
intCol = intCol + 52
ActiveChart.SetSourceData Source:=Sheets("P Pivots").Range(Chr(64 + intCol2) & intRow2 + 2 & ":" & "B" & Chr(64 + intCol) & intRow - 2), PlotBy:=xlColumns
Exit Do
Exit Do
End If
Loop
intCol = intCol + 26
ActiveChart.SetSourceData Source:=Sheets("P Pivots").Range(Chr(64 + intCol2) & intRow2 + 2 & ":" & "A" & Chr(64 + intCol) & intRow - 2), PlotBy:=xlColumns
Exit Do
End If
ActiveChart.SetSourceData Source:=Sheets("P Pivots").Range(Chr(64 + intCol2) & intRow2 - intSub + 1 & ":" & Chr(64 + intCol - (2 * intSub) + 2) & intRow - 2), PlotBy:=xlColumns
Loop
End If
[...]
End Sub
[/PHP]

sieht hier jemand was wie man das vereinfachen kann? :rolleyes::D

Link zu diesem Kommentar
Auf anderen Seiten teilen

Ach aber im ÖD fällts doch nicht wirklich auf wenn du Dir schon ein Bierchen trinken würdest..... Also unser Kühlschrank im Büro ist immer voll mit Alkohol.... *g*
*lach*

Das kann ja sein, aber ueberlege mal, wann ich hier raus bin. Da hab ich noch Zeit genug fuer sowas. ;)

*Steffi mal :e@sy*

Link zu diesem Kommentar
Auf anderen Seiten teilen

Also bei uns kann man ja jetzt sogar neuerdings in der Kantine Wein und Bier kaufen :D

[...]

Wein und Bier? :eek:

*Bewerbung schreib* So schlimm kanns in Hamburg ja nicht sein...ihr braucht grad keinen Delphianer? Auf Java könnte man sich zur Not auch noch einigen. :D :D

Link zu diesem Kommentar
Auf anderen Seiten teilen

Das lohnt sich nicht grueni, wir wissen selber nicht wie lange wir noch in diesem Gebäude sitzen, maximal wohl bis Januar/Februar... :)

Aber ne schlimm ist es in HAmburg nicht, schließlich gibts hier: Wasser, Hafen, tolle Stadt, dir drei D's, Orffi und mich ;) Na wenn das keine Gründe sind herzukommen :P

Link zu diesem Kommentar
Auf anderen Seiten teilen

Gast
Dieses Thema wurde nun für weitere Antworten gesperrt.

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...