Spalte Variabel wählen

Forumthread: Spalte Variabel wählen

07.02.2006 10: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 10:59:32

Otto
AW: Spalte Variabel wählen

07.02.2006 11:01:12

Peter
AW: Spalte Variabel wählen

07.02.2006 11:08:34

Otto

AW: Spalte Variabel wählen

07.02.2006 10: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 11: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 11: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

Beliebteste Forumthreads (12 Monate)

Forumthread: Spalte Variabel wählen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread