Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Kopierprobleme bei einer "Hidden"-Tabelle!

Betrifft: Kopierprobleme bei einer "Hidden"-Tabelle! von: Stefan
Geschrieben am: 16.08.2004 11:55:25

Hi an euch!

Ich habe eine Tabelle in einer Mappe über die Eigenschafte "Hidden" versteckt.
Jetzt möchte ich aber diese Mappe kopieren können, das funktioniert aber irgendwie nicht wenn die Tabelle versteckt ist!?

Wenn ich sie aber nicht verstecke, funktioniert das bei mir so:

Private Sub CommandButton6_Click()
    ActiveSheet.Shapes("CommandButton6").Select
    Sheets("WP01calc").Select
    Sheets("WP01calc").Copy After:=Sheets(Sheets.Count)
End Sub


Warum kann ich sie aber nicht verstecken und kopieren?
Was muss ich ändern, bzw. geht das überhaupt?

Gruß
S.
  


Betrifft: AW: Kopierprobleme bei einer "Hidden"-Tabelle! von: sergiesam
Geschrieben am: 16.08.2004 12:02:35

Hi,

verzichte auf das SELECT, dann klappt es. SELECT kann nicht funktionieren, da excel das Register nicht auswählen kann, weil es ja unsichtbar ist. Der Copy-Befehl benötigt nicht ein vorheriges auswählen.

Private Sub CommandButton6_Click()
    ActiveSheet.Shapes("CommandButton6").Select
    Sheets("WP01calc").Copy After:=Sheets(Sheets.Count)
End Sub


Sam


  


Betrifft: AW: Kopierprobleme bei einer "Hidden"-Tabelle! von: FloGo
Geschrieben am: 16.08.2004 12:04:23

Hallo Stefan

Benutz doch einfach die Visible Eigenschaft!
z.B so:

Sub verstecken()
  Worksheets("Tabelle1").Visible = False   ....Tab. verstecken
  Sheets("Tabelle1").Copy After:=Sheets(Sheets.Count)  ....Tab. kopieren
  Worksheets(Sheets.Count).Visible = True  ...Kopie sichtbar machen
End Sub


Ich hoffe ich konnte dir weiterhelfen!
FloGo


  


Betrifft: AW: Kopierprobleme bei einer "Hidden"-Tabelle! von: Ulf
Geschrieben am: 16.08.2004 12:04:48

Private Sub CommandButton6_Click()
  Sheets("WP01calc").Copy After:=Sheets(Sheets.Count)
End Sub


Die Kopie ist aber auch ausgeblendet!

Ulf


  


Betrifft: Kopierprobleme bei einer "Hidden"-Tabelle! von: Beate Schmitz
Geschrieben am: 16.08.2004 12:11:25

Hallo Stefan,

Private Sub CommandButton6_Click()
    ActiveSheet.Shapes("CommandButton6").Select
    Application.ScreenUpdating = False
    Sheets("WP01calc").Visible = True
    Sheets("WP01calc").Copy After:=Sheets(Sheets.Count)
    Sheets("WP01calc").Visible = False
    Application.ScreenUpdating = False
End Sub


Das Makro schaltet zunächst die Bildschirmauffrischung aus, blendet (unsichtbar) die Seite ein, kopiert und verbirgt sie dann wieder. Erst am Makroende wird die Bildschirmauffrischung wieder eingeschaltet.

Gruß,
Beate


  


Betrifft: Ich liebe euch alle! Lösung gefunden... von: Stefan
Geschrieben am: 16.08.2004 12:44:39

Danke für eure vielen Lösungen!
Die simple Lösung lag sehr nahe, schlecht wenn man Montagsblindheit hat... ;-)

hab mir aus euren Antworten folgende funktionierende Lösung gebastelt:

Private Sub CommandButton6_Click()
    Sheets("WP01calc").Copy After:=Sheets(Sheets.Count)
    Worksheets(Sheets.Count).Visible = True
End Sub


Gruß
S.