Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1624to1628
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
Inhaltsverzeichnis

Wert verschieben

Wert verschieben
22.05.2018 11:40:43
Goeschl
Hi!
So eine Frage hab ich noch! ;-)
Ich hab folgende Werte:
Spalte D F
Wert 2500
500
500
1000
250
250
Wie man sieht steht in D die Summe und die Einzelbeträge in F!
Ich würd die Einzelbeträge jetzt gerne mit VBA nach D kopieren?
Mit:
Dim C As Range
For Each C In Range("F1:F" & Cells(Rows.Count, 6).End(xlUp).Row)
geh ich mal die Spalte durch und dann müsste ich ihm noch sagen wenn was drin steht dann rüberkopieren und wenn leer dann lassen?
Vielen Dank

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

Betreff
Datum
Anwender
Anzeige
AW: Wert verschieben
22.05.2018 11:41:27
Goeschl
Oh, hoppla hat die Formatierung nicht mitgenommen! ;-)
AW: Wert verschieben
22.05.2018 12:02:36
Gerd
Hallo
Sub teste()
Dim rngNum As Range, rngA As Range
On Error Resume Next
Set rngNum = Range(Cells(2, 6), Cells(Rows.Count, 6).End(xlUp)).SpecialCells(2)
On Error GoTo 0
If Not rngNum Is Nothing Then
For Each rngA In rngNum.Areas
rngA.Offset(0, -2) = rngA.Value
Next
Set rngNum = Nothing
End If
End Sub

Gruß Gerd
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige