Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
VBA- Diagrammgröße formatieren, Durchschnitt berechnen
zurück: Makro Speichern und Ablegen einer Datei weiter: untereinander kopieren begrenzen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
__pete__
Gast


Verfasst am:
21. Jan 2013, 16:53
Rufname:

VBA- Diagrammgröße formatieren, Durchschnitt berechnen - VBA- Diagrammgröße formatieren, Durchschnitt berechnen

Nach oben
       Version: Office 2007

Hallo,

ich habe 2 Probleme mit meinem aktuellen Code.

1. Wird das Makro ausgeführt werden nur auf dem ersten Tabellenblatt „SC1“ die Werte korrekt berechnet (oberhalb Punkt 4.) und auch der Diagramm-/ Datenreihen-Titel korrekt dargestellt (Punkt 4.3 bis 4.5).
Sobald i auf 2 hochgezählt ist, werden die Berechnungen nicht mehr korrekt durchgeführt.
2. Wie kann man die Größe des Diagramms verändern, zum Beispiel von der linken oberen Ecke („A1“) bis zum Ende Sichtbereich rechts (siehe Punkt 4.7)?

Kann mir jemand hier weiter helfen.

Gruß
Pete

Code:
' #################################################################################################
Dim strSCName As String, strTemp As String
Dim strSuchText As String, strErsetzeText As String
Dim wksVar As Worksheet

Dim dblLRgesamt As Double, dblLReinzel

Dim intLesGeamt As Integer, intCase As Integer, intLetzte_Zeile As Integer
Dim intEZe As Integer, intLZe As Integer, intSc1Sp As Integer, intAnzSc As Integer

Dim wksZ As Worksheet, wksG As Worksheet, wksW As Worksheet
Dim wksSC1 As Worksheet, wksSC2 As Worksheet, wksSC3 As Worksheet, wksSC4 As Worksheet
Dim wksSC5 As Worksheet, wksSC6 As Worksheet, wksSC7 As Worksheet, wksSC8 As Worksheet

Dim Filename As String
Dim strConnect As String

' #################################################################################################

    Set wksSC1 = Worksheets("SC1")
    Set wksSC2 = Worksheets("SC2")
    Set wksSC3 = Worksheets("SC3")
    Set wksSC4 = Worksheets("SC4")
    Set wksSC5 = Worksheets("SC5")
    Set wksSC6 = Worksheets("SC6")
    Set wksSC7 = Worksheets("SC7")
    Set wksSC8 = Worksheets("SC8")
    Set wksZ = Worksheets("Zentrale")
    Set wksG = Worksheets("Gesamt")
    Set wksW = Worksheets("Werte")
   
' #################################################################################################
    ' 1.    Öffnen und Einfügen des Scanner Export Files *.dat zur Verarbeitung
        Filename = DateiName("")
        If Filename = "Falsch" Then End
        strConnect = "TEXT;" & Filename
           
           
            wksW.Activate
            With ActiveWindow
                .FreezePanes = False
            End With
        ' Daten auf allen Blätter löschen
            wksSC1.Cells.Delete Shift:=xlToLeft
            wksSC2.Cells.Delete Shift:=xlToLeft
            wksSC3.Cells.Delete Shift:=xlToLeft
            wksSC4.Cells.Delete Shift:=xlToLeft
            wksSC5.Cells.Delete Shift:=xlToLeft
            wksSC6.Cells.Delete Shift:=xlToLeft
            wksSC7.Cells.Delete Shift:=xlToLeft
            wksSC8.Cells.Delete Shift:=xlToLeft
            wksG.Cells.Delete Shift:=xlToLeft
            wksW.Cells.Delete Shift:=xlToLeft
            With wksW.QueryTables.Add(Connection:=strConnect, Destination:=wksW.Range("A1"))
                .TextFileSemicolonDelimiter = True
                .Refresh BackgroundQuery:=False
            End With
           
            wksW.Columns("A:A").ColumnWidth = 11
            With wksW.Cells(4, 1)
                .FormulaR1C1 = "=RIGHT(R[-1]C,10)"
                .Font.Bold = True
                .Interior.ColorIndex = 6
            End With
            With wksW.Rows("8")
                '.HorizontalAlignment = xlGeneral
                '.VerticalAlignment = xlBottom
                .Orientation = 90
            End With
           
            wksW.Columns("B:CQ").EntireColumn.AutoFit
            wksW.Range("F9").Activate
            ActiveWindow.FreezePanes = True
           
' #################################################################################################
    ' 2.    Bestimmen erster und letzter Zeilen, dadurch auch Check-In Art SBD(Sp43)/ Normal(Sp14)

        intLetzte_Zeile = wksW.Cells(Rows.Count, 1).End(xlUp).Row
        wksW.Range(wksW.Cells(8, 14), wksW.Cells(intLetzte_Zeile, 14)).Interior.ColorIndex = 6
                                                                  wksW.Range(wksW.Cells(8, 43), wksW.Cells(intLetzte_Zeile, 43)).Interior.ColorIndex = 6
    ' ---------------------------------------------------------------------
        Dim myRangeStart As Range
        Dim myRangeEnd As Range
' +++Sprung+++
'-------|||||----------------------
ZellEingabe:
        On Error Resume Next
        blError = False

    ' 2.1   Startzelle/ Zielzelle wählen
        Do Until blSuccess = True
            Set myRangeStart = Nothing
            Set myRangeEnd = Nothing
            Set myRangeStart = Application.InputBox(Prompt:="Bitte Startzelle wählen:" & vbNewLine & vbNewLine & _
                "bei CODE1 in Spalte 14/N unter SC1" & vbNewLine & _
                "bei CODE2 in Spalte 43/AQ unter SC1" & vbNewLine, _
                Title:="Startzelle wählen bitte", Type:=8) 'Type:=8 -> nur "Range" Angaben erlaubt - Title:= ist die Beschriftungsüberschrift der Inputbox
            Set myRangeEnd = Application.InputBox(Prompt:="Bitte Endzelle wählen:" & vbNewLine & vbNewLine & _
                "bei CODE1 in Spalte 14/N unter SC1" & vbNewLine & _
                "bei CODE2 in Spalte 43/AQ unter SC1" & vbNewLine, _
                Title:="Endzelle wählen bitte", Type:=8) 'Type:=8 -> nur "Range" Angaben erlaubt - Title:= ist die Beschriftungsüberschrift der Inputbox
            strConfirm = MsgBox("Sie haben folgenden Bereich gewählt: " & myRangeStart.Address & ":" _
                & myRangeEnd.Address & " !" & vbNewLine & vbNewLine & "Soll dieser Bereich übernommen werden?", vbYesNo, "Bereich gewählt:")
            If strConfirm = vbYes Then
                blSuccess = True
            Else
                blSuccess = False
            End If
        Loop
    ' ---------------------------------------------------------------------
   
    ' 2.2   Wenn gewählte Zellen in einer Spalte, beginne die Auswertung, ansonsten neue Auswahl treffen
        intEZe = myRangeStart.Row
        intLZe = myRangeEnd.Row
        If myRangeStart.Column = myRangeEnd.Column Then
            intSc1Sp = myRangeStart.Column
            If intSc1Sp = 14 Or intSc1Sp = 43 Then
            Else
                MsgBox "Die gewählten Zellen befinden sich nicht in den Spalten SC1," & vbCrLf & _
                    "in Spalte 14/N oder 43/AQ, bitte Vorgang wiederholen!", 48
                GoTo ZellEingabe ' +++Sprung+++
                '---------------------|||||----------------------
            End If
           
        Else
            MsgBox "Die gewählten Zellen befinden sich nicht in derselben Spalte," & vbCrLf & _
                        "bitte Vorgang wiederholen!", 48
            GoTo ZellEingabe ' +++Sprung+++
            '---------------------|||||----------------------
        End If
           
    ' Umwandeln der ReadRate(ges) Werte vom amerikanischen xx.x% in xx,x%
    ' mit Zeichenfolge suchen und ersetzen
        strSuchText = "."
        strErsetzeText = ","
        wksW.Range(Cells(9, 5), Cells(intLetzte_Zeile, 41)).Replace What:=strSuchText, Replacement:=strErsetzeText
       
    ' Entscheidung normaler Check-In oder SBD Check-In
        If intSc1Sp = 14 Then
            intAnzSc = 8 ' Normaler Check-In mit 8x CLV451
        ElseIf intSc1Sp = 43 Then
            intAnzSc = 4 ' SBD Check-In mit 4x CLV631 und RFID
        End If

        ' ---------------------------------------------------------------------
        For i = 1 To intAnzSc Step 1
        ' ---------------------------------------------------------------------

            Set wksVar = Worksheets("SC" & i)
           
                wksVar.Cells(1, 1).Value = "Date"
                wksVar.Cells(1, 2).Value = "Total"
                wksVar.Cells(1, 3).Value = "GoodRead"
                wksVar.Cells(1, 4).Value = "ReadRate ges"
                wksVar.Cells(1, 5).Value = "MultCode"
                wksVar.Cells(1, 6).Value = "GoodRead SC" & i
                wksVar.Cells(1, 7).Value = "ReadRate SC" & i
               
                With wksVar.Rows("1")
                    .Orientation = 90
                End With
               
            With wksW
                .Range("A" & intEZe & ":B" & intLZe).Copy wksVar.Cells(2, 1)
                .Range("D" & intEZe & ":D" & intLZe).Copy wksVar.Cells(2, 3)
                .Range(wksW.Cells(intEZe, 42), wksW.Cells(intLZe, 42)).Copy wksVar.Cells(2, 5)
                .Range(wksW.Cells(intEZe, 42 + i), wksW.Cells(intLZe, 42 + i)).Copy wksVar.Cells(2, 6)
            End With
            With wksVar.Range((wksVar.Cells(2, 4)), wksVar.Cells(intLZe - intEZe + 2, 4))
                .FormulaR1C1 = "=RC[-1]/RC[-2]"
                .NumberFormat = "0.00%"
                .Formula = .Value
            End With
            With wksVar.Cells(intLZe - intEZe + 4, 4) ' Durschnitt ReadRate ges bilden
                .FormulaR1C1 = "=Average(R[-" & (intLZe - intEZe + 2) & "]C:R[-2]C)"
                .NumberFormat = "0.0%"
                .Formula = .Value
            End With
            With wksVar.Range((wksVar.Cells(2, 7)), wksVar.Cells(intLZe - intEZe + 2, 7))
                .FormulaR1C1 = "=RC[-1]/RC[-5]"
                .NumberFormat = "0.00%"
                .Formula = .Value
            End With
            With wksVar.Cells(intLZe - intEZe + 4, 7) ' Durschnitt ReadRate SC bilden
                .FormulaR1C1 = "=Average(R[-" & (intLZe - intEZe + 2) & "]C:R[-2]C)"
                .NumberFormat = "0.0%"
                .Formula = .Value
            End With
           

' #################################################################################################
        ' 4.    Diagramm pro SC Blatt einfügen

            intLetzte_Zeile = wksVar.Cells(Rows.Count, 1).End(xlUp).Row
               
       
            wksVar.Range("H1").Select
           
            Charts.Add
            ActiveChart.ChartType = xlColumnClustered
            ActiveChart.SetSourceData Source:=wksVar.Range((wksVar.Cells(1, 1)), wksVar.Cells(intLetzte_Zeile, 7)), PlotBy:= _
                xlColumns ' Wertebereich des Diagramms wählen
        ' Überflüssige Datenreihen löschen
            ActiveChart.SeriesCollection(1).Delete
            ActiveChart.SeriesCollection(1).Delete
            ActiveChart.SeriesCollection(2).Delete
            ActiveChart.SeriesCollection(2).Delete
            ActiveChart.Location Where:=xlLocationAsObject, Name:="SC" & i
            ActiveChart.Legend.Position = xlTop
           
        ' ---------------------------------------------------------------------
        ' 4.1   Formatierung X- und Y-Achse
       
            With ActiveChart.Axes(xlCategory).TickLabels
                .Orientation = xlUpward ' X-Aches Datum senkrecht anordnen
            End With
            With ActiveChart.Axes(xlCategory)
                .MajorUnit = 1 ' X-Achse Datum Hauptintervall auf 1 Tag, zuvor 2 Tage
            End With

            With ActiveChart.Axes(xlValue)
                .MaximumScale = 1 ' Y-Achse Prozent auf Maximalwert 100& stellen, zuvor 120%
            End With
       
        ' Y-Achse Achse formatieren in Prozent ohne Kommastellen
            ActiveChart.Axes(xlValue).TickLabels.NumberFormat = "0%"
       
        ' Schiftgröße X- und Y-Achse definieren
            ActiveChart.Axes(xlCategory).TickLabels.AutoScaleFont = False
            ActiveChart.Axes(xlCategory).TickLabels.Font.Size = 10
       
            ActiveChart.Axes(xlValue).TickLabels.AutoScaleFont = False
            ActiveChart.Axes(xlValue).TickLabels.Font.Size = 10
           
        ' ---------------------------------------------------------------------
        ' 4.2   Farben der 2 Datenreihen definieren

            With ActiveChart.SeriesCollection(1).Interior
                .ColorIndex = 43 + i ' hellorange
                .Pattern = xlSolid
            End With
            With ActiveChart.SeriesCollection(2).Interior
                .ColorIndex = 49 + i ' weinrot
                .Pattern = xlSolid
            End With
           
        ' ---------------------------------------------------------------------
        ' 4.3   Trendlinie für Datenreihe (1) anlegen, Definition der Farbe, Stärke und Name
       
            ActiveChart.SeriesCollection(1).Trendlines.Add(Type:=xlLinear, Forward:=0, _
                Backward:=0, DisplayEquation:=False, DisplayRSquared:=False).Select

            With ActiveChart.SeriesCollection(1).Trendlines(1).Border
                .ColorIndex = 44 + i
                .Weight = xlThick
                .LineStyle = xlContinuous
            End With
            ActiveChart.SeriesCollection(1).Trendlines(1).Name = "Trend ges"
           
        ' ---------------------------------------------------------------------
        ' 4.4   Trendlinie für Datenreihe (2) anlegen, Definition der Farbe, Stärke und Name
       
            ActiveChart.SeriesCollection(2).Trendlines.Add(Type:=xlLinear, Forward:=0, _
                Backward:=0, DisplayEquation:=False, DisplayRSquared:=False).Select

            With ActiveChart.SeriesCollection(2).Trendlines(1).Border
                .ColorIndex = 50 + i ' rot
                .Weight = xlThick ' dick
                .LineStyle = xlContinuous
            End With
            ActiveChart.SeriesCollection(2).Trendlines(1).Name = "Trend SC" & i

        ' ---------------------------------------------------------------------
        ' 4.5   Beschriftung des Diagramms
       
            If i = 1 Or i = 3 Then
                With ActiveChart
                    .HasTitle = True
                    .ChartTitle.Characters.Text = wksW.Cells(4, 1).Value & " - SC" & i & " (Linien CLV631, ges=" & _
                            Format(wksVar.Cells(intLZe - intEZe + 4, 4).Value, "0.0%") & " SC" & i & _
                            "=" & Format(wksVar.Cells(intLZe - intEZe + 4, 7).Value, "0.0%)")
                End With
            End If
            If i = 2 Or i = 4 Then
                With ActiveChart
                    .HasTitle = True
                    .ChartTitle.Characters.Text = wksW.Cells(4, 1).Value & " - SC" & i & " (Schwingspiegel CLV631, ges=" & _
                            Format(wksVar.Cells(intLZe - intEZe + 4, 4).Value, "0.0%") & " SC" & i & _
                            "=" & Format(wksVar.Cells(intLZe - intEZe + 4, 7).Value, "0.0%)")
                End With
            End If
           
            'MsgBox (ActiveSheet.Shapes.Name)

        ' ---------------------------------------------------------------------
        ' 4.6   Werte an Datenreihen anzeigen und definieren
       
        ' Bei Datenreihe (1) Werte anzeigen
            ActiveChart.SeriesCollection(1).ApplyDataLabels AutoText:=True, LegendKey:= _
                False, ShowSeriesName:=False, ShowCategoryName:=False, ShowValue:=True, _
                ShowPercentage:=False, ShowBubbleSize:=False, Separator:=" "
       
        ' Datenreihe (1) Beschriftung formatieren
            With ActiveChart.SeriesCollection(1).DataLabels.Font
                .FontStyle = "Fett"
                .Size = 6
            End With
            ActiveChart.SeriesCollection(1).DataLabels.NumberFormat = "0%"
           
        ' Bei Datenreihe (2) Werte anzeigen
            ActiveChart.SeriesCollection(2).ApplyDataLabels AutoText:=True, LegendKey:= _
                False, ShowSeriesName:=False, ShowCategoryName:=False, ShowValue:=True, _
                ShowPercentage:=False, ShowBubbleSize:=False
           
        ' Datenreihe (2) Beschriftung formatieren
            With ActiveChart.SeriesCollection(2).DataLabels.Font
                .FontStyle = "Fett"
                .Size = 6
            End With
            ActiveChart.SeriesCollection(2).DataLabels.NumberFormat = "0%"
               
        ' --------------------------------------------------------------------- ohne Funktion
        ' 4.7   Ohne Funktion, Diagramm soll ca. auf sichtbaren Brereich vergrößert werden
       
            ActiveSheet.Shapes("SC" & i).ScaleWidth 1.02, msoFalse, _
                msoScaleFromTopLeft
            ActiveSheet.Shapes("SC" & i).ScaleHeight 1.04, msoFalse, _
                msoScaleFromTopLeft
        ' ---------------------------------------------------------------------

           

       
    ' ---------------------------------------------------------------------
        Next i
    ' ---------------------------------------------------------------------
__pete__
Gast


Verfasst am:
21. Jan 2013, 18:22
Rufname:


AW: VBA- Diagrammgröße formatieren, Durchschnitt berechnen - AW: VBA- Diagrammgröße formatieren, Durchschnitt berechnen

Nach oben
       Version: Office 2007

Das verblüffende ist, führe ich das Makro in Excel 2007 aus,
funktioniert zumindest der erste Punkt, das Berechnen des Durchschnitts und die Diagrammbeschriftung wieder.
Woran kann so etwas liegen?
Habe ich versehentlich ein Makroaufzeichnungsschnipsel aus 2007 in meinem Code versteckt?
Kann das jemand von euch beurteilen?

Danke für Hilfe.
Pete
__pete__
Gast


Verfasst am:
21. Jan 2013, 18:26
Rufname:

AW: VBA- Diagrammgröße formatieren, Durchschnitt berechnen - AW: VBA- Diagrammgröße formatieren, Durchschnitt berechnen

Nach oben
       Version: Office 2007

Führe ich das Makro in 2003 aus, entstehen die 2 oben zu sehenden Fehler,
dass der Durschnitt nur auf Tabellenblatt SC1 korrekt berechnet wird und auf SC2 bis SC4
DIV/0 entstehen.
Als Diagrammtitel trägt er auf dem Blatt SC2 bis SC4 nur Diagrammtitel ein, statt
Code:
wksW.Cells(4, 1).Value & " - SC" & i & " (Schwingspiegel CLV631, ges=" & _
                            Format(wksVar.Cells(intLZe - intEZe + 4, 4).Value, "0.0%") & " SC" & i & _
                            "=" & Format(wksVar.Cells(intLZe - intEZe + 4, 7).Value, "0.0%)")


Pete
__pete__
Gast


Verfasst am:
23. Jan 2013, 14:18
Rufname:


AW: VBA- Diagrammgröße formatieren, Durchschnitt berechnen - AW: VBA- Diagrammgröße formatieren, Durchschnitt berechnen

Nach oben
       Version: Office 2007

Hallo,

OK, ich sehe ein, der gesamte Code überfordert.
Ich habe das Problem der Div/0 Feher in Excel 2003 in den Griff bekommen.
Der Code wurde bei der Berechnung einfach von FormulaR1C1 befreit und mit .Values ersetzt (Siehe unten).

Aber was ich nicht in den Griff bekomme, weder in Excel 2007 noch 2003, ist die
Diagrammgröße nahezu der Fenstergröße anzupassen.
Ich habe zwar hier einiges nachgelesen und probiert, es klappte aber leider nichts.

Kann mir jemand sagen wie ich die Diagrammgröße, in meinem Code unter Punkt 4.7, anpassen kann???

Gruß
Pete


Code:
        For i = 1 To intAnzSc Step 1
        ' ---------------------------------------------------------------------

            Set wksVar = Worksheets("SC" & i)
           
                wksVar.Cells(1, 1).Value = "Date"
                wksVar.Cells(1, 2).Value = "Total"
                wksVar.Cells(1, 3).Value = "GoodRead"
                wksVar.Cells(1, 4).Value = "ReadRate ges"
                wksVar.Cells(1, 5).Value = "MultCode"
                wksVar.Cells(1, 6).Value = "GoodRead SC" & i
                wksVar.Cells(1, 7).Value = "ReadRate SC" & i
               
                With wksVar.Rows("1")
                    .Orientation = 90
                End With
               
            With wksW
                .Range("A" & intEZe & ":B" & intLZe).Copy wksVar.Cells(2, 1)
                .Range("D" & intEZe & ":D" & intLZe).Copy wksVar.Cells(2, 3)
                .Range(wksW.Cells(intEZe, intSc1Sp - 1), wksW.Cells(intLZe, intSc1Sp - 1)).Copy wksVar.Cells(2, 5)
                .Range(wksW.Cells(intEZe, intSc1Sp - 1 + i), wksW.Cells(intLZe, intSc1Sp - 1 + i)).Copy wksVar.Cells(2, 6)
            End With
           
            intLetzte_Zeile = wksVar.Cells(Rows.Count, 1).End(xlUp).Row
           
            For j = 2 To intLetzte_Zeile Step 1
                wksVar.Cells(j, 4).Value = wksVar.Cells(j, 3).Value / wksVar.Cells(j, 2).Value
                wksVar.Cells(j, 7).Value = wksVar.Cells(j, 6).Value / wksVar.Cells(j, 2).Value
            Next j
           
            With wksVar.Range((wksVar.Cells(2, 4)), wksVar.Cells(intLZe - intEZe + 2, 4))
                '.FormulaR1C1 = "=RC[-1]/RC[-2]"
                .NumberFormat = "0.00%"
                .Formula = .Value
            End With
            With wksVar.Range((wksVar.Cells(2, 7)), wksVar.Cells(intLZe - intEZe + 2, 7))
                '.FormulaR1C1 = "=RC[-1]/RC[-5]"
                .NumberFormat = "0.00%"
                .Formula = .Value
            End With
            With wksVar.Cells(intLZe - intEZe + 4, 4) ' Durschnitt ReadRate ges bilden
                .FormulaR1C1 = "=Average(R[-" & (intLZe - intEZe + 2) & "]C:R[-2]C)"
                .NumberFormat = "0.0%"
                .Formula = .Value
            End With
            With wksVar.Cells(intLZe - intEZe + 4, 7) ' Durschnitt ReadRate SC bilden
                .FormulaR1C1 = "=Average(R[-" & (intLZe - intEZe + 2) & "]C:R[-2]C)"
                .NumberFormat = "0.0%"
                .Formula = .Value
...
...
            End With
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: MIN und DURCHSCHNITT mit Kriterium ??? 1 Nindigo 2670 14. Feb 2006, 16:48
Nindigo MIN und DURCHSCHNITT mit Kriterium ???
Keine neuen Beiträge Excel Formeln: MwSt. berechnen 3 Kuddel_HH 1968 03. Feb 2006, 21:22
< Peter > MwSt. berechnen
Keine neuen Beiträge Excel Formeln: Stunden berechnen 2 Winston 3296 04. Jan 2006, 16:29
ae Stunden berechnen
Keine neuen Beiträge Excel Formeln: Arbeitszeit berechnen 1 keksi 1830 11. Nov 2005, 22:45
Tobias113 Arbeitszeit berechnen
Keine neuen Beiträge Excel Formeln: Überstunden berechnen 1 Kaya001 2122 07. Aug 2005, 18:35
ae Überstunden berechnen
Keine neuen Beiträge Excel Formeln: Zeit und Stunden berechnen 2 power-user 4051 03. Aug 2005, 22:20
power-user Zeit und Stunden berechnen
Keine neuen Beiträge Excel Formeln: Darlehenslaufzeit mit Excel berechnen 4 Blue_Whirlwind 19058 12. Jul 2005, 17:56
Günni Darlehenslaufzeit mit Excel berechnen
Keine neuen Beiträge Excel Formeln: kontrollkästchen formatieren 1 k-on-line 627 21. Jun 2005, 17:21
fl618 kontrollkästchen formatieren
Keine neuen Beiträge Excel Formeln: SPIELTAGE BERECHNEN 7 Konz 1063 01. Apr 2005, 09:35
mruettler SPIELTAGE BERECHNEN
Keine neuen Beiträge Excel Formeln: Zins berechnen 1 Gast1 3989 10. Feb 2005, 16:59
icke Zins berechnen
Keine neuen Beiträge Excel Formeln: Alter berechnen!! 1 Gast 7024 23. Jan 2005, 22:57
Tom11 Alter berechnen!!
Keine neuen Beiträge Excel Formeln: Anzahl bestimmter Wochentage pro Monat berechnen 2 Job 3090 12. Jan 2005, 15:57
Job Anzahl bestimmter Wochentage pro Monat berechnen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML Forum