Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1356to1360
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

mt Schleife Spalte durchsuchen

mt Schleife Spalte durchsuchen
05.04.2014 11:48:41
Elmar
Hallo zusammen,
kann mir ein Experte helfen....
Ich möchte in einer Tabelle die Spalte "R" durchsuche mit einer Schleife. Immer wenn die Zelle leer ist, dann soll der Wert aus Spalte "P" übernommen werden, aber nur die letzten beiden Ziffern (z.B. = Rechts(P2;2)). Wenn in einer Zelle in Spalte "R" was drin steht, soll er die einfach überspringen.
Hat jemand eine Idee?
Danke schon mal
Elmar

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

Betreff
Datum
Anwender
Anzeige
AW: mt Schleife Spalte durchsuchen
05.04.2014 12:29:10
Crazy
Hallo Elmar
das wäre ein Weg
Sub test()
Dim iZaehler As Long
For iZaehler = 2 To Cells(Rows.Count, 18).End(xlUp).Row
If Cells(iZaehler, 18).Value = "" Then
Cells(iZaehler, 18).Value = Right(Cells(iZaehler, 16), 2)
End If
Next
End Sub
MfG Tom

AW: mt Schleife Spalte durchsuchen
05.04.2014 13:18:54
hary
Moin Elmar
Oder ohne Schleife. Massgeblich bis wohin ist die letzte zelle in SpalteP.
With Range(Cells(2, 18), Cells(Cells(Rows.Count, 16).End(xlUp).Row, 18)).SpecialCells( _
xlCellTypeBlanks)
.FormulaR1C1 = "=right(RC[-2],2)"
.Value = .Value
End With

gruss hary

Anzeige
AW: mt Schleife Spalte durchsuchen
05.04.2014 14:02:41
Elmar
Hallo Tom, hallo Hary,
nun hab ich gleich zwei Lösungen, DANKE EUCH!!!
Beide Lösungen klappen, ich bin begeistert.
Grüße vom Bodensee
Elmar

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige