Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
652to656
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
652to656
652to656
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

letzten zwei Zeichen entfernen bzw. verschieben?

letzten zwei Zeichen entfernen bzw. verschieben?
22.08.2005 09:55:56
Selma
Hallo Leute,
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
Wie mache ich das per ein Makro?
Danke im Voraus....
Liebe Grüße
SELMA

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

Betreff
Datum
Anwender
Anzeige
AW: letzten zwei Zeichen entfernen bzw. verschieben?
22.08.2005 10:16:17
ede
hallo selma
versuchs mal mit disem code, Zeilenanzahl anpassen!!!!

Sub test()
For i = 5 To 20
If Cells(5, 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

viel erfolg
sorry, Fehlerkorrektur
22.08.2005 10:18:38
ede
kleiner schreibfehler
bitte diesen nehmen!!!!!

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

Anzeige
DANKE EDE !
22.08.2005 10:34:40
Selma
DANKE EDE !
LG
Selma

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige