Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
664to668
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
664to668
664to668
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Range("A6,C6:H6") in Cell "schreibweise"

Range("A6,C6:H6") in Cell "schreibweise"
12.09.2005 13:30:07
Peter
Hallo,
wie kann ich die Range("A6,C6:H6") in der "Cell-Form" schreiben? Ich habe es so probiert, aber das geht leider nicht:
Range(.Cells(6, 1), .Cells(6, 3), Cells(6, 8))
Wie muss es denn richtig lauten? Sorry, bin totaler VBA Anfänger. Für Hilfe wäre ich sehr dankbar.
Gruß,
Peter

20
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Range("A6,C6:H6") in Cell "schreibweise"
12.09.2005 13:35:06
u_
Hallo,
Union(Cells(6,1),Range(Cells(6,3),Cells(6,8)))
Gruß
Geist ist geil!
AW: Range("A6,C6:H6") in Cell "schreibweise"
12.09.2005 13:44:00
Peter
Hallo u_,
danke für deine Antwort. Leider funktioniert das in dem Zusammenhang in dem ich das brauche noch nicht:

Sub ()
With Worksheets("Data")
.Range("A6,C6:H6").Copy Destination:=TargetRange
End With
End Sub

--> Das funktioniert

Sub ()
With Worksheets("Data")
.Union(Cells(6,1),Range(Cells(6,3),Cells(6,8)))
End With
End Sub

--> Das funktioniert leider nicht. :(
Was stimmt in diesem Fall nicht?
Danke für eure Antworten im voraus!
Gruß,
Peter
Anzeige
AW: Range("A6,C6:H6") in Cell "schreibweise"
12.09.2005 13:50:29
u_
Hallo,
du sagst ja auch nicht, was passieren soll

Sub ()
With Worksheets("Data")
.Union(Cells(6,1),Range(Cells(6,3),Cells(6,8))).Copy TargetRange
End With
End Sub

Gruß
Geist ist geil!
AW: Range("A6,C6:H6") in Cell "schreibweise"
12.09.2005 13:56:27
Peter
Hallo nochmal,

Sub ()
With Worksheets("Data")
.Union(Cells(6,1),Range(Cells(6,3),Cells(6,8))).Copy TargetRange
End With
End Sub

--> Es soll ganz einfach die Range ("A6,C6:H6") in die TargetRange (auf einem anderen Tabellenblatt (z.B. "A1:G1") kopiert werden. Nicht mehr.
AW: Range("A6,C6:H6") in Cell "schreibweise"
12.09.2005 14:26:50
u_
Hallo,
.Copy TargetRange fehlte bei dir aber.
Gruß
Geist ist geil!
Anzeige
AW: Range("A6,C6:H6") in Cell "schreibweise"
12.09.2005 14:32:34
Peter
Hallo u_!
Stimmt, das hatte ich leider vergessen. Aber wie auch immer, folgendes Lösung funktioniert nicht:

Sub ()
With Worksheets("Data")
.Union(Cells(6,1),Range(Cells(6,3),Cells(6,8))).Copy TargetRange
End With
End Sub

Weiß jemand wie es richtig lauten muss?
Danke & Gruß,
Peter
AW: Range("A6,C6:H6") in Cell "schreibweise"
12.09.2005 14:43:58
u_
Hallo,

Sub test()
Dim TargetRange As Range
Set TargetRange = Sheets(2).Range("A1:G1")
With Worksheets("Data")
Union(.Cells(6, 1), .Range(.Cells(6, 3), .Cells(6, 8))).Copy TargetRange
End With
End Sub

Gruß
Geist ist geil!
Anzeige
AW: Range("A6,C6:H6") in Cell "schreibweise"
12.09.2005 14:55:07
WernerB.
Hallo _u,
dein Makro kopiert auch die Zelle B6 (Cells(6, 2)) mit - das ist ja so wohl nicht gewollt!
MfG
WernerB.
Tut es nicht!
12.09.2005 15:16:37
u_
Gruß
Geist ist geil!
AW: Range("A6,C6:H6") in Cell "schreibweise"
12.09.2005 14:59:57
Peter
Hallo u_!
Super - so funktioniert es jetzt. Danke dir vielmals für die Lösung!
Beste Grüße
Peter
AW: Range("A6,C6:H6") in Cell "schreibweise"
12.09.2005 14:48:15
WernerB.
Hallo Peter,
m.W. kann man nur zusammenhängende Zellbereiche kopieren - das hat nichts mit der herkömmlichen oder der Union-Cells-Methode/Schreibweise zu tun.
Du kannst das testen, indem du die Kopieraktion mal manuell versuchst.
Trotzdem viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige
@WernerB.
12.09.2005 14:54:57
u_
Hallo,
nein, das geht so. Hab's getestet.
Gruß
Geist ist geil!
AW: @_u
12.09.2005 14:58:49
WernerB.
Hallo _u,
dein Makro kopiert auch die Zelle B6 (Cells(6, 2)) mit - das ist ja so wohl nicht gewollt!
MfG
WernerB.
AW: WernerB.
12.09.2005 15:04:07
Peter
Hallo Werner,
danke auch für deine Antwort! Die Lösung von u_ funktioniert aber so!
Gruß,
Peter
AW: @_u und Peter
12.09.2005 15:15:53
WernerB.
Hallo _u und Peter,
das Kopieren des nicht zusammen hängenden Bereiches funktioniert doch - sowohl manuell als auch per Makro.
Hiermit entschuldige ich mich höflichst bei euch und hoffe, dass ich nicht zu viel Verwirrung gestiftet habe.
Gruß
WernerB.
AW: @_u und Peter
12.09.2005 15:18:58
Peter
Hallo Werner,
kein Problem! Ich bin jedem dankbar, der versucht mir zu helfen. Und somit konnten wir heute beide was von u_ lernen! :-)
Beste Grüße
Peter
Anzeige
AW: Range("A6,C6:H6") in Cell "schreibweise"
12.09.2005 19:18:54
Aton
Hallo
Range("A6,C6:H6")
entspricht
Range(cells(6,1):cells(6,1),Cells(6,3):cells(6,8))
Range("A6")
entspricht
Range(cells(6,1):cells(6,1))
Range(cells(6,1)) --------- erzeugt fehler
immer Start und End-celle angeben , auch bei einer celle
Gruß Aton
@Aton
13.09.2005 08:46:25
WernerB.
Hallo Aton,
die von dir vorgeschlagene Schreibweise
Range(cells(6,1):cells(6,1),Cells(6,3):cells(6,8)).Select
verursacht bei mir (Excel XP) im VB-Editor folgende Fehlermeldung, wobei der Cursor auf dem Doppelpunkt steht:
Fehler beim Kompilieren:
Erwartet: Lisentrennzeichen oder )
Hast du deinen Vorschlag auch getestet und was muss ggf. korrigiert werden, damit er ohne Beanstandung funktioniert?
Gruß
WernerB.
Anzeige
AW: Sollte als doch Testen
13.09.2005 17:54:27
Aton
Hallo
Ja Stimmt war falsch
mehrfachauswahl geht nur mit a1 schreibweise
Range(cells(6,1):cells(6,1)) . selekt ' für 1 celle
Range(cells(6,1):cells(8,3)) . selekt ' für cellbereich
Range("A6:c6,d4:Range("h6,d4:f9, a1,a4:b7").Select' für cellbereiche
Gruß Aton
AW: Sollte als doch Testen
15.09.2005 08:03:03
WernerB.
Hallo Aton,
nichts - aber auch rein gar nichts - von dem, was du hier schreibst, funktioniert.
Warum verbreitest Du solchen Unsinn?
Meine dringende Empfehlungan dich:
Erst testen - dann posten!
Gruß
WernerB.

300 Forumthreads zu ähnlichen Themen

Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 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
Kurze Variablendeklaration in VBA?
Gunnar

Hi Leute,
gibt es in VBA keine andere Möglichkeit, Variable zu deklarieren außer
Dim abc As Integer, abd As Integer abe As Integer
usw.? Brauch über 100 Variable, das ist mühselig.
Typenkennzeichen dürfen übrigens nicht verwendet werden, falls das wichtig ist.
Grüße Gunnar...
28.01.2009 18:36:11
Thread-ID: 1044672
5 Beiträge
Daten fortlaufend von Formular in Range schreiben
Formular

Hi,
wie kann ich denn folgende Abfrage bzw kopieren erledigen:
Ich habe Ein Formular mit Textbox'n und Combobox'n
auf einem Bestimmte Tabellenblatt ("Daten") möchte ich nun die Folgenden Inhalte kopieren (button)
Auf dem Tabellenblatt ("Daten") habe ich ein Range B33 : F42 (also...
29.01.2009 09:26:24
Thread-ID: 1044806
3 Beiträge
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
Destination:=.Range("A" & zeile)
Michael

Hallo!
Was mach ich hier falsch?
Die letzte Zeile ist 151. Er schreibt alle hinein, bis close 1, dann ist ende. Er soll immer in die letzte Zelle gehen und dann den Befehl ausführen.
Danke
Gruß Michael
Sub TextdateiEnlesen() Dim zeile As Integer Dim strInhalt As String ze...
11.02.2009 18:00:00
Thread-ID: 1049724
4 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

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
7
3
3
13
1
4
2
20
3
9
2
2
2
3
4
1
4
3
16
6
2
1
4
6
2