VBA: Destination mit Wert aus einer Zelle

Forumthread: VBA: Destination mit Wert aus einer Zelle

Hallo,
(ich habe die Frage schon in einemn anderen Forum gestellt, weil ich dort immer sehr schnell oder gar keine Antwort erhalte fürchte ich dass meine Frage diesmal zu letzerer Kategorie gehört... http://www.office-loesung.de/ftopic536916_0_0_asc.php)
in meinem VBA Code wird eine Abfrage ausgeführt, und das Ergebnis dann mitels Destination:=Range("CH2") an die dort eingetragene Zellposition gespeichert.
Ich schaffe es allerdings nicht, das "Range" durch eine Variable zu ersetzen. Mein Ziel ist es, die Zielposition in einer Steuertabelle zu hinterlegen.
Wie müsste die Syntax hierfür korrekterweise aussehen?
"URL;" & URLref _
, Destination:=Range("CH2"))
Danke!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: VBA: Destination mit Wert aus einer Zelle

18.07.2012 18:43:33

Ramses

Hallo

Sub DemoVar()
Dim rng As Range
set rng = Range("A1")
Range("G1").Copy Destination:= rng
End Sub

Dann sollte das gehen.
Die Variable "rng" kannst du jederzeit neu befüllen und dann verwenden
Wenn es immer die gleiche Zelle ist, die aber durch einfügen von zeilen oder spalten immer verschoben wird, geht auch folgendes:
Die Zelle mit einem Namen belegen, z.B. "DestZelle"
Dann kannst du im Code
Destination:= Range("DestZelle")
verwenden
Gruss Rainer

AW: VBA: Destination mit Wert aus einer Zelle

19.07.2012 17:44:30

Hallo Rainer,
vielen Dank für Deine Antwort. Ich habe den Code nun wie folgt aufgebaut:
Dim ZelleRef As Range
Set ZelleRef = Range("CW164")
In der Zelle CW164 steht DK100 - das ist die Zelle ab der die Ergebnisse geschrieben werden sollen. Die Abfrage schreibt nun das Ergebnis in die Zelle CW164, und nicht in die dort angegebene Zelle DK100.
Hast Du noch einen anderen Vorschlag für mich?
Der Vorschlag mit dem Namen hat mir, nachdem ich ihn verstanden hatte gut gefallen. Leider ist er in diesem Fall nicht praktikabel, da ich mehrere Dutzend Abfragen verwalten will.
Danke & Grüße!

AW: VBA: Destination mit Wert aus einer Zelle

19.07.2012 17:54:26

Hajo_Zi

Set ZelleRef = Range(Range("CW164"))

Zelladresse in Steuertabelle

19.07.2012 06:40:21

Erich

Hi ?,
was genau steht in deiner Steuertabelle? Zelladressen?
Nehmen wir mal an, die Zielposition CH2 steht in der Steuertabelle in Zelle T4.
Dann kannst du einfach schreiben
Destination:=Range(Range("T4"))
oder
Destination:=Range(Range("T4").Value)
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

AW: Zelladresse in Steuertabelle

19.07.2012 17:55:12

Erich,
Klasse, danke!!!!!!!
Destination:=Range(Range("T4").Value)
hat mein Problem gelöst.
Du glaubst nicht, wie sehr ich mich darüber freue.

Infobox / Tutorial

VBA: Destination mit Wert aus einer Zelle

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.
Erstelle ein neues Modul, indem du im Projektfenster mit der rechten Maustaste auf dein Projekt klickst und „Einfügen“ > „Modul“ wählst.

Füge den folgenden Code ein, um eine Variable für die Zielzelle zu definieren:

Sub Beispiel()
   Dim ZelleRef As Range
   Set ZelleRef = Range("CW164") ' Hier steht die Zelladresse
   Range("G1").Copy Destination:=Range(ZelleRef.Value) ' Kopiere nach der Zielzelle
End Sub

Ändere den Wert in CW164, um die Zielzelle dynamisch zu bestimmen.
Führe die Sub aus, um das Ergebnis zu überprüfen.

Häufige Fehler und Lösungen

Fehler: "Typen sind inkompatibel"
Lösung: Stelle sicher, dass die Variable ZelleRef korrekt als Range deklariert ist und dass die Zelladresse in der CW164 als Text vorliegt.
Fehler: "Zielbereich ist ungültig"
Lösung: Vergewissere dich, dass die Zelle, auf die verwiesen wird (z.B. DK100), existiert und im richtigen Format angegeben ist.

Alternative Methoden

Eine alternative Methode zur Verwendung von Destination in VBA ist die Verwendung von benannten Bereichen. Wenn du die Zelle benennst, kannst du diese im Code verwenden:

Sub BeispielMitNamensbereich()
    Range("G1").Copy Destination:=Range("DestZelle")
End Sub

Hierbei wird DestZelle als benannter Bereich in Excel definiert. Diese Methode ist besonders nützlich, wenn du öfter auf die gleiche Zelle zugreifen musst.

Praktische Beispiele

Einfache Kopie:
Kopiere Inhalte einer Zelle in eine andere, während du die Zielzelle über eine andere Zelle bestimmst.

Sub CopyToDynamicCell()
   Dim ZielZelle As Range
   Set ZielZelle = Range("T4") ' Zieladresse in T4
   Range("A1").Copy Destination:=Range(ZielZelle.Value)
End Sub

Mehrere Zellen kopieren:
Wenn du mehrere Zellen in einen Zielbereich kopieren möchtest:

Sub CopyMultipleCells()
   Dim ZielZelle As Range
   Set ZielZelle = Range("T4")
   Range("A1:A10").Copy Destination:=Range(ZielZelle.Value & ":C10")
End Sub

Tipps für Profis

Immer darauf achten, dass die Zieladresse in der Steuertabelle korrekt formatiert ist.
Verwende die .Value-Eigenschaft, um sicherzustellen, dass der Wert als Text interpretiert wird: Destination:=Range(Range("T4").Value).
Nutze Fehlerbehandlungsroutinen in VBA, um unerwartete Fehler zu vermeiden.

FAQ: Häufige Fragen

1. Was ist die Bedeutung von Destination:= in VBA?
Destination:= ist eine syntaktische Struktur in VBA, die den Zielbereich definiert, in den kopiert werden soll. Es ist ein essentieller Teil der Copy-Methode.

2. Kann ich eine Variable für die Zielzelle verwenden?
Ja, du kannst eine Range-Variable definieren und diese für die Zielzelle verwenden, um dynamisch zu arbeiten. Das ermöglicht dir mehr Flexibilität in deinem Code.

Beliebteste Forumthreads (12 Monate)

VBA: Destination mit Wert aus einer Zelle

Forumthread: VBA: Destination mit Wert aus einer Zelle

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

VBA: Destination mit Wert aus einer Zelle

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

VBA: Destination mit Wert aus einer Zelle

Forumthread: VBA: Destination mit Wert aus einer Zelle

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

VBA: Destination mit Wert aus einer Zelle

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread