Spalte Variabel wählen

Forumthread: Spalte Variabel wählen
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Spalte Variabel wählen

07.02.2006 11:46:23

Otto

Hallo,
nochmals eine kurze Frage:
Ich habe diese Formel:
Sheets("Formeln").Range("B20").Cut (Sheets("Dateneingabe").Cells(Sheets("Dateneingabe").Range("B65536").End(xlUp).Row + 0, 2))
Application.CutCopyMode = False
jetzt würde ich gerne den Spaltenbereich variabel setzen.
Also statt ...Row + 0, 2)) die letzte 2 nach dem Motto, kuck auf dem Blatt Formeln in die Zelle A1. Dort steht die Spaltennummer, in die kopiert werden soll.
Kann mir bitte jemand helfen?

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Spalte Variabel wählen

07.02.2006 11:59:32

Otto
AW: Spalte Variabel wählen

07.02.2006 12:01:12

Peter
AW: Spalte Variabel wählen

07.02.2006 12:08:34

Otto

AW: Spalte Variabel wählen

07.02.2006 11:59:32

Otto

Ich glaube ich habe es selbst gefunden. Über eine Variable:


Sub Datenkopieren()
Dim zelpreis
Dim zelname
zelpreis = Sheets("Formeln").Range("F17")
zelname = Sheets("Formeln").Range("D17")
Sheets("Formeln").Range("B18").Cut (Sheets("Formeln").Cells(Sheets("Formeln").Range("B65536").End(xlUp).Row + 1, 2))
Application.CutCopyMode = False
Sheets("Formeln").Range("B20").Cut (Sheets("Formeln").Cells(Sheets("Formeln").Range("B65536").End(xlUp).Row + 0, zelpreis))
Application.CutCopyMode = False
Sheets("Formeln").Range("B19").Cut (Sheets("Formeln").Cells(Sheets("Formeln").Range("B65536").End(xlUp).Row + 0, zelname))
Application.CutCopyMode = False
End Sub

Bitte um Korrektur falls nicht richtig.

AW: Spalte Variabel wählen

07.02.2006 12:01:12

Peter

Hallo Otto,
versuch folgendes: Schreib anstelle der 2 einfach [A1] oder Range("A1").Value.
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.

AW: Spalte Variabel wählen

07.02.2006 12:08:34

Otto

Ich habe es über eine Variable gelöst.


Sub Datenkopieren()
Dim zelpreis
Dim zelname
zelpreis = Sheets("Formeln").Range("F17")
zelname = Sheets("Formeln").Range("D17")
Sheets("Formeln").Range("B18").Cut (Sheets("Formeln").Cells(Sheets("Formeln").Range("B65536").End(xlUp).Row + 1, 2))
Application.CutCopyMode = False
Sheets("Formeln").Range("B20").Cut (Sheets("Formeln").Cells(Sheets("Formeln").Range("B65536").End(xlUp).Row + 0, zelpreis))
Application.CutCopyMode = False
Sheets("Formeln").Range("B19").Cut (Sheets("Formeln").Cells(Sheets("Formeln").Range("B65536").End(xlUp).Row + 0, zelname))
Application.CutCopyMode = False
End Sub

Funktioniert augenscheinlich.
vielen Dank trotzdem.
MFG
Steve