Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
372to376
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
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

wieder ein problem mit range() HILFE!!!

wieder ein problem mit range() HILFE!!!
30.01.2004 13:07:36
Robert
mein problem ist nun wie bekomme ich die Auswahl range ("a"&x) und ("b"&y) auf ein anderes sheet und dort in ("e"&x) und ("f"&y) ?
bin über jede hilfe dankbar


Private Sub test()
x = Cells(Rows.Count, 1).End(xlUp).Row
End Sub


Private Sub rangen()
Dim x As Integer
x = Cells(Rows.Count, 1).End(xlUp).Row
For x = 1 To Cells(Rows.Count, 1).End(xlUp).Row
range("e" & x) = range("a" & x)
Next x
End Sub


Private Sub rongen()
Dim y As Integer
y = Cells(Rows.Count, 2).End(xlUp).Row
For y = 1 To Cells(Rows.Count, 2).End(xlUp).Row
range("f" & y) = range("b" & y)
Next y
End Sub


Private Sub CommandButton1_Click()
test
rongen
rangen
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: wieder ein problem mit range() HILFE!!!
30.01.2004 13:11:11
Andi_H
hi robert,
meinst du so
Private Sub rangen()
Dim x As Integer
diese Zeile x = cells(.... kannst du eigentlich weg lassen weil du eine ZEile darunter
deinem x ja schon wieder einen anderen Wert übergibst.
For x = 1 To sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
sheets("Tabelle1").range("e" & x) = sheets("tabelle2").range("a" & x)
Next x
gruß
andi
AW: wieder ein problem mit range() HILFE!!!
30.01.2004 13:13:17
Lars
Hallo,
Range("Tabelle2!A" & x).Value = Range("Tabelle1!A" & x).Value
Grüße
Lars

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige