Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
384to388
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
384to388
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einer Range eine Variable zuweisen

Einer Range eine Variable zuweisen
23.02.2004 14:29:09
Christoph
Hallo Leute,
habe folgende kurze Frage, gibt es(in VBA) einen Cells Befehl mit dem man eine ganze Range einer Variable/oder einem Array zuweisen kann.
Etwas in der art wie: x = Range("A1":"A20")
Besten Dank
Christoph

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einer Range eine Variable zuweisen
23.02.2004 14:34:35
AndReas
Hallö Christoph
dim x As Range
x= Worksheets(1).Range("A1:A20")
sollte funtionieren
Grüsse AndReas
AW: Einer Range eine Variable zuweisen
23.02.2004 14:47:07
Chrsitoph
habe folgendes ausprobiert,kriege aber eine Fehlermeldung.

Sub chris()
Dim x As Range
x = Worksheets("master").Range("D4:O4")
Worksheets("Test").Range ("D20:O20") = x
End Sub

AW: Einer Range eine Variable zuweisen
23.02.2004 15:00:13
Alex K.
Hallo Christoph,
da Range ein Objekt ist, musst du mit Set arbeiten:

Sub chris()
Dim x As Range
set x = Worksheets("master").Range("D4:O4")
Worksheets("Test").Range ("D20:O20") = x
End Sub

AW: Einer Range eine Variable zuweisen
23.02.2004 15:14:19
Christoph
Habe es genau so gemacht, aber es funz. nicht.
leider konnte ich das was unter ("master").Range("D4:O4") nicht unter ("Test").Range ("D20:O20") wiederfinden.
Anzeige
AW: Einer Range eine Variable zuweisen
23.02.2004 15:18:34
Karl-Otto Reimann
Hallo Christoph

Sub Kopieren()
Dim rngSource As Range, rngTarget As Range
Set rngSource = Workbooks("Test1.xls").Worksheets(1).Range("A1:F14")
Set rngTarget = Workbooks("Test2.xls").Worksheets(2).Range("C16")
rngSource.Copy rngTarget
End Sub

Gruß
Karl-Otto
Danke ??
23.02.2004 16:49:33
Christoph
Hi Danke hat funz.
aber kannst du mir noch erklären warum folg. nicht funz.
...
...
produkt= "Tabelle1"
Set rngSource = Workbooks("Planning_Tool_45,900_final.xls").Worksheets(""& produkt &").Range("D5:O5")
...
...
AW: Danke ??
23.02.2004 16:54:38
Andreas Walter
produkt= "Tabelle1"
Set rngSource = Workbooks("Planning_Tool_45,900_final.xls").Worksheets(produkt).Range("D5:O5")
Das muss gehen.
Erklärung
Worksheets(produkt)
bedeutet nimm die variable "produkt" und schreib es hier rein.
Wenn produkt "Tabelle1" beinhaltet, dann ist es
Worksheets("Tabelle1")
perfekt.
Aber wenn produkt eine Zahl wäre
produkt = 4711
und Du sagst
Worksheets(produkt)
dann wurde Excel auf der Suche nach Worksheets(4711), sprich nach dem 4.711'ten Blatt gehen (und wahrscheinlich nicht finden)
Nur in diesem Fall braucht man die Konstrkution
Worksheets("" & produkt)
Dann zwingst Du Excel eine Zeichenkette zu bilden.
Dann wird Worksheets("4711")
sprich Worksheet mit Namen "4711" gesucht.
Anzeige
Fehler: Index ausserhalb des gültigen Bereiches
23.02.2004 17:15:59
Christoph
Hi. Danke habe verstanden und auch mein Code umgeschrieben aber er bringt folgende fehlermeldung:
"Index ausserhalb des gültigen Bereiches".
Er macht aber trotzdem was er machen sollte.
1)Ist es von Bedeutung, das in dem zu kopierenden Bereich formeln sind.
2)Kan man statt der Formeln einfacha auch die Werte kopieren?
AW: Fehler: Index ausserhalb des gültigen Bereiches
25.02.2004 08:55:35
Andreas Walter
Du schreibst
> Hi. Danke habe verstanden und auch mein Code umgeschrieben aber er bringt folgende fehlermeldung:
> "Index ausserhalb des gültigen Bereiches".
Mein Glaskügel ist leider bei der Reparatur. Könntest Du vielleicht Dein Code posten?
> Er macht aber trotzdem was er machen sollte.
Darauf wurde ich mich aber nicht verlassen
> 1)Ist es von Bedeutung, das in dem zu kopierenden Bereich formeln sind.
Kommt auf die Formeln darauf an
> 2)Kan man statt der Formeln einfacha auch die Werte kopieren?
Ja. Nutz mal den Makro Recorder und zeichne auf
a) Bereich markieren/Bereich einfügen
b) Bereich markieren/Inhalte einfügen/Werte
Dann siehst Du den Unterschied
Anzeige

300 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
VBA - if anweisung mit variable
Thomas

Hallo,
ich habe ein blöds Problem und zwar habe ich folgendes If Abfrage in einer Forschleife in Pseudo:
Wenn A1 kleiner als A2 tu dies sonst tu das
VBA:
For i = 2 To 5 If "A" & i
Irgendwie trifft dort immer nur Else ein, ich glaube es liegt an der Bedingungsformulier...
16.10.2008 10:10:50
Thread-ID: 1016763
4 Beiträge
VBA Range Definition
Karen

Hallo Forum,
ich habe ein kleines Problem in meinem Makro.
Ich möchte eine Range abbilden, leider überträgt das Makro aber immer nur die Zeile 6.
For i = 2 To 256
If Cells(3, i).Value = datum Then
Range(Cells(6, i), Cells(40, i)).Copy
Selection.Copy
Cells(6, i + 1)...
22.12.2008 16:21:00
Thread-ID: 1034798
14 Beiträge
Anzeige
Range einer Variable zuweisen
Mario

Hallo
Ich wollte die selection.Range einer variablen zuweisen, damit ich danach die selection verändern kann und trotzdem noch weiss, was vorher selectiert war.
Ich habe schon folgende Varianten versucht:
Dim r As Range r = selection.Range ''Fehlermeldung r = Range(Cells(selection...
07.02.2009 08:42:07
Thread-ID: 1047988
21 Beiträge
VBA Abspeichern in variablen Ordner
Danomat

Hi,
folgendes Problem
In Zelle C1 steht der aktuelle Monat. Nun möchte ich die Datei als PDF abspeichern:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"G:\Dokumente\Berichtswesen\Monatsreporting\02 Februar\Test.pdf" _
, Quality:=xlQualityStandard, IncludeDo...
13.03.2009 12:37:34
Thread-ID: 1059831
10 Beiträge
variable Zeilenanzahl kopieren, einfügen (VBA)
Alex

Hallo Leute,
In meiner Arbeitsmappe kopiere ich eine! Zeile (aus dem TabBlatt „Grundformular“) - via Doppelklick auf einen Namen in „Übersicht“ - in andere TabBlätter.
(das geht wunderbar)
Sieht jemand eine Möglichkeit ob/wie das ganze mit einer variablen Zeilenanzahl, die im „Grund...
18.03.2009 17:23:56
Thread-ID: 1061522
3 Beiträge
variabler SVerweis mit VBA
Jonathan

Hallo zusammen,
in einer Tabelle sind verschiedene Zeilen mit einem "x" in Spalte C markiert. Die Anzahl der "x" variert.
Nun versuche ich ein Makro zu erstellen, welches mir, wenn eine Zeile mit einem "x" markiert ist in
Spalte B einen SVerweis (Suchwert steht in Spalte A) einträg...
17.06.2009 14:28:57
Thread-ID: 1082250
3 Beiträge
Variable Liste in VBA
Diana

Liebes Forum,
ich habe ein Problem. Ich lese mit einem VBA-Makro Messwerte aus. Diese Messwerte werden über einen Namen auf einem anderen Rechner angesprochen. Derzeit gebe ich diese Namen (Adressen) direkt in das Makro ein.
strSQL = "SELECT k055z02_0.Zeit, k055z02_0.A00100001, ..., .....
14.08.2009 14:59:47
Thread-ID: 1096000
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
3
13
4
20
9
2
2
3
2
1
12
3
16
6
1
4
2
3
2
4
6
14
2