Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1180to1184
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Laufzeitfehler 1004
andreas
Hallo zusammen,
beim folgenden Code bekomme ich einen Laufzeitfehler beim folgenden Range
Sheets("Kapazitätsübersicht MF BER").Select
Range("B26").Select
habe keine Ahnung warum.
Danke für eure Hilfe
Private Sub CommandButton5_Click()
ActiveSheet.Unprotect ("")
Sheets("Kapazitätsübersicht MF").Select
Rows("26:500").Select
Selection.Sort Key1:=Range("K26"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Application.CutCopyMode = False
Sheets("Kapazitätsübersicht MF").Range("B26:Q500").Copy
Sheets("Kapazitätsübersicht MF BER").Select
Range("B26").Select
ActiveSheet.Paste
Sheets("Kapazitätsübersicht MF").Select
Range("B26").Select
ActiveSheet.Protect ("")
End Sub

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Laufzeitfehler 1004
30.09.2010 12:07:56
urmila
Hallo Andreas,
versuchs mal so....
Activesheet.Range("B26").Select
Rückmeldug wäre nett.
LG
Urmila
Danke
30.09.2010 13:28:45
andreas
Danke Urmila für den Tipp, funktioniert
Gruß Andreas
ohne Select!
30.09.2010 12:09:07
Rudi
Hallo,
Private Sub CommandButton5_Click()
ActiveSheet.Unprotect ("")
With Sheets("Kapazitätsübersicht MF")
.Rows("26:500").Sort Key1:=Range("K26"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
.Range("B26:Q500").Copy Sheets("Kapazitätsübersicht MF BER").Range("B26")
End With
ActiveSheet.Protect ("")
End Sub

Gruß
Rudi
Anzeige
kleine Korrektur
30.09.2010 12:17:30
JogyB
Hallo zusammen,
Key1:=.Range("K26")
Sonst gibt es einen Fehler, wenn das entsprechende Arbeitsblatt nicht aktiv ist.
Gruß, Jogy
Danke
30.09.2010 13:39:16
andreas
Danke Rudi,
klappt wunderbar.
Gruß Andreas

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige