Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1424to1428
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1424to1428
1424to1428
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Cells in Range bei VBA

Cells in Range bei VBA
06.05.2015 10:03:50
Ulrich
Hallo,
ich hoffe ihr könnt helfen
folgende Zeile geht
Worksheets("vorl").Range("H34:BK34").Copy
gewandelt in cells geht nicht
Worksheets("vorl").Range(Cells(34, 8), Cells(34, 63)).Copy
benutzt in
Worksheets("vorl").Range(Cells(34, 8), Cells(34, 63)).Copy
Range(Cells(zeile, 8), Cells(zeile, 63)).PasteSpecial xlPasteFormats
Range(Cells(zeile, 8), Cells(zeile, 63)).PasteSpecial xlPasteFormulas
Application.CutCopyMode = False
ich bekomm dann einen laufzeitfehler
Was übersehe ich?

25
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Cells in Range bei VBA
06.05.2015 10:13:03
EtoPHG
Hallo Ulrich,
Was du übersiehst: Deine Cells(row,col) Objekte sind nicht vollständig referenziert. D.h. diese beziehen sich auf das gerade aktive Tabellenblatt und nicht auf das durch das Range Objekt referenzierte Worksheet.Darum müsste es eigentlich heissen: 
Worksheets("vorl").Range(Worksheets("vorl").Cells(34, 8), Worksheets("vorl").Cells(34, 63)). _
Copy
Was aber alternativ mit einem 
With Worksheets("vorl")
.Range(.Cells(34, 8), .Cells(34, 63)).Copy
'etc
End With
übersichtlicher und lesbarer dargestellt werden kann. Beachte die . [Punkte], welche sich auf das im With referenzierte Objekt beziehen.
Gruess Hansueli

Anzeige
AW: Cells in Range bei VBA
06.05.2015 10:20:18
Daniel
Hi
eine Alternative zur WITH-Klammer ist die verwendung der RESIZE-Funktion, um die ständige Wiederholung des Blattnamens zu vermeiden:
Worksheets("vorl").Range(Worksheets("vorl").Cells(34, 8), Worksheets("vorl").Cells(34, 63)). _
Copy

wird zu
Worksheets("vorl").Cells(34, 8).Resize(1, 56).Copy
das Problem bei der WITH-Klammer ist, das man sie immer nur für ein Objekt verwenden kann und wenn man mit mehreren Zellbereichen auf unterschiedlichen Blättern arbeitet, braucht man dann noch eine Abkürzungsmöglichkeit für die weiteren Bereiche.
Gruß Daniel

Anzeige
AW: Cells in Range bei VBA
06.05.2015 10:20:18
Daniel
Hi
eine Alternative zur WITH-Klammer ist die verwendung der RESIZE-Funktion, um die ständige Wiederholung des Blattnamens zu vermeiden:
Worksheets("vorl").Range(Worksheets("vorl").Cells(34, 8), Worksheets("vorl").Cells(34, 63)). _
Copy

wird zu
Worksheets("vorl").Cells(34, 8).Resize(1, 56).Copy
das Problem bei der WITH-Klammer ist, das man sie immer nur für ein Objekt verwenden kann und wenn man mit mehreren Zellbereichen auf unterschiedlichen Blättern arbeitet, braucht man dann noch eine Abkürzungsmöglichkeit für die weiteren Bereiche.
Gruß Daniel

Anzeige
AW: Cells in Range bei VBA
06.05.2015 10:32:46
Ulrich
vielen Dank
manchmal kann es so einfach sein :)

AW: Cells in Range bei VBA
06.05.2015 10:39:47
Luschi
Hallo Daniel,
bei solchen Manipulationen solltest Du auch die Umrechnung von
Range(Cells(..), Cells(..)) auf Range(...) mitliefern!
Gruß von Luschi
aus klein-Paris

AW: Cells in Range bei VBA
06.05.2015 10:47:54
Daniel
Hi
was für Manipulationen?
welche Range?
die Resize-Funktion wird ja in der Hilfe erklärt (muss man im VBA-Editor nur den Cursor drauf setzen und F1 drücken), und die meisten Anwender dürften in der Lage sein, selbstständig von Obere Zeile / Untere Zeile auf Anzahl Zeilen umzurechnen.
Gruß Daniel

Anzeige
Eine Möglichkeit solcher 'Abkürzung' bestünde ...
06.05.2015 12:13:19
Luc:-?
…ja wohl schon darin, Set zu verwenden, Daniel,
ggf auch mit .Resize… ;-]
Gruß, Luc :-?
Besser informiert mit …

AW: Luc ich bin der falsche ...
06.05.2015 12:33:08
Daniel
... Ansprechpartner.
Ulrich hat die Frage gestellt und wenn du eine weitere Lösungsalternative hast, solltest du dich an ihn wenden.
Gruß Daniel

AW: Luc ich bin der falsche ...
06.05.2015 12:33:18
Daniel
... Ansprechpartner.
Ulrich hat die Frage gestellt und wenn du eine weitere Lösungsalternative hast, solltest du dich an ihn wenden.
Gruß Daniel

Anzeige
Du hast 'Abkürzung' ins Spiel gebracht! ;-> owT
06.05.2015 13:45:00
Luc:-?
:-?

AW: ja und?
06.05.2015 14:08:45
Daniel
wie gesagt, wenn du ne alternative Lösung hast die besser ist als die bisher gezeigten, dann nur heraus damit.
Gruß Daniel

Das ist quasi auch eine. die du nicht erwähnt ...
06.05.2015 14:50:21
Luc:-?
…hattest. Da aber schon Lösungen da sind, warum noch eine…?
Luc :-?

AW: genau, warum noch eine...
06.05.2015 15:08:24
Daniel
aber diese Frage hättest du dir vor deinem ersten Beitrag stellen sollen dann auf hin verzichten, wenn du der Meinung bist dass schon genügend Lösungen gegeben wurden.
Gruß Daniel

War absichtlich an dich gerichtet, Naseweis! owT
07.05.2015 00:22:42
Luc:-?
:-?

AW: War absichtlich an dich gerichtet, Naseweis! owT
07.05.2015 01:18:34
Daniel
Warum Richtfest du absichtlich was gegen mich?
Könnte es sein, dass du ein kleiner nachtragender und gehässiger
Wadenbeisser bist?

Anzeige
Feierst du diese 'Richtfeste' nicht ständig, ...
09.05.2015 01:27:38
Luc:-?
…Daniel,
und nicht nur auf „meinen Baustellen“…? :->
Vielleicht noch etwas mehr auf die Hinterbeine stellen, deine „Waden“ liegen mir sonst doch etwas zu entfernt… :->
Luc :-?

AW: deswegen machst du ja auch
09.05.2015 02:27:21
Daniel
ständig solche Klimmzüge, nur um was gegen mich zu schreiben.

Ich sehe das eher umgekehrt! owT
09.05.2015 12:44:20
Luc:-?
:-?

AW: Ich sehe das eher umgekehrt! owT
09.05.2015 13:18:57
Daniel
Ich weiss das du das anders siehst.
Aber allein dein erster Beitrag in diesem Thread zeigt deutlich, dass du keine Gelegenheit auslässt.

Wenn ich denn alle deine BTe lesen würde! ;-] owT
10.05.2015 03:30:49
Luc:-?
:-?

AW: Wenn ich denn alle deine BTe lesen würde! ;-] owT
10.05.2015 12:36:21
Daniel
dann frage ich mich, warum du gerade über diesen Beitrag gestolpert bist, der ja ansonsten ein recht profanes Anfängerthema behandelt, welches eigentlich unterhalb des Schwiergkeitsniveau liegst, für dass du dich normalerweise interessierst.
Dem Fragesteller eine hilfreiche Antwort zu geben war hier ja nicht dein Ziel

Anzeige
Schon mal was von Zufall gehört? ;-] owT
10.05.2015 18:28:24
Zufall
:-?

AW: Cells in Range bei VBA
06.05.2015 10:27:39
Luschi
Hallo Ulrich, 

- bei 'Worksheets("vorl").Range("H34:BK34")' kennt jedes aufgeführte Element
das der Bereich "H34:BK34" zur Tabelle 'vorl' gehört.
- bei 'Worksheets("vorl").Range(Cells(34, 8), Cells(34, 63))'
zeigt Cells(..) auf die gerade sichbare Tabelle auf dem Monitor, aber
Range(..) auf die Tabelle 'vorl'
- und da knallt es eben; deshalb so;
With Worksheets("vorl")
.Range(.Cells(34, 8), .Cells(34, 63)).Copy
End With
- jetzt zeigen alle Objekte auf die gleiche Tabelle und es klappt
Gruß von Luschi
aus klein-Paris
PS: beachte die Punkte '.' vor den Objekten!

Anzeige
AW: Cells in Range bei VBA
06.05.2015 10:41:33
Ulrich
ihr macht mich glücklich
und schön mit Erklärungen und nicht nur codeschnippsel

AW: Noch ein Tip...
06.05.2015 10:53:58
Daniel
beim Einfügen reicht es, die linke obere Zelle des Einfügebereichs anzugeben.
Excel passt die Grösse des Einfügebereichs dann automatisch an die Grösse des kopierten Bereichs an.
With Worksheets("vorl")
.Range(.Cells(34, 8), .Cells(34, 63)).Copy
.Cells(zeile, 8).PasteSpecial xlPasteFormats
.Cells(zeile, 8).PasteSpecial xlPasteFormulas
end with
Application.CutCopyMode = False
die Angabe des gesamten Einfügebereichs ist nur dann notwendig, wenn die Grösse von der Grösse des kopierten Bereichs abweicht (bspw weil du die kopierte Zeile mehrfach untereinander duplizieren willst)
Gruß Daniel
Anzeige

334 Forumthreads zu ähnlichen Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Anzeige
Cells Wert in Range umwandeln???
chrissey

Hallo Leut,
hab folgendes Problem:
Habe den Cells Wert (1,80) kann ich den auch als Range z.B: über eine MsgBox ausgeben lassen.
Müsste zudem mit dem Range Wert weiterarbeiten
Bitte um Eure Hilfe
Danke und Grüße
Chrissey
25.11.2009 15:57:34
Thread-ID: 1120019
5 Beiträge
Definieren von variabler Range
variabler

Hallo zusammen,
ich habe eine Frage zum definieren einer variabler Range in einem Sheet.
Ich habe eine Datei mit drei verschiedenen Sheets.
Das erste Sheet ist für diese Betrachtung irrelevant, nur das zweite und das dritte.
Das zweite Sheet besteht aus verschiedenen Kennzahlen...
04.12.2009 06:47:54
Thread-ID: 1121742
3 Beiträge
Anzeige
Range in Array füllen, Problem bei Cells.Count = 1
Andreas

Hallo VBA Freunde,
ich habe es heute zum ersten mal angewandt, ein Array nicht mit einer Schleife, sondern gleich als einen Block zu füllen. Dank Renee konnte ich auch den Fehler beheben, daß ich mein Array nur eindimensional eingerichtet hatte.
Also für Ranges mit mehr als 1 Zelle funk...
22.02.2010 16:33:21
Thread-ID: 1140417
7 Beiträge
VBA range definieren
Benjamin

Guten Tag an alle,
ich habe ein Problem, bei dem ich zur Zeit kläglich scheitere.
Ich möchte eine Formel nach unten ausfüllen und zwar genau so oft, wie ich in einer Spalte Werte habe.
Also, wenn ich Z.b. in Spalte H1:H4 werte habe, soll die formeln auch von z.B. A1:C4 kopiert werde...
25.02.2010 14:42:10
Thread-ID: 1141514
5 Beiträge
VBA: Range Objekt mit aktiver Zelle
André

Moin zusammen,
ich möchte die aktuell ausgewählte Zelle einem Range-Objekt zuweisen. Allerdings will mir das nicht gelingen:
Dim Position As Range Position = ActiveCell Da kommt immer wieder eine Fehlermeldung (Objektvariable nicht festgelegt). Was mache ich falsch?
Gruß, André
14.04.2010 14:56:00
Thread-ID: 1151763
3 Beiträge
VBA Formel in Range einfügen
Frank

Hallo zusammen,
mit...
Range(Cells(20, s)).AutoFill Destination:=Range(Cells(ezp, s), Cells(lzp, s)), Type:=xlFillDefault
versuche ich eine Formel (die in cells(20,s) steht) in eine Range zu kopieren...
Leider Fehlermeldung: "Die Methode 'Rang' für das Objekt "_Global" ist fehl...
09.12.2011 11:21:09
Thread-ID: 1241366
13 Beiträge
Text in Range während Eingabe per VBA analysieren?
Max

Hallo zusammen,
ist es möglich während der Texteingabe in einem normalen Rangefeld, den Input zu erfassen und ggf. mit Makros zu reagieren?
Ich weiß, daß ich dies früher über eine Form bzw. Objekt möglich war, kann aber auch hierzu nichts mehr finden. Kann ich für meinen normale Rangefe...
21.03.2012 13:49:05
Thread-ID: 1255910
4 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
4
4
2
6
6
4
2
12
3
5
8
3
3
2
4
1
2
2
3
2
1
2
2
6