Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1504to1508
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
Zellenwerte übernehmen
26.07.2016 11:21:27
Olli
Hallo Zusammen
Benötige eine kleine Unterstützung zu dem angefügten Quellcode.
Möchte gerne wie unten beschrieben die Werte von B3 bis B7 den Zellen I4 bis M4 zuweisen. Das funktioniert auch soweit!!
Wenn ich jedoch die Werte B3 bis B7 ändere sollen die unter die vorhandenen Werte in die nächste Zeile I5 bis M5 eingetragen werden. Und jeweils bei der nächsten Änderung wieder unterhalb. Benötige hierzu eine kleine Unterstützung.
Sub Übernehmen()
Dim a As Worksheet
Set a = Worksheets("Tabelle1")
a.Range("I4") = a.Range("B3").Value
a.Range("J4") = a.Range("B4").Value
a.Range("K4") = a.Range("B5").Value
a.Range("L4") = a.Range("B6").Value
a.Range("M4") = a.Range("B7").Value
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Zellenwerte übernehmen
26.07.2016 11:35:05
Fennek
Hallo,
falls ich es richtig verstanden habe:

sub icopy()
with sheets("Tabelle1")
lr = cells(rows.count, "I").end(xlup).row + 1 'last row
lr = iif(lr 
mfg
(ungeprüft)
Problem gelöst!!
26.07.2016 11:47:01
Olli
Hallo Fennek
Hatte den Quellcode noch etwas angepasst, funktioniert aber einwandfrei!!
Danke
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige