Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Text suchen und nachfolgende Zeichen in andere Zelle kopiere

Forumthread: Text suchen und nachfolgende Zeichen in andere Zelle kopiere

Text suchen und nachfolgende Zeichen in andere Zelle kopiere
02.05.2024 13:16:49
Baedu
Hallo zusammen

Ich stehe auf dem Schlauch. Habe diverse Foren abgesucht. Vermutlich hatte ich nicht die passenden Suchbegriffe benutzt.

Egal, mein Anliegen mit VBA.

Ich möchte in einer Tabelle, nennen wir sie «Bern» in der Spalte «Wetter» jede Zelle nach einem festgelegten Begriff durchsuchen.
Z.B. «Wolke».
Nun möchte ich mit VBA die fünf nachfolgenden Zeichen nach dem Begriff "Wolke" in die Zelle der Spalte rechts davon einfügen.

Danke
Gruss Baedu
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text suchen und nachfolgende Zeichen in andere Zelle kopiere
02.05.2024 13:27:53
MCO
Hallo Baedu!

Versuch es mal so:

Sub Daten_verschieben()

Set col = Columns(4) 'Hier deine Spalte

For Each cl In col.SpecialCells(xlCellTypeConstants)
If InStr(cl, "Wolke") > 0 Then
cl.Offset(0, 1) = Mid(cl, InStr(cl, "Wolke") + 5, 5)
End If
Next cl
End Sub


Du hast nicht gesagt, wie du die Spalte identifizieren möchstest, daher hab ich mal Spalte 4 eingetragen.
Gruß, MCO
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige