Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1180to1184
1180to1184
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Laufzeitfehler 1004

Forumthread: Laufzeitfehler 1004

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

Anzeige

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

Betreff
Benutzer
Anzeige
AW: Laufzeitfehler 1004
30.09.2010 14:07:56
urmila
Hallo Andreas,
versuchs mal so....
Activesheet.Range("B26").Select
Rückmeldug wäre nett.
LG
Urmila
Danke
30.09.2010 15:28:45
andreas
Danke Urmila für den Tipp, funktioniert
Gruß Andreas
ohne Select!
30.09.2010 14: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 14: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 15:39:16
andreas
Danke Rudi,
klappt wunderbar.
Gruß Andreas

Forumthreads zu verwandten Themen

Kopieren von Dienstplänen per VBA
Dienstplänen

Guten Tag!
Mit folgender Routine lege ich in einem Workbook automatisch neue
Wochendienstpläne an.
Die Routine prüft dabei, ob ein Datum schon angelegt wurde.
Kopiert werden soll ein Leerplan. In diesem sind Verknüpfungen zu einer
Access-Datenbank mit Abfragen, damit das Per...
17.09.2004 12:44:23
Thread-ID: 486610
4 Beiträge
Anzeige
Problem bei Auswertung
trebor-robert
Hallo zusammen,
ich habe folgendes Problem:
Ich möchte aus einer Tabelle mit folgendem Aufbau
Kundenname |Jan. |Feb. |Mrz. |Apr. |usw. fortlaufend über mehrere Jahre
eine Auswertung mit den Kunden machen, die keine Aufträge mehr platzieren.
Zu jedem Kunden ist immer für den einze...
16.10.2006 17:19:35
Thread-ID: 811187
14 Beiträge
Gibt's Da keine FUNKTION
arosswaag
Problem nochmal ausführlich:
Zelle D5 soll das Ergebnis anzeigen (hier steht die Formel die "keiner" kennt) ;-)
Das Ergebniss soll die "Adresse" der Zelle sein, in der "xyz" ANGEZEIGT wird.
Abgefragt in D5 wird der Bereich D10:D30. In diesem Bereich steht in jeder der 20 Zellen eine Wenn-A...
09.02.2004 15:13:46
Thread-ID: 379043
4 Beiträge
IF-Abfrage + leere Zellen beachten!
Dominik

Hallo Cracks,
ich habe heute schonmal eine geschachtelte IF-Abfrage gepostet.
=IF(AND((AS15="short").($R16="down"))."win".IF(AND((AS15="long").($R16="up"))."win"."loose"))
Jetzt müsste Excel noch erkennen, dass die Zelle leer ist.Sobald ich in der Spalte R keinen Wert habe bringt Ex...
30.08.2006 19:40:18
Thread-ID: 797213
3 Beiträge
Formel wird nicht berechnet / Zelle bleibt leer
Carina
Hallo liebe Community!

Ich feilsche nun bereits eine Zeit an diesem Problem: Ich möchte abfragen ob der Wert in C7 in einer anderen Datei vorhanden ist und wenn dieser vorhanden ist ob er mit "07" beginnt. Dann soll er mir diesen Wert übertragen.
Wenn die Formel der letzte Befehl im Mak...
03.10.2024 13:25:45
Thread-ID: 1992725
11 Beiträge
Anzeige
Wenn Abfrage....0....oder Text
Friedl G.

hallo ForumIch habe eine Wenn-Abfrage-Formel entweder mit dem Ergebnis "0" oder wenn Zelle ist leer "" mit dem Ergebnis "Text"
z.B.=Wenn(F51>0;F51)Wenn""=...."xyz")Besten Dank im Voraus
Schönen Sonntag
Friedl
08.09.2002 17:25:14
Thread-ID: 157602
3 Beiträge
wann ist eine Zelle leer?
Peter

Hallo Excel Experten,
ich habe in einer Zelle folgende Formel stehen:
=SUMMENPRODUKT((MONAT('C:\Dokumente und Einstellungen\Administrator\Lokale Einstellungen\Temporary Internet Files\Content.IE5\OBVV6819\[Eis-06.xls]2005'!$B$7:$B$300)=3)*('C:\Dokumente und Einstellungen\Administrator\L...
07.03.2005 14:15:53
Thread-ID: 581353
2 Beiträge
Zählenwenn - Keine Zählung
Uwe
Hallo in die Runde,
ich habe eine Tabellenspalte mit Formeln, die zum Teil Werte durch eine Abfrage ausgibt und bei nicht gefundenen Wert die Zelle leer läßt.
Die leeren Zellen konnte ich mit der Formel ~f~ =ANZAHLLEEREZELLEN(H2:H11405) ermitteln, aber alle durch eine Abfrage gefundenen Wert...
03.03.2023 16:29:48
Thread-ID: 1922649
2 Beiträge
Zellenbezug aus aktueller Zeile herstellen
Christoph
Liebe Community,
ich bin ein absoluter Neuling was VBA angeht und arbeite gerade an einer Datei für die Schule. Leider habe nach längerem Suchen nicht das gefunden, was ich brauche bzw. bin mit dem Makro Recorder auch nicht ans Ziel gekommen.
Ich möchte eine dynamische Zelle (im Bild A1), d...
17.10.2014 19:17:16
Thread-ID: 1387215
3 Beiträge
Abfrage mit mehreren Bedingungen(SVerweis;Index)
Lefty
Hallo Lieber Herber Community,

ich wende mich wieder an euch mit der Bitte um Hilfe.

Ich möchte gerne im Blatt KalenderMonat in den Zellen der Spalte E eine Formel die mir in den Zellen mit den Ersten und Letzten Ferientagen den Feriennamen einfügt.
Zusätzlich wollte ich einen...
12.02.2024 14:22:44
Thread-ID: 1964844
2 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum