An Ramses !
11.09.2005 13:46:58
Selma
Betreff: https://www.herber.de/index.html?https://www.herber.de/forum/archiv/660to664/t663434.htm
ich habe dieses Makro:
wenn in Spalte F ab Zeile 5 in Spalte F Anzahl der Zellenzeichen gleich 10 ist und in Spalte L ein "Export" steht, dann sollen die letzten (von rechts gesehen) zwei Zeichen Zellinhalts aus Spalte F entfernt und in Spalte G eingetragen werden.
Beispiel voher:
Änderung, da in F 10 zeichen und in L ein Export steht
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
F20 = TEX2010050
L20 = Export
Beispiel nachher:
~~~~~~~~~~~~~~~~~
F20 = TEX20100
G20 = 50
L20 = Export
Beispiel voher:
Keine Änderung, da in F nicht 10 Zeichen
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
F25 = LED28800
L25 = Export
Beispiel nachher:
~~~~~~~~~~~~~~~~~
F25 = LED28800
G25 =
L25 = Export
Sub test()
For i = 5 To 20
If Cells(I, 12).Value = "Export" And Len(Cells(i, 6)) = 10 Then
dummy = Cells(i, 6).Value
Cells(i, 6).Value = Left(dummy, 8)
Cells(i, 7).Value = Mid(dummy, 9, 2)
End If
Next i
End Sub
Dieses Makro möchte ich nur für selektierten Zellenbereich anwenden.
Was muss geändert werden?
Danke im Voraus...
Liebe Grüße
SELMA