Office: Spaltenbuchstabe "addieren"

Hallo zusammen,

ich bin Forumsneuling, suche aber dennoch Unterstützung bei einem kleinen "Problemchen".
Ich nutze ein VBA Script, um mit dem Range Befehl einen Zellbereich von einer Datei in eine andere zu kopieren.

Beispiel:
Kopiere
von
TabelleA!BlattA!A3 : C10
nach
TabelleB!BlattB!B4 : D11

In einem Befehlsblatt kann der Benutzer in jeweils eine Zelle die Range-Parameter eingeben, die dann per Formel zusammengesetzt werden:
Quelle Spalte Erste: A
Quelle Spalte Letzte: C
Quelle Zeile Erste: 3
Quelle Zeile Letzte: 10

Ziel Spalte Erste: B
Ziel Spalte Letzte: D
Ziel Zeile Erste: 4
Ziel Zeile Letzte: 11 (automatisch per Formel errechnet 10-3= 7 + 4 = 11)

Die Zelle "Ziel Zeile Letzte" wird automatisch errechnet.
Kann so etwas ähnliches auf für die Zelle "Ziel Spalte Letzte" machen?
Also z.B. eine Formel:
"C"-"A"= 2 Spalten + "B" = "D"

Es käme dann beim Copy Befehl zu keinem Fehler wenn Quell-Range und Ziel-Range unterschiedlich groß sind.

Danke Euch.

P.S. falls es bereits einen Eintrag zu diesem Thema gibt, bitte um Hinweis, weiß nicht mal wonach ich suchen sollte.

 

Hi,

so richtig verstehe ich dein Problem nicht. Wenn du kopierst, musst du doch nicht den kompletten Zielbereich angeben - es reicht die Adresse der ersten (linken oberen) Zelle.

Bis später,
Karin

 

Hi Karin,

ich benutze ein VBA Script. In dem gebe ich über Variablen den zu kopierenden Zellbereich an, und den Zielbereich.
LängexBreite sollte natürlich identisch sein, der Ort (also z.B. Start in B3, oder C20, etc.) im Quellsheet und Zielsheet kann anders sein.

Heute muss ein Nutzer selbst rechnen, z.B. kopieren Zellen A1:Z20 nach C2:?? ... rechne okay AB21 => C2:AB21. Das ist eben sehr unkomfortabel.
Gibt es da eine bessere Lösung?

Gruß

Frank

 

Hi Frank,

ich frage nocheinmal: weshalb muss man die Größe des Zielbereichs vorher berechnen, wenn es beim Einfügen genügt, die Adresse der linken oberen Ecke zu kennen?
Wenn z.B. A1:C5 nach E9:G13 kopiert werden soll, gibt die folgende Ausführung doch keinen Fehler aus:

Code:

Range("A1:C5").Copy Range("E9")

Bis später,
Karin

 

Ich habe leider ein etwas anderes Script zum kopieren... der Einfügebefehl läuft so:
ws_Ziel.Range(var_Range_Ziel).Value = ws_Quelle.Range(var_Range_Quelle).Value

Einfach nur die linke obere Zelle zu benennen funktioniert nicht. Es wird dann auch nur diese Zelle einkopiert.

 

Hi Frank,

du kopierst ja auch nicht, sondern setzt die Zelle gleich der anderen - deine Frage war aber zum Kopieren. Und das funktioniert korrekt, wenn man die linke obere Eckke angibt.
Wenn es nur darum geht, dass beim Kopieren ausschließlich die Werte übertragen werden sollen, dann kann man das mit PasteSpecial machen:

Code:

Range("A1:C5").Copy
Range("E9").PasteSpecial Paste:=xlValues

Bis später,
Karin

 

das hat super funktioniert. Vielen Dank!

 

Hi,

auch wenn wir das Problem jetzt anders gelöst haben, hier noch Möglickeiten, wie man aus einem Spaltenbuchstaben die Spaltennummer ermitteln kann:

Code:

MsgBox Columns("C").Column
MsgBox Cells(8, "C").Column
MsgBox Range("C11").Column

Bis später,
Karin