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

Textzellen addieren

Textzellen addieren
19.11.2003 17:41:07
Jörg
Hallo,

ich brauche mal Eure Hilfe da ich noch nie mit Textfeldern gearbeitet habe:

Aufgabe: ich habe 2 Zellen deren Inhalt Text ist:
Zelle 1: A10-122-321
Zelle 2: 56753-0001

ich muss jetzt hieraus mittels eines Makros eine neue Zelle erzeugen:
und zwar: Zelle 3: A10-122-321-0001

also den Inhalt der Zelle 1 + die letzten 5 zeichen der Zelle 2.
im Idealfall führe ich die Funktion nur aus wenn
z.B. die Zelle 2 kürzer als 11 Zeichen ist
(das wär aber nur der Bonbon;-)

weiss jemand wie sowas geht?

Thanx
Jörg

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

Betreff
Datum
Anwender
Anzeige
AW: Textzellen addieren
19.11.2003 17:46:07
th.heinrich
hallo Jörg,

=A16&RECHTS(A17;5)

am bonbon lutsche ich noch ;-)

gruss thomas
bonbon
19.11.2003 17:50:13
th.heinrich
hallo Jörg,

=WENN(LÄNGE(A17)<11;A16&RECHTS(A17;5);"")

gruss thomas
AW: Textzellen addieren
19.11.2003 17:52:39
OliveR
Hallo Jörg,

here we go.

Gruß
OliveR


Sub verketten()
Dim lR%, i%
lR = 10
For i = 1 To lR Step 1
If Len(Cells(i, 2)) < 11 Then
Cells(i, 3) = Cells(i, 1) + Right(Cells(i, 2), 5)
End If
Next i
End Sub

Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige