Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Mithilfe eines Makro Datei abspeichern
zurück: Spalten aufgrund der ersten Zelle ein-/ausblenden weiter: Spalten nach Datumsformat suchen und Spaltennummer ausgeben 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
D.S.
Im Profil kannst Du frei den Rang ändern


Verfasst am:
09. Apr 2014, 13:04
Rufname:

Mithilfe eines Makro Datei abspeichern - Mithilfe eines Makro Datei abspeichern

Nach oben
       Version: Office 2007

Guten Morgen zusammen,

ich habe mein erstes Makro grade fertig gebastelt und mir danach überlegt, dass es noch ganz schön wäre wenn Excel auch das Speichern für mich übernimmt.

Also ein paar Daten:
Also ich öffne die Datei aus eine email heraus. Sie ist noch nicht abgespeichert.
Die Datei heißt immer zu beginn: 12.20.xlsx
Der neue Name soll sich zusammenstellen aus: Inhalt Zelle A1 (Tabellenblatt "Cases per Division");_;dem aktuellen Datum (Format des Datums: bsp. für heute:140409).xlsx
Abgespeichert werden soll die Datei hier: L:\Reportings\Case KPIs

* Zusatzt, wenn es Möglich ist das Excel einen neuen Ordner im Case KPIs erstellt und es dort abzuspeichert wäre das sehr sehr sehr gut. Der Ordner soll dann den Namen Jahr Monat tragen. Dieses Format für heute "14 04".)
Wenn das nicht klappt "einfach" unter dem oben genannten Link speichern.


Außerdem soll nach erfolgreichem speichern eine Meldung erscheinen, dass die Datei erfolgreich gespeichert wurde. Ansonsten soll eine Fehlermeldung erscheinen.

Wenn jemand hinbekommen würde, mir dafür ein Code zu basteln wäre er mein Excel-Held Smile

Danke im Voraus für alle die sich für mich Gedanken machen!
D.S.
Im Profil kannst Du frei den Rang ändern


Verfasst am:
17. Apr 2014, 11:44
Rufname:


AW: Mithilfe eines Makro Datei abspeichern - AW: Mithilfe eines Makro Datei abspeichern

Nach oben
       Version: Office 2007

Tipps oder ein Leitfaden sind auch WIllkommen!

Sitze schon Wochen dran und verzweifel dran! Sad
Isabelle :-)
Menschin


Verfasst am:
17. Apr 2014, 21:32
Rufname:
Wohnort: Westlicher Spiralarm der Galaxis

AW: Mithilfe eines Makro Datei abspeichern - AW: Mithilfe eines Makro Datei abspeichern

Nach oben
       Version: Office 2007

Hallöchen,

teste mal:

_________________
LG Isi

Die Mitgliedschaft im Forum erhöht deine Chance auf eine Antwort von mir um 99,999%



Speichern.zip
 Beschreibung:

Download
 Dateiname:  Speichern.zip
 Dateigröße:  33.58 KB
 Heruntergeladen:  13 mal

D.S.
Im Profil kannst Du frei den Rang ändern


Verfasst am:
24. Apr 2014, 07:51
Rufname:

AW: Mithilfe eines Makro Datei abspeichern - AW: Mithilfe eines Makro Datei abspeichern

Nach oben
       Version: Office 2007

Super danke für die mühe!

Ich habe nur ein Problem: wenn ich deinen Makro Code an meinen Makro code anhänge funktioniert es nicht. Kannst du vielleicht den Teil deines MakroCodes posten den ich an meinem bestehenden Makrocode anhängen muss, damit es funktioniert!

Und dein Makro abspeichern und laufen lassen funktioniert bei mir irgendwie auch nicht.
(Bin Anfänger!)
Isabelle :-)
Menschin


Verfasst am:
24. Apr 2014, 08:34
Rufname:
Wohnort: Westlicher Spiralarm der Galaxis

AW: Mithilfe eines Makro Datei abspeichern - AW: Mithilfe eines Makro Datei abspeichern

Nach oben
       Version: Office 2007

Hallöchen,

ich kenne deinen Code nicht und weiß nicht was du gemacht hast.

_________________
LG Isi

Die Mitgliedschaft im Forum erhöht deine Chance auf eine Antwort von mir um 99,999%
D.S.
Im Profil kannst Du frei den Rang ändern


Verfasst am:
24. Apr 2014, 09:19
Rufname:


AW: Mithilfe eines Makro Datei abspeichern - AW: Mithilfe eines Makro Datei abspeichern

Nach oben
       Version: Office 2007

Guten Morgen,

So sieht mein Code aus:


Code:
Sub Daten_CaseReporting()
'
' Daten_CaseReporting Makro
'
' Tastenkombination: Strg+Umschalt+D
'
Sheets("12.20").Select
    Sheets("12.20").Name = "Data"
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets("Tabelle1").Select
    Sheets("Tabelle1").Name = "Cases per Division"
    Sheets("Data").Select
    Range("Q2").Select
    ActiveCell.FormulaR1C1 = _
        "=+IF(R[-1]C[-16]="""",RC[-16],CONCATENATE(R[-1]C[-16],"" "",RC[-16]))"
    Range("Q2").Select
    Selection.AutoFill Destination:=Range("Q2:AF2"), Type:=xlFillDefault
    Range("Q2:AF2").Select
    Selection.Copy
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 1
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("Q:AN").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Rows("1:1").Select
    Selection.Delete Shift:=xlUp
    Columns("H:H").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("H1").Select
    ActiveCell.FormulaR1C1 = "Division"
    Range("R1").Select
    ActiveCell.FormulaR1C1 = "Cases"
    Range("A1:R1").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.249977111117893
        .PatternTintAndShade = 0
    End With
    Range("H2").Select
    ActiveCell.FormulaR1C1 = "=+IF(RC[-1]="""","""",LEFT(RC[-1],2))"
    Range("H2").Select
    Selection.AutoFill Destination:=Range("H2:H10104"), Type:=xlFillDefault
    Range("H2:H10104").Select
    ActiveWindow.ScrollRow = 10055
    ActiveWindow.ScrollRow = 10015
    ActiveWindow.ScrollRow = 9949
    ActiveWindow.ScrollRow = 9804
    ActiveWindow.ScrollRow = 9738
    ActiveWindow.ScrollRow = 9645
    ActiveWindow.ScrollRow = 9553
    ActiveWindow.ScrollRow = 9460
    ActiveWindow.ScrollRow = 9328
    ActiveWindow.ScrollRow = 9249
    ActiveWindow.ScrollRow = 9117
    ActiveWindow.ScrollRow = 8985
    ActiveWindow.ScrollRow = 8826
    ActiveWindow.ScrollRow = 8668
    ActiveWindow.ScrollRow = 8522
    ActiveWindow.ScrollRow = 8364
    ActiveWindow.ScrollRow = 8007
    ActiveWindow.ScrollRow = 7809
    ActiveWindow.ScrollRow = 7624
    ActiveWindow.ScrollRow = 7360
    ActiveWindow.ScrollRow = 6964
    ActiveWindow.ScrollRow = 6673
    ActiveWindow.ScrollRow = 6343
    ActiveWindow.ScrollRow = 6039
    ActiveWindow.ScrollRow = 5748
    ActiveWindow.ScrollRow = 5484
    ActiveWindow.ScrollRow = 5154
    ActiveWindow.ScrollRow = 4824
    ActiveWindow.ScrollRow = 4493
    ActiveWindow.ScrollRow = 4124
    ActiveWindow.ScrollRow = 3820
    ActiveWindow.ScrollRow = 3423
    ActiveWindow.ScrollRow = 2974
    ActiveWindow.ScrollRow = 2618
    ActiveWindow.ScrollRow = 2208
    ActiveWindow.ScrollRow = 1944
    ActiveWindow.ScrollRow = 1574
    ActiveWindow.ScrollRow = 1283
    ActiveWindow.ScrollRow = 1019
    ActiveWindow.ScrollRow = 729
    ActiveWindow.ScrollRow = 2
    Range("R2").Select
    ActiveCell.FormulaR1C1 = _
        "=+IF(ISERROR(ROUNDUP(RC[-7]/RC[-1],0)),"""",ROUNDUP(RC[-7]/RC[-1],0))"
    Range("R2").Select
    Selection.AutoFill Destination:=Range("R2:R10102"), Type:=xlFillDefault
    Range("R2:R10102").Select
    ActiveWindow.ScrollRow = 10067
    ActiveWindow.ScrollRow = 10041
    ActiveWindow.ScrollRow = 10014
    ActiveWindow.ScrollRow = 9988
    ActiveWindow.ScrollRow = 9908
    ActiveWindow.ScrollRow = 9724
    ActiveWindow.ScrollRow = 9605
    ActiveWindow.ScrollRow = 9459
    ActiveWindow.ScrollRow = 9314
    ActiveWindow.ScrollRow = 9156
    ActiveWindow.ScrollRow = 8971
    ActiveWindow.ScrollRow = 8812
    ActiveWindow.ScrollRow = 8588
    ActiveWindow.ScrollRow = 8363
    ActiveWindow.ScrollRow = 8139
    ActiveWindow.ScrollRow = 7808
    ActiveWindow.ScrollRow = 7557
    ActiveWindow.ScrollRow = 7214
    ActiveWindow.ScrollRow = 6857
    ActiveWindow.ScrollRow = 6514
    ActiveWindow.ScrollRow = 6038
    ActiveWindow.ScrollRow = 5748
    ActiveWindow.ScrollRow = 5365
    ActiveWindow.ScrollRow = 4704
    ActiveWindow.ScrollRow = 4427
    ActiveWindow.ScrollRow = 4083
    ActiveWindow.ScrollRow = 3793
    ActiveWindow.ScrollRow = 3489
    ActiveWindow.ScrollRow = 3159
    ActiveWindow.ScrollRow = 2868
    ActiveWindow.ScrollRow = 2604
    ActiveWindow.ScrollRow = 2380
    ActiveWindow.ScrollRow = 2155
    ActiveWindow.ScrollRow = 1944
    ActiveWindow.ScrollRow = 1759
    ActiveWindow.ScrollRow = 1574
    ActiveWindow.ScrollRow = 1442
    ActiveWindow.ScrollRow = 1283
    ActiveWindow.ScrollRow = 1164
    ActiveWindow.ScrollRow = 1032
    ActiveWindow.ScrollRow = 900
    ActiveWindow.ScrollRow = 728
    ActiveWindow.ScrollRow = 451
    ActiveWindow.ScrollRow = 253
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 2
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Cells.EntireColumn.AutoFit
    Columns("H:H").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Cases per Division").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Range("$A$1:$A$10104").RemoveDuplicates Columns:=1, Header:= _
        xlNo
    Range("A1").Select
    Selection.AutoFilter
    ActiveWorkbook.Worksheets("Cases per Division").AutoFilter.Sort.SortFields. _
        Clear
    ActiveWorkbook.Worksheets("Cases per Division").AutoFilter.Sort.SortFields.Add _
        Key:=Range("A1:A14"), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Cases per Division").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1").Select
    ActiveSheet.Range("$A$1:$A$14").AutoFilter Field:=1, Criteria1:="<>", _
        Operator:=xlAnd
    Cells.Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Cases per Division").Select
    Application.CutCopyMode = False
    Application.DisplayAlerts = False
    ActiveWindow.SelectedSheets.Delete
    Application.DisplayAlerts = True
    Sheets("Tabelle2").Select
    Sheets("Tabelle2").Name = "Cases per Division"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "Cases"
    Range("B2").Select
    ActiveCell.FormulaR1C1 = _
        "=+IF(RC[-1]="""","""",SUMIF(Data!C8:C18,'Cases per Division'!RC[-1],Data!C18))"
    Range("B2").Select
    Selection.AutoFill Destination:=Range("B2:B7342"), Type:=xlFillDefault
    Range("B2:B7342").Select
    ActiveWindow.ScrollRow = 7302
    ActiveWindow.ScrollRow = 7289
    ActiveWindow.ScrollRow = 7275
    ActiveWindow.ScrollRow = 7262
    ActiveWindow.ScrollRow = 7235
    ActiveWindow.ScrollRow = 7209
    ActiveWindow.ScrollRow = 7182
    ActiveWindow.ScrollRow = 7089
    ActiveWindow.ScrollRow = 7008
    ActiveWindow.ScrollRow = 6902
    ActiveWindow.ScrollRow = 6795
    ActiveWindow.ScrollRow = 6648
    ActiveWindow.ScrollRow = 6488
    ActiveWindow.ScrollRow = 6301
    ActiveWindow.ScrollRow = 6101
    ActiveWindow.ScrollRow = 5927
    ActiveWindow.ScrollRow = 5727
    ActiveWindow.ScrollRow = 5540
    ActiveWindow.ScrollRow = 5367
    ActiveWindow.ScrollRow = 5166
    ActiveWindow.ScrollRow = 4980
    ActiveWindow.ScrollRow = 4593
    ActiveWindow.ScrollRow = 4352
    ActiveWindow.ScrollRow = 4112
    ActiveWindow.ScrollRow = 3912
    ActiveWindow.ScrollRow = 3645
    ActiveWindow.ScrollRow = 3338
    ActiveWindow.ScrollRow = 3004
    ActiveWindow.ScrollRow = 2697
    ActiveWindow.ScrollRow = 2337
    ActiveWindow.ScrollRow = 1483
    ActiveWindow.ScrollRow = 1055
    ActiveWindow.ScrollRow = 668
    ActiveWindow.ScrollRow = 201
    ActiveWindow.ScrollRow = 1
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+SUM(C[-1])"
    Range("C1").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C1").Select
    Selection.Font.Bold = True
    Selection.Font.Underline = xlUnderlineStyleDouble
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Rows("1:1").Select
    Selection.Font.Size = 12
    Range("A1:B1").Select
    Selection.Font.Bold = True
    Columns("A:B").Select
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Rows("1:1").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "Total"
    Range("B2").Select
    Selection.Copy
    Range("C1").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "=+CONCATENATE(Data!R[1]C[8],""-"",Data!R[1]C[9])"
    Range("A1:B1").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    Selection.Font.Size = 12
    Selection.Font.Bold = True
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Range("A2:B2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Range("C1:C2").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Range("B2").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Range("C1").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.249977111117893
        .PatternTintAndShade = 0
    End With
    Range("A2:B2").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.249977111117893
        .PatternTintAndShade = 0
    End With
    Range("A1:B1").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1:C1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("D1").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("A1:C1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Sheets("Data").Select
    Range("A1").Select
    Sheets("Cases per Division").Select
End Sub
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 Anwendungsübergreifende Fragen: Ein Makro mit einem anderen Makro starten 1 Mung der Dritte 87 01. Okt 2013, 10:23
maninweb Ein Makro mit einem anderen Makro starten
Keine neuen Beiträge Anwendungsübergreifende Fragen: Excel Datei aus Outlook Anhang öffnen wenn Excel schon läuft 0 chelfi 307 30. Jun 2013, 17:27
chelfi Excel Datei aus Outlook Anhang öffnen wenn Excel schon läuft
Keine neuen Beiträge Anwendungsübergreifende Fragen: Doppelklick auf Datei startet Programm 2mal 0 Guenter_Steiner 391 02. Jan 2013, 15:02
Guenter_Steiner Doppelklick auf Datei startet Programm 2mal
Keine neuen Beiträge Anwendungsübergreifende Fragen: Office 2003 auf 2010 Makro Probleme mit Selection.Range. 0 July981 287 13. Nov 2012, 12:27
July981 Office 2003 auf 2010 Makro Probleme mit Selection.Range.
Keine neuen Beiträge Anwendungsübergreifende Fragen: Datei Öffnen und Speichern Unter geht nicht 5 Thomas Bolt 6400 11. Dez 2011, 23:31
Little Pink pony Datei Öffnen und Speichern Unter geht nicht
Keine neuen Beiträge Anwendungsübergreifende Fragen: Datei per Zufallsgenerator öffnen 4 Gast Didi 1306 03. Apr 2011, 11:23
Gast Datei per Zufallsgenerator öffnen
Keine neuen Beiträge Anwendungsübergreifende Fragen: Datei nicht in Testversion öffnen 4 JuliaM 1105 28. Jan 2011, 22:34
Gast Datei nicht in Testversion öffnen
Keine neuen Beiträge Anwendungsübergreifende Fragen: Antworten bzw Rückm. automatisch in Datei aktualisier 0 buffy72d 710 12. Okt 2010, 21:53
buffy72d Antworten bzw Rückm. automatisch in Datei aktualisier
Keine neuen Beiträge Anwendungsübergreifende Fragen: Fehler beim öffnen einer Excel Datei in einem Word Dokument 1 unbegreiflich 2309 02. Sep 2010, 14:35
Homeless Fehler beim öffnen einer Excel Datei in einem Word Dokument
Keine neuen Beiträge Anwendungsübergreifende Fragen: PDF Datei mit Faxmodem faxen funktioniert nicht - Ursache! 0 Babaji 1704 05. Aug 2009, 20:47
Babaji PDF Datei mit Faxmodem faxen funktioniert nicht - Ursache!
Keine neuen Beiträge Anwendungsübergreifende Fragen: comments einer Datei automatisch schreiben 0 H2SO4 688 01. Jul 2009, 13:01
H2SO4 comments einer Datei automatisch schreiben
Keine neuen Beiträge Anwendungsübergreifende Fragen: Excel kann Datei nicht öffnen 0 mack 2716 30. Jun 2008, 11:09
mack Excel kann Datei nicht öffnen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project