Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
796to800
796to800
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellbereich aus Makro mit Variablen ansprechen

Forumthread: Zellbereich aus Makro mit Variablen ansprechen

Zellbereich aus Makro mit Variablen ansprechen
31.08.2006 07:29:40
Daniel
Hallo zusammen,
Mein Problem ist folgendes: Ich habe in einem Excelblatt eine Sverweis-Abfrage gemacht und als Ergebnis stehen in zwei Zellen nebeneinander die Zellen-Positionen (z.B. steht "A23" in der einen und "C45" in der anderen Zelle), die auf den Bereich des aktuellen Datensatzes hinweisen.
Nun möchte ich in meinem Makro diesen Zellbereich, also die den Bereich von "A23" bis "C45" ansprechen. Das soll aber relativ geschehen, weil sich die Position der Daten kontinuierlich verändert. Nur die Position der Sverweisabfrage bleibt gleich. Ich habe nun also geschrieben:
Sheets("Tabelle1").Select
Range("D4").Select 'hier steht das Ergebnis der ersten Abfrage
Set zelle1 = Selection
Range("E4").Select
Set zelle2 = Selection 'hier steht das Ergebnis der zweiten Abfrage
um zwei Variablen zu definieren, die den Inhalt der beiden Ergebniszellen übernehmen. Wenn ich zum Testen eine Messagebox aufrufe msgbox(zelle1) wird der korrekte Inhalt , z.B. "A23" angezeigt, also übernommen wird der Inhalt.
Wenn ich jetzt aber die Bereiche auf die "A23" usw. hinweisen, mit
Range("zelle1:zelle2").select
ansprechen möchte und kopieren will, bekomme ich die "Fehlermeldng 424, Objekt erforderlich". Daraus werde ich nicht schlau. Oder ist es nicht möglich einen Bereich mit Variablen anzusprechen? Achso: die Variablen habe ich mit "Dim zelle1, zelle2 as Range" definiert.
Ich würde mich sehr über Eure Hilfe freuen. Vielen Dank..Daniel
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellbereich aus Makro mit Variablen ansprechen
31.08.2006 08:01:03
IngGi
Hallo Daniel,
deklariere die Variablen zelle1 und zelle2 als Stringvariablen.
Dim zelle1 As String, zelle2 As String
zelle1 = Range("D4")
zelle2 = Range("E4")
Range(zelle1 & ":" & zelle2).Select
Wie du siehst, kannst du dabei auch auf die ganze Selektiererei zum Füllen der Variablen zelle1 und zelle2 verzichten.
Gruß Ingolf
Anzeige
AW: Zellbereich aus Makro mit Variablen ansprechen
31.08.2006 09:09:14
Daniel
Suuper! Vielen Dank für die schnelle Hilfe!
Viele Grüße
Daniel
;

Forumthreads zu verwandten Themen

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
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
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 Select mit Variablen
Tom

Hallo zusammen,
wie kann ich denn beim selektieren von 2 unterschiedlichen Spalten Variablen verarbeiten?
Beispiel:
Range("J:J,CS:CX").Select
So ist es klar...nur wie mir Variablen?
variable1 = CS
variable1 = CX
Range("J:J,variable1:variable2").Select ?
Ich könnt...
04.05.2010 09:41:01
Thread-ID: 1155260
2 Beiträge
Teilergebnis per VBA mit variablen Spalten
grexx123

Hallo,
ich habe schon einmal in dieses Forum geschrieben und kann leider keine weiteren Beiträge mehr schreiben - meine Frage ist aber leider immer noch offen....
https://www.herber.de/forum/archiv/1156to1160/t1156986.htm
Ich möchte gerne eine Tabelle automatisch mit Teilergebnissen...
20.05.2010 16:15:43
Thread-ID: 1158102
3 Beiträge
Range mit Variablen von SAP
SAP

Hallo Excelianer!
Im folgenden Macro werden 2 Variablen aus einem Funktionsbaustein in SAP an Excel übergeben.
Die beiden Variablen werden korrekt an das Excel-Macro übergeben.
Mit Festwerten klappt alles gut: Sub Footer(MyParam1 As Integer, MyParam2 As Integer) Range("A49").Select...
01.07.2010 10:00:39
Thread-ID: 1164841
3 Beiträge
Anzeige
VBA: Problem mit Variable in Formel einfügen
Harald

Hallo,
diese VBA Zeile
Selection.FormulaArray = "=LARGE(IF(SUBTOTAL(2,INDIRECT(""Tabelle1!G""&ROW(R1:R9))),Tabelle1!R1C[5]:R9C[5]),ROW(R[-4]C[-1]))"
fügt diese Formel in Tabelle1 ein
=KGRÖSSTE(WENN(TEILERGEBNIS(2;INDIREKT("Tabelle1!G"&ZEILE($1:$9)));Tabelle1!G$1:G$9);ZEI...
29.07.2010 19:03:24
Thread-ID: 1169548
5 Beiträge
Anzeige
Range - mit variabler Zahl ?!
KLE

Hallo,
ich würde gern folgendes tun, erhalte aber stets eine Fehlermeldung - warum ? und wie kann ich es beheben ?!
Per Aufzeichnung habe ich folgendes stehen, wenn ich mehrere Bereiche markiere.
Range("A8:C1130,E8:F1130,I8:M1130").Select
gehe ich in ein anderes Blatt und drücke...
12.11.2010 17:34:13
Thread-ID: 1186561
9 Beiträge
Range mit variablen Spalten und Zellen
Joachim

Hallo,
ich hab ne Userform mit 2 ComboBoxen. CB1 stellt eine Spaltenauswahl dar (A bis AZ) und CB2 die Zeilenauswahl (2 bis 5). Die Werte der CBs lese ich aus und wollte sie mit range verarbeiten.
Beispiel:
CB1 = C, CB2= 3 ergibt "C3"
Range(CB1,CB2) geht aber leider nicht.
...
25.05.2011 15:25:58
Thread-ID: 1216015
5 Beiträge
Range mit Variabler
Burghard

Hallo,
bei mir gibt es in einem Makro einen Fehler:
letztezeile = ActiveSheet.Cells(65536, 4).End(xlUp).Row
Dim Markierung As Range
Set Markierung = ActiveSheet.Range("C1:Dletztezeile")
Kann mir jemand die richtige Syntax sagen?
Schönen Gruß
Burghard
28.05.2011 16:17:09
Thread-ID: 1216511
5 Beiträge
Zellen mit Wert 0 ansprechen
Robert

Hallo,
in benannter Bereich ist mit Formeln gefüllt. Wie zähle ich über VBA-Code die Zellen in diesem Bereich, bei denen das Formelergebnis "0" ist?
Grüße
Robert
01.08.2012 22:45:29
Thread-ID: 1273449
16 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Zellbereich in Excel VBA mit Variablen ansprechen

Schritt-für-Schritt-Anleitung

Um einen Zellbereich in Excel VBA mit Variablen anzusprechen, folge diesen Schritten:

  1. Variablen deklarieren: Du musst die Variablen für die Zelladressen als Strings deklarieren.

    Dim zelle1 As String, zelle2 As String

  2. Zellenwerte zuweisen: Weise den Zellinhalten die Werte der Variablen zu.

    zelle1 = Range("D4").Value
zelle2 = Range("E4").Value

  3. Bereich ansprechen: Verwende die Variablen, um den gewünschten Zellbereich auszuwählen.

    Range(zelle1 & ":" & zelle2).Select

  4. Aktion durchführen: Du kannst jetzt den ausgewählten Bereich kopieren oder eine andere Aktion durchführen.

Häufige Fehler und Lösungen

  1. Fehlermeldung 424: Wenn du die Fehlermeldung "Objekt erforderlich" erhältst, liegt das oft daran, dass du versuchst, einen Bereich mit einer Variable anzusprechen, die nicht korrekt deklariert ist. Stelle sicher, dass die Variablen als Strings und nicht als Range deklariert sind.

  2. Falsche Zellreferenzen: Überprüfe die Zellreferenzen in den Zellen D4 und E4. Wenn diese leer sind oder nicht im richtigen Format vorliegen, kann dies zu Fehlern führen.

Alternative Methoden

Eine alternative Methode zur Verwendung von Variablen ist die direkte Verwendung von Cells:

Dim startRow As Long, endRow As Long
startRow = Cells(4, 1).Value ' Wert aus Zelle A4
endRow = Cells(4, 3).Value ' Wert aus Zelle C4
Range(Cells(startRow, 1), Cells(endRow, 3)).Select

Diese Methode ist besonders nützlich, wenn du mit numerischen Zeilen- und Spaltenindizes arbeitest.

Praktische Beispiele

Hier ist ein einfaches Beispiel, wie man einen Zellbereich mit Variablen anspricht und kopiert:

Sub KopiereBereich()
    Dim zelle1 As String, zelle2 As String
    zelle1 = Range("D4").Value
    zelle2 = Range("E4").Value
    Range(zelle1 & ":" & zelle2).Copy Destination:=Range("F4")
End Sub

In diesem Beispiel wird der Bereich von D4 bis E4 kopiert und in die Zelle F4 eingefügt.

Tipps für Profis

  • Debugging: Nutze Debug.Print um die Werte deiner Variablen während der Ausführung anzuzeigen. Dies hilft dir, Fehler schneller zu identifizieren.
  • Fehlerbehandlung: Implementiere Fehlerbehandlungsroutinen, um sicherzustellen, dass dein Makro robust ist, wenn unerwartete Zellinhalte auftreten.
  • Benennung von Variablen: Verwende aussagekräftige Namen für deine Variablen, um den Code leichter verständlich zu machen.

FAQ: Häufige Fragen

1. Kann ich auch mehrere Bereiche mit Variablen ansprechen?
Ja, du kannst mehrere Variablen verwenden, um verschiedene Bereiche anzusprechen, indem du die Syntax entsprechend anpasst.

2. Was mache ich, wenn die Zellreferenzen dynamisch sind?
Du kannst die Zellreferenzen aus einer anderen Quelle beziehen, zum Beispiel aus einer Benutzerabfrage oder einer Datenbank, um die Flexibilität zu erhöhen.

3. Ist es möglich, Zellen mit Variablen zu formatieren?
Ja, du kannst die Formatierung von Zellen, die du mit Variablen ansprichst, ganz normal durchführen, z.B. Range(zelle1 & ":" & zelle2).Interior.Color = RGB(255, 0, 0) um den Hintergrund rot zu färben.

Beliebteste Forumthreads (12 Monate)

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