PDA

Vollständige Version anzeigen : Laufzeitfehler 1004


Ares_1987
24.09.2007, 09:09
Hallo zusammen,

ich bin hier grad am verzweifeln.
Ich habe folgenden Code
Private Sub CommandButton1_Click()

' Filter aktivieren
Range("B11:B10000").AdvancedFilter Action:=xlFilterInPlace, Unique:=True

' Gefilterte Tabelle in neues Tabellenblatt kopiere
Range("A1:IV10000").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("A1:IV65535").Select

Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Selection.Font.Bold = False
Selection.Font.Size = 10
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

Range("A1").Select
ActiveSheet.Paste
End Sub



Jetzt bekomme ich bei
Range("A1:IV65535").Select
immer einen Laufzeitfehler 1004 und ich weiß einfach nicht warum.
Ich hoffe ihr könnt mir weiterhelfen.

Grüße
Ares

myfake
24.09.2007, 10:03
Hallo Ares,

versuche es bitte mal hiermit (nicht getestet!):


Sheets("Tabelle2").Activate
Range("A1:IV65535").Select


cu
myfake

Ares_1987
24.09.2007, 10:20
Hallo myfake,

das habe ich bereits ausprobiert. Funktioniert leider auch nicht.

Gruß
Ares

EarlFred
24.09.2007, 10:27
Hallo Ares,

wo steht denn der Code? Auf Tabelle1? Schieb ihn mal in ein allgemeins Modul, dann sollte es klappen.

Allerdings verliert das Makro immer die kopierten Zellen. Der Copy-Befehl sollte daher nach Neuformatierung der Tabelle2 ausgeführt werden.

Also z. B. so:

Private Sub CommandButton1_Click()

' Filter aktivieren
Range("B11:B10000").AdvancedFilter Action:=xlFilterInPlace, Unique:=True

' Gefilterte Tabelle in neues Tabellenblatt kopiere
With Sheets("Tabelle2").Cells
.Clear
.Font.Size = 10
End With

Range("A:IV").Select
Selection.Copy
Sheets("Tabelle2").Select
[A1].Select
ActiveSheet.Paste
End Sub


Grüße
EarlFred

Ares_1987
24.09.2007, 11:08
Hey,

hab den Code jetzt ins Modul gemacht und ihn erweitert.
Funktioniert alles einwandfrei. Vielen dank :)

Gruß
Ares

EarlFred
24.09.2007, 11:40
Gern geschehen!

Grüße
EarlFred