Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1468to1472
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
1468to1472
1468to1472
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA-Range definieren mit x

VBA-Range definieren mit x
20.01.2016 15:44:05
KH
Guten Tag zusammen,
ist es möglich, eine VBA Range zu definieren mittels bspw. (x+3)?
Ansprechen möchte ich in meinem Beispiel also die Spalte E und daraus die Zeile von x bis b+3. Wie definiere ich das?
Beispiel:
Sheets("Tabelle").Range("E" & x).Value
LG & Danke
KH

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA-Range definieren mit x
20.01.2016 15:53:59
JoWE
Hallo KH,
ja 
Sub test()
Dim rng As Range
Dim x As Long
x = 4
Set rng = Sheets("Tabelle1").Range("E" & x)
rng = x
'irgendwelche weiteren Anweisungen...
End Sub
Gruß
Jochen

AW: VBA-Range definieren mit x
20.01.2016 16:00:37
Michael
Hi KH,
meinst Du so?
Sheets("Tabelle").Range("E" & x & ":E" & x+3).interior.color=vbyellow
Geht aber auch mit resize:
Sheets("Tabelle").Range("E" & x).resize(3,1).interior.color=vbyellow
Schöne Grüße,
Michael

AW: VBA-Range definieren mit x
20.01.2016 16:48:44
Daniel
Wenn, dann:
Sheets("Tabelle").Range("E" & x).resize(4, 1).interior.color=vbyellow
wenn man nur eine Zelle anspricht, ist Cells etwas besser geeignet als Range, weil Zeilen und Spalten als Parameter getrennt sind und so die Variablen einfacher eingebunden werden können.
ausserdem hat man die Wahl, ob man die Spalten als Spaltenbuchstaben oder als Spaltennummer eingeben will:
Sheets("Tabelle").Cells(x, "E").resize(4, 1).interior.color=vbyellow
Sheets("Tabelle").Cells(x, 5).resize(4, 1).interior.color=vbyellow
Gruß Daniel

Anzeige
@Daniel
21.01.2016 15:07:36
Michael
Hi Daniel,
mit der 4 haste natürlich Recht, das ist mir aufgegangen, sobald ich den Post abgeschickt hatte - aber es war mir nicht brisant genug, um nochmal was zu schreiben: ich hatte mir gedacht, KH merkt das dann schon.
(Wenn er nur mal anworten würde)
Ansonsten vielen Danke für die weiteren Hinweise.
Schöne Grüße,
Michael

151 Forumthreads zu ähnlichen Themen

Dim Zelle As Range, Farbe As Long
sockel939

Hallo,
sagt mal wie bekomme ich den code dazu nicht die Zellenfarbe zu ändern sondern die Schriftfarbe.
Habe mal statt Interior , Font eingetragen dann bleibt er aber Hängen.
Dim Zelle As Range
Dim Farbe As Long
For Each Zelle In Range("m2:m1000")
Select Case Zelle.Value...
21.08.2008 10:04:00
Thread-ID: 1003376
5 Beiträge
Anzeige
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
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
Variablen Druckbereich mittels VBA einrichten (2) | Herbers Excel-Forum
Space
Hallo Rudi, Hallo Forums-Mitglieder,
zunächst vielen Dank an dich Rudi für die schnelle Rückmeldung! Leider konnte ich auf deinen Beitrag nicht direkt antworten, deshalb muss ich einen neuen Beitrag aufmachen.
Kurz zum Thema: Ich suche eine Lösung für einen variablen Druckbereich mittels VB...
13.01.2010 08:46:23
Thread-ID: 1129313
5 Beiträge
VBA Reihen Löschen mit Variable
chrissey

Hallo Leut,
hab folgende Zeile und möchte diese durch eine Variable ersetzen ( Variablen Name = ErsteZeile )
Worksheets("A").Rows("2:2").Delete Shift:=xlUp
Das ("2:2") möchte ich durch die oben genannte Variable ersetzen.
Kriegs aber irgendwie nicht hin.
Grüße Euch ganz lieb...
15.02.2010 15:56:05
Thread-ID: 1138678
3 Beiträge
Range("A1:B" & Zei,"D1:D" & Zei) ungl. A1:B5,D1:D5
Reinhard

Hallo Wissende
wie muß/kann ich
MsgBox Range("A1:B" & Zei, "D1:D" & Zei).Address
umbauen, sodaß als Ergebnis nicht
$A$1:$D$5
sondern
$A$1:$B$5,$D$1:$D$5
herauskommt?
Muß ich da Union benutzen? Sub nn() Dim Zei Zei = 5 MsgBox Range("A:B, D:D").Address...
18.02.2010 13:25:22
Thread-ID: 1139497
3 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

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
4
3
2
2
1
4
2
2
4
2
1
2
6
6
2
2
4
8
4
4
12
3
4
8
4