Makro mit Befehlschaltfläche funzt nicht

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Makro mit Befehlschaltfläche funzt nicht von: Urmel-Online
Geschrieben am: 14.02.2005 17:07:32

Hi zusammen,

ich habe ein Problem: Habe ein Makro geschrieben welche ohne Befehlschaltfläche funktioniert. Mit dem Makro werden viele Daten zwischen Tabellen hin und her kopiert. Ich will das Makro nun über ein Steuerelement starten. Das funktioniert aber seltsamerweise nicht. Liegt es daran das ein Makro mit Befehlsschaltfläche nur innerhalb einer Tabelle funktioniert ?

Der Fehler kommt immer wenn in einer anderen Tabelle auf einen bestimmten Bereich zugegriffen werden soll...


Hat jemand eine Lösung ?

VG

Urmel

Bild


Betrifft: AW: Makro mit Befehlschaltfläche funzt nicht von: Ute
Geschrieben am: 14.02.2005 17:08:36

Poste doch mal den Makrocode.

mfg Ute


Bild


Betrifft: AW: Makro mit Befehlschaltfläche funzt nicht von: Urmel-Online
Geschrieben am: 14.02.2005 17:16:31


Private Sub CommandButton2_Click()
Sheets("Chart Project planning total").Select
Range("A88").Select
    ActiveSheet.PivotTables("PivotTable1").PivotCache.refresh
Range("A2").Select
'Kopieren Frau Siegmund
    Sheets("Siegmund").Select
    Range("A2:H41").Select
    Selection.ClearContents
    Range("A2").Select
    Sheets("Chart Project planning total").Select
    Range("A2:H78").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data transfer").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.AutoFilter Field:=8, Criteria1:="A. Siegmund"
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Siegmund").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A2:H41").Select
    Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A1").Select
    Sheets("Data transfer").Select
     Selection.AutoFilter Field:=8
     Sheets("Siegmund").Select
     Range("A1").Select
End Sub



Bild


Betrifft: AW: Makro mit Befehlschaltfläche funzt nicht von: Ute
Geschrieben am: 14.02.2005 17:20:41

Versuch das mal:


Private Sub CommandButton2_Click()
CommandButton2.TakeFocusOnClick = False
'dein weiterer Code
End Sub


mfg Ute


Bild


Betrifft: AW: Makro mit Befehlschaltfläche funzt nicht von: Urmel-Online
Geschrieben am: 14.02.2005 17:30:32

Danke, geht aber leider auch nicht. Der Fehler kommt immer bei der Zeile

Range("A2:H41").Select

Dabei sehe ich gar keine Probleme. Die Tabelle ist halt mit Daten gefüllt und diese sollen markiert werden.....

Bin am verzweifeln, zumal es ohne den Button geht !


Bild


Betrifft: Der Hinweis mit TakeFocusOnClick war... von: Boris
Geschrieben am: 14.02.2005 17:34:03

Hi,

...schon korrekt - nur nützt das nix, das in den Code einzubauen. Vielmehr musst du das hardcodieren - in den Eigenschaften des Buttons findest du diese Eigenschaft - stell sie auf False.

Grüße Boris


Bild


Betrifft: AW: Makro mit Befehlschaltfläche funzt nicht von: DieterB
Geschrieben am: 14.02.2005 17:34:28

Hallo,

habe fast den verdacht, du versuchst
auf eine Zeile zuzugreifen, nachdem
du das Blatt geschlossen hast.

Gruß

DieterB


Bild


Betrifft: AW: Makro mit Befehlschaltfläche funzt nicht von: K.Rola
Geschrieben am: 14.02.2005 17:53:44

Hallo,

Der Code des Button sollte so aussehen:


Private Sub CommandButton2_Click()
Call mach_was
End Sub


Diesen Code in ein Standardmodul:


Sub mach_was()
Sheets("Chart Project planning total").Select
Range("A88").Select
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
Range("A2").Select
'Kopieren Frau Siegmund
Sheets("Siegmund").Select
Range("A2:H41").Select
Selection.ClearContents
Range("A2").Select
Sheets("Chart Project planning total").Select
Range("A2:H78").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Data transfer").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.AutoFilter Field:=8, Criteria1:="A. Siegmund"
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Siegmund").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A2:H41").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
Sheets("Data transfer").Select
Selection.AutoFilter Field:=8
Sheets("Siegmund").Select
Range("A1").Select

End Sub

Gruß K.Rola


 Bild

Beiträge aus den Excel-Beispielen zum Thema "GetOpenFilename(...) - Problem"