Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Spalte Variabel wählen

Forumthread: Spalte Variabel wählen

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?
Anzeige

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

Betreff
Datum
Anwender
Anzeige
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.
Anzeige
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
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige