Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Sicherheitshinweis ---> für registrierte Mitglieder <-
Beschleunigung eines Makros
zurück: Schape startet Makro > wie frage ich im Makro Shape Name weiter: Ordner durchsuchen + aktuellsten Dateinamen in Textbox Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
VBA Neuling
Gast


Verfasst am:
29. Jun 2009, 14:31
Rufname:

Beschleunigung eines Makros - Beschleunigung eines Makros

Nach oben
       Version: Office 2003

Guten Tag,

Kennt jemand zufälligerweise einen Weg folgends Makro zu beschleunigen?
Ich habe mir diese Teile einfach zusammenkopiert bzw. vieles mit dem Makro-Rekorder aufgezeichnet. Was wirklich schön wäre, wenn die Datei welche durchsucht werden nicht geöffnet werden, bzw. anschliessend direkt geschlossen werden.

Sub DateienZusammenkopieren2()
Dim Mappe As String
Dim i As Integer

Mappe = ActiveWorkbook.Name
Range("A1").Select
With Application.FileSearch
.NewSearch
.LookIn = "J:\IAAN\ALLGEM\Titelbilanz\MakroZusammenführungsOrdner"
.SearchSubFolders = False
.FileType = msoFileTypeAllFiles
.Execute

For i = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(i)
Range("A2:AG15000").Copy
Workbooks(Mappe).Activate
ActiveSheet.Paste
Range("A65536").End(xlUp).Offset(1, 0).Select
Next i

End With

Columns("DVery Happy").Select
Selection.Insert Shift:=xlToRight

Columns("R:R").Select
Selection.Copy
Columns("DVery Happy").Select
ActiveSheet.Paste

Columns("H:H").Select
Selection.Insert Shift:=xlToRight

Range("B:B,I:I,K:K,M:M,ORazz,S:Y,AA:AE,AG:AJ").Select
Selection.Delete Shift:=xlToLeft

Rows("1:2").Select
Application.CutCopyMode = False

Selection.Insert Shift:=xlDown
Range("A2").Select
ActiveCell.FormulaR1C1 = "Valor"
Range("B2").Select
ActiveCell.FormulaR1C1 = "Portfolio"
Range("C2").Select
ActiveCell.FormulaR1C1 = "Stamm-" & Chr(10) & "nummer"
Range("D2").Select
ActiveCell.FormulaR1C1 = "Kunde"
Range("E2").Select
ActiveCell.FormulaR1C1 = "Betrag"
Range("F2").Select
ActiveCell.FormulaR1C1 = "%"
Range("G2").Select
ActiveCell.FormulaR1C1 = "Total%/" & Chr(10) & "Stamm"
Range("H2").Select
ActiveCell.FormulaR1C1 = "Berater"
Range("I2").Select
ActiveCell.FormulaR1C1 = "VV Code"
Range("J2").Select
ActiveCell.FormulaR1C1 = "Anlageziel"
Range("K2").Select
ActiveCell.FormulaR1C1 = "EP"
Range("L2").Select
ActiveCell.FormulaR1C1 = "Einheit"
Range("M2").Select
ActiveCell.FormulaR1C1 = "Menge"
Range("N2").Select
ActiveCell.FormulaR1C1 = "EP Devisen"

Sheets("Tabelle1").Activate
If Not ActiveSheet.AutoFilterMode = True Then
Range("A2").AutoFilter
End If

Range("E:G,K:K,N:N").Select
Selection.NumberFormat = "0.00"

Range("A1:N1").Select
With Selection.Interior
.ColorIndex = 11
.Pattern = xlSolid
End With
Range("A2:N2").Select
With Selection.Interior
.ColorIndex = 24
.Pattern = xlSolid
End With

Range("A1:N2").Select
Selection.Font.Bold = True

Range("H2:H15000").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, _
Formula1:="="""""
Selection.FormatConditions(1).Interior.ColorIndex = 24
Selection.Font.Bold = True


For i = IIf(Len(Cells(Rows.Count, 1)), Rows.Count, Cells(Rows.Count, 1).End(xlUp).Row) To 1 Step -1
If Cells(i, 13) < 0 Then Rows(i).Delete

Next
Range("A2:N2").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("F2").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With

Columns("E:E").Select
Selection.NumberFormat = "#,##0.00"
Columns("M:M").Select
Selection.NumberFormat = "#,##0"
Cells.Select
With Selection.Font
.Name = "Garamond"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With


Columns("A:L").EntireColumn.AutoFit

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Tabelle1!R2C1:R15000C14").CreatePivotTable TableDestination:= _
"'Tabelle1'!R2C53", TableName:= _
"PivotTable1", DefaultVersion:=xlPivotTableVersion10
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Stamm-" & Chr(10) & "nummer")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
"PivotTable1").PivotFields("%"), "Summe von %", xlSum
Range("G3").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-4]>0,VLOOKUP(RC[-4],C[15]:C[16],2,false),"""")"
Selection.AutoFill Destination:=Range("G3:G15000")
Range("G3:G15000").Select
Range("A3").Select
ActiveWorkbook.Worksheets("Tabelle1").PivotTables("PivotTable1").PivotCache. _
CreatePivotTable TableDestination:= _
"'Tabelle1'!R2C56", TableName:= _
"PivotTable2", DefaultVersion:=xlPivotTableVersion10
With ActiveSheet.PivotTables("PivotTable2").PivotFields("Berater")
.Orientation = xlRowField
.Position = 1
End With
Range("BL3").Select
ActiveCell.FormulaR1C1 = "'@gkb.ch"
Range("BL4").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-8],R3C64)"
Range("BL4").Select
Selection.AutoFill Destination:=Range("BL4:BL15000"), Type:=xlFillDefault
Range("A3").Select

With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.1968)
.RightMargin = Application.InchesToPoints(0.1968)
.TopMargin = Application.InchesToPoints(0.3937)
.BottomMargin = Application.InchesToPoints(0.3937)
.HeaderMargin = Application.InchesToPoints(0.5118)
.FooterMargin = Application.InchesToPoints(0.5118)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 80
.PrintErrors = xlPrintErrorsDisplayed
End With
Columns("A:N").Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False


Range("G3:G15000").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="10"
Selection.FormatConditions(1).Interior.ColorIndex = 3
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:="5", Formula2:="10"
Selection.FormatConditions(2).Interior.ColorIndex = 6
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:="0.001", Formula2:="5"
Selection.FormatConditions(3).Interior.ColorIndex = 4

Columns("A:N").Select
ActiveSheet.PageSetup.PrintArea = "$A:$N"


Range("A2:N15000").Sort Key1:=Range("G2"), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Range("A2").Select

End Sub

Vielen Dank im Voraus für eure Feedback.
stefan onken
Im Profil kannst Du frei den Rang ändern


Verfasst am:
29. Jun 2009, 16:09
Rufname:
Wohnort: hamburg


AW: Beschleunigung eines Makros - AW: Beschleunigung eines Makros

Nach oben
       Version: Office 2003

hallo,
der erste Schritt ist, die ganzen Select rauszukriegen, die machen den Code langsam.

Columns("D").Select
Selection.Insert Shift:=xlToRight

änderst du in Columns("D").Insert Shift:=xlToRight

Range("A2").Select
ActiveCell.FormulaR1C1 = "Valor"

in Range("A2") = "Valor"

usw

Zum schließen der Datei(en)


Workbooks.Open .FoundFiles(i)
Range("A2:AG15000").Copy
Workbooks(Mappe).Activate
ActiveSheet.Paste
Workbooks (dir(.FoundFiles(i))).Close 'hier wird geschlossen

Gruß
stefan






Ansonsten passiert ja auch viel im Makro, das dauert dann auch etwas länger, gerade die ganzen Formatierungen.
Phelan XLPH
Fortgeschritten


Verfasst am:
29. Jun 2009, 16:14
Rufname: Phelan

AW: Beschleunigung eines Makros - AW: Beschleunigung eines Makros

Nach oben
       Version: Office 2003

werden denn alle geöffneten Dateien in der "Tabelle1" zusammengeführt.
Betrifft der ganze Code nur die "Tabelle1"?

EDIT:

Code:
Option Explicit
Private Mappe As String

Sub DateienZusammenkopieren2()
Dim i As Integer

Mappe = ActiveWorkbook.Name
With Application.FileSearch
    .NewSearch
    .LookIn = "J:\IAAN\ALLGEM\Titelbilanz\MakroZusammenführungsOrdner"
    .SearchSubFolders = False
    .FileType = msoFileTypeAllFiles
    .Execute
    For i = 1 To .FoundFiles.Count
        Workbooks.Open .FoundFiles(i)
        ActiveWorkbook.Sheets(1).Range("A2:AG15000").Copy _
        Workbooks(Mappe).Sheets("Tabelle1").Range("A65536").End(xlUp).Offset(1, 0)
    Next i
End With

With Workbooks(Mappe).Sheets("Tabelle1")
    .Columns("D:D").Insert Shift:=xlToRight
    .Columns("R:R").Copy .Columns("D:D")
    .Columns("H:H").Insert Shift:=xlToRight
   
    .Range("B:B,I:I,K:K,M:M,O,S:Y,AA:AE,AG:AJ").Delete Shift:=xlToLeft
   
    .Rows("1:2").Insert Shift:=xlDown
    .Range("A2") = "Valor"
    .Range("B2") = "Portfolio"
    .Range("C2") = "Stamm-" & Chr(10) & "nummer"
    .Range("D2") = "Kunde"
    .Range("E2") = "Betrag"
    .Range("F2") = "%"
    .Range("G2") = "Total%/" & Chr(10) & "Stamm"
    .Range("H2") = "Berater"
    .Range("I2") = "VV Code"
    .Range("J2") = "Anlageziel"
    .Range("K2") = "EP"
    .Range("L2") = "Einheit"
    .Range("M2") = "Menge"
    .Range("N2") = "EP Devisen"

    If Not .AutoFilterMode = True Then
        .Range("A2").AutoFilter
    End If
   
    .Range("E:G,K:K,N:N").NumberFormat = "0.00"
   
    .Range("A1:N1").Interior.ColorIndex = 11
    .Range("A2:N2").Interior.ColorIndex = 24
   
    .Range("A1:N2").Bold = True
   
    With .Range("H2:H15000")
        .FormatConditions.Delete
        .FormatConditions.Add _
        Type:=xlCellValue, _
        Operator:=xlNotEqual, _
        Formula1:="="""""
        .FormatConditions(1).Interior.ColorIndex = 24
        .Font.Bold = True
    End With
   
    For i = IIf(Len(.Cells(.Rows.Count, 1)), .Rows.Count, .Cells(.Rows.Count, 1).End(xlUp).Row) To 1 Step -1
        If .Cells(i, 13) < 0 Then .Rows(i).Delete
    Next
   
    With .Range("A2:N2")
        .Borders(xlDiagonalDown).LineStyle = xlNone
        .Borders(xlDiagonalUp).LineStyle = xlNone
        For i = 7 To 11
            With .Borders(i)
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = xlAutomatic
            End With
        Next
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = True
    End With

    With .Range("F2")
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
    End With

    .Columns("E:E").NumberFormat = "#,##0.00"
    .Columns("M:M").NumberFormat = "#,##0"
    With .Cells.Font
        .Name = "Garamond"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
    End With
   
   
    .Columns("A:L").EntireColumn.AutoFit

    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
    "Tabelle1!R2C1:R15000C14").CreatePivotTable TableDestination:= _
    "'Tabelle1'!R2C53", TableName:= _
    "PivotTable1", DefaultVersion:=xlPivotTableVersion10
   
    With .PivotTables("PivotTable1").PivotFields("Stamm-" & Chr(10) & "nummer")
        .Orientation = xlRowField
        .Position = 1
    End With
    .PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
    "PivotTable1").PivotFields("%"), "Summe von %", xlSum
   
    .Range("G3").FormulaR1C1 = "=IF(RC[-4]>0,VLOOKUP(RC[-4],C[15]:C[16],2,false),"""")"
    .Range("G3").AutoFill Destination:=.Range("G3:G15000")

    .PivotTables("PivotTable1").PivotCache. _
    CreatePivotTable TableDestination:= _
    "'Tabelle1'!R2C56", TableName:= _
    "PivotTable2", DefaultVersion:=xlPivotTableVersion10

    With .PivotTables("PivotTable2").PivotFields("Berater")
        .Orientation = xlRowField
        .Position = 1
    End With

    .Range("BL3") = "'@gkb.ch"
    .Range("BL4").FormulaR1C1 = "=CONCATENATE(RC[-8],R3C64)"
    .Range("BL4").AutoFill Destination:=.Range("BL4:BL15000"), Type:=xlFillDefault

    .Columns("A:N").Copy
    .Range("A1").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
   
    With .Range("G3:G15000")
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="10"
        .FormatConditions(1).Interior.ColorIndex = 3
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
        Formula1:="5", Formula2:="10"
        .FormatConditions(2).Interior.ColorIndex = 6
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
        Formula1:="0.001", Formula2:="5"
        .FormatConditions(3).Interior.ColorIndex = 4
    End With
   
    .PageSetup.PrintArea = "$A:$N"
   
    .Range("A2:N15000").Sort Key1:=.Range("G2"), Order1:=xlDescending, Header:= _
    xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortTextAsNumbers

End With

End Sub

Sub PageSetupDurchfuehren()
With Workbooks(Mappe).Sheets("Tabelle1").PageSetup
    .LeftHeader = ""
    .CenterHeader = ""
    .RightHeader = ""
    .LeftFooter = ""
    .CenterFooter = ""
    .RightFooter = ""
    .LeftMargin = Application.InchesToPoints(0.1968)
    .RightMargin = Application.InchesToPoints(0.1968)
    .TopMargin = Application.InchesToPoints(0.3937)
    .BottomMargin = Application.InchesToPoints(0.3937)
    .HeaderMargin = Application.InchesToPoints(0.5118)
    .FooterMargin = Application.InchesToPoints(0.5118)
    .PrintHeadings = False
    .PrintGridlines = False
    .PrintComments = xlPrintNoComments
    .PrintQuality = 600
    .CenterHorizontally = False
    .CenterVertically = False
    .Orientation = xlLandscape
    .Draft = False
    .PaperSize = xlPaperA4
    .FirstPageNumber = xlAutomatic
    .Order = xlDownThenOver
    .BlackAndWhite = False
    .Zoom = 80
    .PrintErrors = xlPrintErrorsDisplayed
End With
End Sub


Ich hoff mal ich hab nix vergessen oder falsch referenziert, war nicht genau
ersichtlich. PageSetup hab ich rausgenommen, das solltest du nur bei Bedarf
durchführen. Denn dieses benötigt die meiste Zeit.
Du kannst die PageSetup-Werte beim öffnen der datei auch zwischenspeichern
und nachdem Konsolidieren oder vor dem Drucken auf Änderung durch einen
Anwender prüfen und dann die Werte zurücksetzen.

Das ist dir überlassen.

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
VBA Neuling
Gast


Verfasst am:
01. Jul 2009, 15:47
Rufname:

AW: Beschleunigung eines Makros - AW: Beschleunigung eines Makros

Nach oben
       Version: Office 2003

Leider erhalte ich nun eine Fehlermelung:

Laufzeitfehler '1004':
Anwendungs- oder objektdefinierter Fehler

und beim debuggen wird die Ziele .Range("B:B,I:I,K:K,M:M,O,S:Y,AA:AE,AG:AJ").Delete Shift:=xlToLeft

gelb.


vielen dank für das feedback
Phelan XLPH
Fortgeschritten


Verfasst am:
01. Jul 2009, 16:08
Rufname: Phelan


AW: Beschleunigung eines Makros - AW: Beschleunigung eines Makros

Nach oben
       Version: Office 2003

Hoi,

da fehlt
Zitat:
":O"
wegen dem blöden Smily

muss so heissen
Zitat:
.Range("B:B,I:I,K:K,M:M,O:O,S:Y,AA:AE,AG:AJ").Delete Shift:=xlToLeft

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
VBA Neuling
Gast


Verfasst am:
01. Jul 2009, 16:27
Rufname:

AW: Beschleunigung eines Makros - AW: Beschleunigung eines Makros

Nach oben
       Version: Office 2003

Jetzt motzt er leider mit dem Laufzeitfehler '438':

Objekt unterstützt diese Eigenschaft oder Methode nicht

Debuggen:

.Range("A1:N2").Bold = True

gelb


nochmals danke im voraus für den tip.
Phelan XLPH
Fortgeschritten


Verfasst am:
01. Jul 2009, 16:47
Rufname: Phelan

AW: Beschleunigung eines Makros - AW: Beschleunigung eines Makros

Nach oben
       Version: Office 2003

...da hab ich wohl zuviel weggeschnitten.

das muss natürlich so heissen:
Zitat:
.Range("A1:N2").Font.Bold = True

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Gast



Verfasst am:
01. Jul 2009, 17:01
Rufname:

AW: Beschleunigung eines Makros - AW: Beschleunigung eines Makros

Nach oben
       Version: Office 2003

Jetzt motzt er leider mit dem Laufzeitfehler '5':

Ungültiger Prozeduraufruf oder ungültiges Argument

Debuggen:

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Tabelle1!R2C1:R15000C14").CreatePivotTable TableDestination:= _
"'Tabelle1'!R2C53", TableName:= _
"PivotTable1", DefaultVersion:=xlPivotTableVersion10

gelb


nochmals danke im voraus für den tip.
VBA Neuling
Gast


Verfasst am:
03. Jul 2009, 08:48
Rufname:


AW: Beschleunigung eines Makros - AW: Beschleunigung eines Makros

Nach oben
       Version: Office 2003

Hallo miteinander

Kann mir jemand noch mit folgendem Laufzeitfehler helfen?

Jetzt motzt er leider mit dem Laufzeitfehler '5':

Ungültiger Prozeduraufruf oder ungültiges Argument

Debuggen:

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Tabelle1!R2C1:R15000C14").CreatePivotTable TableDestination:= _
"'Tabelle1'!R2C53", TableName:= _
"PivotTable1", DefaultVersion:=xlPivotTableVersion10

gelb


nochmals danke im voraus für den tip.
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: Makros / Module per VBA löschen 6 Ombre 18804 18. Dez 2013, 15:14
Lars75 Makros / Module per VBA löschen
Keine neuen Beiträge Excel Formate: problem mit makros 3 mcfisto07 420 16. Jan 2010, 16:00
Denny problem mit makros
Keine neuen Beiträge Excel Formate: Berabeiten eines Makros 39 Andyen 1117 12. Jan 2010, 18:41
Andyen Berabeiten eines Makros
Keine neuen Beiträge Excel Formate: Formatierungsunterschiede eines programmierten Makros 0 fuenkchen0711 706 28. Okt 2009, 14:22
fuenkchen0711 Formatierungsunterschiede eines programmierten Makros
Keine neuen Beiträge Excel Formeln: Farben zuweisen mit Hilfe von Makros 14 djury 1062 06. Jun 2009, 12:24
djury Farben zuweisen mit Hilfe von Makros
Keine neuen Beiträge Excel Formeln: Makros lassen sich nicht aktivieren 5 Kermit1971 1518 20. Jan 2009, 07:58
< Peter > Makros lassen sich nicht aktivieren
Keine neuen Beiträge Excel Formeln: Kombinationsfeld auswerten und Makros löschen 12 MarkusM 622 27. Jun 2007, 06:10
Deep Purple Kombinationsfeld auswerten und Makros löschen
Keine neuen Beiträge Excel Formeln: automatisches Ausführen eines Makros 1 Marvin_der_Koenig 1032 03. Jan 2007, 19:21
ransi automatisches Ausführen eines Makros
Keine neuen Beiträge Excel Formeln: Bedingte Formatierung und Makros 2 Markus_S. 717 01. Dez 2006, 13:16
MArkus_S Bedingte Formatierung und Makros
Keine neuen Beiträge Excel Formate: verschiedene Makros einem Button zuweisen?? 5 Samuel21 1611 14. März 2006, 23:57
Samuel21 verschiedene Makros einem Button zuweisen??
Keine neuen Beiträge Excel VBA (Makros): Zu Beginn des Makros eine neue Spalte einfügen... 2 azique 10493 09. Dez 2004, 12:57
azique Zu Beginn des Makros eine neue Spalte einfügen...
Keine neuen Beiträge Excel VBA (Makros): VBA, Makros 5 Willie 601 30. Sep 2004, 16:14
Meilenstein VBA, Makros
 

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