Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
728to732
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
728to732
728to732
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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?

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
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige