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

Werte hinzufuegen.

Werte hinzufuegen.
01.04.2004 08:19:10
Alexej
Hallo nochmals Forum,
Kaum das eine Problem geloest, kommt schon das naechste :((
Ich habe wieder zwei Spalten. Diese sehen ung. so aus:
Spalte A Spalte B
(010101) (010101) Text
(010102) (010102) Weiterer Text
(010103) Noch ein Text
(010110) Und noch ein Text
(010120) (010120) Weiterer Text
Wie kann ich nun Excel mitteilen, dass wenn in der Spalte B nicht der Wert aus der Spalte A vorhanden ist, dann soll dieser vor dem Text in der Spalte B hinzugefuegt werden.
Viele Gruesse,
Alexej

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
  • 01.04.2004 09:15:14
    Alexej
Anzeige
Loesung
01.04.2004 09:15:14
Alexej

Sub compare()
Dim i As Integer
For i = 2 To 2148
zelle = Cells(i, 4).Value
zelle2 = Cells(i, 3).Value
numbertosearch = Mid(zelle, 1, 8)
numbertofind = Mid(zelle2, 1, 8)
If Not numbertosearch = numbertofind Then
zelle = numbertofind & " " & zelle
Cells(i, 4).Value = zelle
End If
Next
End Sub

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige