Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
640to644
640to644
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Makrorecorder - .select weglassen?

Forumthread: VBA Makrorecorder - .select weglassen?

VBA Makrorecorder - .select weglassen?
26.07.2005 15:31:02
Klaus
Moin VBA User!
Bisher habe ich mich mangels eigener VBA Kentnisse blind auf den Rekorder verlassen. Nun lese ich hier wiederholt, man sollte .select öfters mal weglassen.
Frage:
Range("a1").AutoFill Destination:=Range("a1:a2000"), Type:=xlFillDefault
gibt mir die Fehlermeldung "Laufzeitfehler '1004': Die AutoFill-Methode des
Range-Objektes ist fehlerhaft."
Was mache ich falsch? Das vom Recorder vorgeschlagene
Range("a1").select
selection.AutoFill Destination:=Range("a1:a2000"), Type:=xlFillDefault
funktioniert,
aber kurioserweise funktioniert auch
Range("a6001").AutoFill Destination:=Range("a6001:a8000"), Type:=xlFillDefault
einwandfrei - was mache ich falsch?
Dank und Gruß,
Klaus M.
gesamter Code:


Sub SuperSizeMe()
Range("a1").AutoFill Destination:=Range("a1:a2000"), Type:=xlFillDefault
Range("a2001").AutoFill Destination:=Range("a2001:a4000"), Type:=xlFillDefault
Range("a4001").AutoFill Destination:=Range("a4001:a6000"), Type:=xlFillDefault
Range("a6001").AutoFill Destination:=Range("a6001:a8000"), Type:=xlFillDefault
Range("a8001").AutoFill Destination:=Range("a8001:a10000"), Type:=xlFillDefault
Range("a10001").AutoFill Destination:=Range("a10001:a12000"), Type:=xlFillDefault
Range("a12001").AutoFill Destination:=Range("a12001:a14000"), Type:=xlFillDefault
Range("a14001").AutoFill Destination:=Range("a14001:a16000"), Type:=xlFillDefault
Range("a16001").AutoFill Destination:=Range("a16001:a18000"), Type:=xlFillDefault
Columns("A:A").Copy
Columns("B:B").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("D6").FormulaR1C1 = "Datenvergleich möglich"
End Sub



Sub rabbithole()
Range("a2:a2000").ClearContents
Range("a2002:a4000").ClearContents
Range("a4002:a6000").ClearContents
Range("a6002:a8000").ClearContents
Range("a8002:a10000").ClearContents
Range("a10002:a12000").ClearContents
Range("a12002:a14000").ClearContents
Range("a14002:a16000").ClearContents
Range("a16002:a18000").ClearContents
Columns("B:B").ClearContents
Range("D6").FormulaR1C1 = "verkleinert"
End Sub


Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Makrorecorder - .select weglassen?
26.07.2005 16:23:48
AS
Das mit dem Select war anders gemeint:
Statt
Range("A1").select
Selection.xlscolorscherz=1811
Kann man gleich dass hier nehmen:
Range("A1").xlscolorscherz = 18881
Es geht nur um´s Prinizip...
AS
AW: VBA Makrorecorder - .select weglassen?
26.07.2005 16:28:58
Hajo_Zi
Hallo Klaus,
bei mir läuft Deine Code ohne Fehler

Sub SuperSizeMe()
Dim LoI As Long
For LoI = 1 To 16001 Step 2000
Cells(LoI, 1).AutoFill Destination:=Range(Cells(LoI, 1), Cells(LoI + 1999, 1)), Type:=xlFillDefault
Next LoI
Columns("A:A").Copy
Columns("B:B").PasteSpecial Paste:=xlValues
Range("D6") = "Datenvergleich möglich"
End Sub
Sub rabbithole()
Dim LoI As Long
For LoI = 2 To 16002 Step 2000
Range(Cells(LoI, 1), Cells(LoI + 1998, 1)).ClearContents
Next LoI
Columns("B:B").ClearContents
Range("D6") = "verkleinert"
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Anzeige
AW: VBA Makrorecorder - .select weglassen?
27.07.2005 09:00:20
Das
.
;

Forumthreads zu verwandten Themen

mit Set Workbookname zuweisen - Syntaxprobleme?
Peter

Guten Tag
Ich versuche den Variablen wbQuelle und wbZiel via Set einen Wert zuzuweisen. Klappt beide Male nicht
1. mit ThisWorkbook.Name
2. über einen Funktionsaufruf, der einen String zurückgibt
Was mache ich falsch?
Danke für eine Antwort.
Gruss, Peter
Public Sub...
03.12.2008 16:23:31
Thread-ID: 1029887
4 Beiträge
Code nach "ThisWorkbook" automatisch per VBA
Wicki

Hallo,
ich möchte ausschließlich automatisch Code per VBA nach "ThisWorkbook" einer anderen Mappe übertragen. Der Code liegt als Export-Datei (name.cls) vor. Wenn ich den importiere wird er als Klassenmodul "DieseArbeitsmappe1" angelegt und nützt mir damit nichts.
Hat jemand eine Idee ?...
12.03.2009 23:16:35
Thread-ID: 1059712
5 Beiträge
Auslesen_Tabellenblattname_eintragen-siehe VBA
Fabio

Hallo zusammen,
mit dem Makro unten aus dem Forum lese ich diverse Exceldateien in einem Verzeichzis aus. Soweit ich das gesehen habe, liest das Makro immer das "erste" Tabellen-Blatt aus.
Aktuell habe ich folgendens:
- Ein Verzeichnis mit 10 Excel-Dateien
- Die Exeldatein haben...
06.04.2009 11:13:51
Thread-ID: 1067062
4 Beiträge
Anzeige
ThisWorkbook.Name ohne Extention?
Jubro

Hallo zusammen,
Ich hoffe auf eure Hilfe bei folgendem Problem:
Mit folgendem Befehl hole ich den aktuellen Namen in eine TextBox was ja ohne weiteres auch kein Problem darstellt :o).
TextBox1.Value = ThisWorkbook.Name
Jetzt wir mir in der TextBox der name mit Extention .xls ang...
18.05.2009 19:02:57
Thread-ID: 1075972
4 Beiträge
Fehlermeldung bei "ActiveWorkbook.Names.Add "
k

Hallo, nur mal eben eine kurze Frage:
Habe eine Userform die beim Start einen Bereich mit einem Namen versehen soll (Dynamisch).
Ist der Name schon vorhanden - klappt alles super - wenn nicht erhalte ich immer an dieser Stelle eine Fehlermeldung ! "Angegebene Formel enthält ei...
11.08.2009 11:29:47
Thread-ID: 1094955
5 Beiträge
ActiveWorkbook.ThemeColorSchem Name auslesen
Sonnenpeter

Hallo,
ich versuche gerade (erfolglos) den Namen des aktuellen Colorschemas
auszulesen.
Sub Test() tester = ActiveWorkbook.ThemeColorScheme.Name 'tester = ActiveWorkbook.Theme End Sub Ist der Name des aktuellen Colorschemas überhaupt auslesbar?
Wenn ja wie? ;-)
Gruß SP
17.10.2009 16:10:12
Thread-ID: 1110320
4 Beiträge
ActiveWorkbook.Names.Add - nicht ausgew. Sheet
Peter

Guten Tag
Mit nachfolgender Codezeile definiere ich in im Sheet "Tabellenliste" den Bereich "XTabellen".
Leider funktioniert das jedoch nur, wenn die Tabelle "Tabellenliste" auch ausgewählt ist. Wie muss ich den Code anpassen, dass die Bereichsdefinition klappt, wenn eine andere Tabelle...
23.11.2010 11:53:02
Thread-ID: 1188279
3 Beiträge
Anzeige
If ActiveWorkbook.Name <> ThisWorkbook.Name Then E
Heinz

Hallo Leute
Hatte im Jänner im Forum angefragt.
Habe einen Schichtplan mit vielen Makros, und Protect mit Passort.
Wenn ich in der Firma den Schichtplan öffne UND eine andere Exceltabelle öffne,das dort auch der Blattschutz reinkommt.
Warum ?
Nun hatte ich einen Lösungsvorsc...
10.03.2011 12:48:10
Thread-ID: 1205143
6 Beiträge
Anzeige
VBA Makro ausführen bei Verlassen einer Zelle
KT

Hallo,
ich möchte gerne, dass mein Solver-Makro ausgeführt wird, wenn der Anwender die Zelle B1, B2, B3, B26, B27 oder B28 nach einer Veränderung verlässt. Zum besseren Verständnis habe ich hierzu meine Excel-Datei hochgeladen.
https://www.herber.de/bbs/user/74230.xls
Die Solverfun...
31.03.2011 14:28:47
Thread-ID: 1208514
3 Beiträge
ActiveWorkbook.SaveAs Filename
Sandra

Hallo zusammen,
ich habe mal wieder ein Problem.
Mit dem nachfolgenden Code lasse ich automatisch speichern.
Dim Dateiname As String
Dateiname = oXlSM.Name
ActiveWorkbook.SaveAs Filename:="\\xxxx\Dokumentation\" & Dateiname & ".xml"
Das klappt auch fast. Allerdin...
21.06.2011 16:49:35
Thread-ID: 1219171
3 Beiträge
Anzeige
With ThisWorkbook.Names(sRng).RefersToRange ??
Peter

Guten Abend
Ich habe die Lösung, versteht aber nicht ...
... weshalb mit untenstehnde Formel die letzte Spalten-Nr. korrekt ermittelt.
Weshalb erhalte ich mit der Funktion nLetzteSpalte die korrekte Spaltennumer der letzten Spalte eines Bereiches? .Cells.Count liefert doch die Anzah...
04.12.2012 16:41:30
Thread-ID: 1289285
7 Beiträge
VBA - ZellNAME auslesen
Stephan

Guten morgen und einen angenehmen Montag euch allen ;)
Sagen wir ich habe für die Zelle "A1" den Namen "Hallo" definiert.
Sag ich VBA jetzt: MsgBox Thisworkbook.ActiveSheet.Range("A1").Name
Dann kommt anstatt "Hallo" "A1" raus
was mach ich falsch?
28.01.2013 10:34:03
Thread-ID: 1296291
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige