Anzeige
Archiv - Navigation
1652to1656
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
Inhaltsverzeichnis

Zellen-String suchen, kopieren und einfügen

Zellen-String suchen, kopieren und einfügen
24.10.2018 16:46:26
Andreas
Hallo liebe Forumer,
ich brauche mal wieder eine Hilfestellung von euch.
Ich muss in Reihe 3 einen String "Summe" suchen.
Wenn gefunden sollte die Zelle kopiert und in der Zelle darüber eingefügt werden.
Gleichzeitig soll in der Quellzelle der String in Klammern gesetzt werden.
Ihr Profis habt doch sicher eine Idee?
Danke und Gruß
Andreas

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen-String suchen, kopieren und einfügen
24.10.2018 16:51:40
Hajo_Zi
Hallo Andreas,

Tabelle2
 ABCDEF
2keine Angabekeine Angabekeine Angabekeine Angabekeine Angabe(Summe)
3     Summe

verwendete Formeln
Zelle Formel Bereich N/A
A2:F2=WENN(A3="Summe";"("& A3 &")";"keine Angabe")  
Excel-Inn.de
Hajo-Excel.de
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 25.14 einschl. 64 Bit



Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
Anzeige
AW: Zellen-String suchen, kopieren und einfügen
24.10.2018 16:53:26
Daniel
Hi
so vielleicht
dim Zelle as range
set Zelle = Rows(3).find(what:="Summe", lookat:=xlpart)
if not Zelle is nothing then
Zelle.Copy Destination:=Zelle.Offset(-1, 0)
Zelle.Value = Replace(Zelle.Value, "Summe", "(Summe)")
end if

gruß Daniel
AW: Zellen-String suchen, kopieren und einfügen
24.10.2018 16:56:23
Andreas
Hallo Ihr Zwei,
danke für eure Antworten.
Daniels VBA-Lösung ist perfekt.
DANKE
Gruß
Andreas
führ doch den Code mal mehrfach aus ...
24.10.2018 17:14:28
Matthias
;-)
AW: führ doch den Code mal mehrfach aus ...
24.10.2018 17:29:39
Andreas
Hallo Michael,
habe ich zu Testzwecken gemacht.
Kann ich das irgendwie abfangen, dass er immer mehr Klammern setzt?
Im Idealfall wird der Code auch nur einmal ausgeführt.
Die Datei ist ein monatlicher Export aus einem WW System.
Gruß
Andreas
Anzeige
AW: führ doch den Code mal mehrfach aus ...
24.10.2018 17:48:58
Daniel
Hi
naja du kannst im .find das lookat:=xlpart durch lookat:=xlwhole ersetzen
dann wird der Text "(Summe)" nicht mehr gefunden, sondern nur noch "Summe" ohne Klammern.
aber ohne Kenntnis, was genau in eurer Datei steht und was wie umgewandelt werden soll, kann ich dir da nicht mehr weiter helfen.
Gruß Daniel
AW: führ doch den Code mal mehrfach aus ...
24.10.2018 20:21:30
Andreas
Hallo Daniel,
Danke. Jetzt klappt alles so wie es soll :o)
Gruß Andreas
AW: führ doch den Code mal mehrfach aus ...
24.10.2018 17:50:05
Hajo_Zi
Hallo Andreas,
if instr(Zelle.Offset(-1, 0),"(")=0 then
Zelle.Copy Destination:=Zelle.Offset(-1, 0)
Zelle.Value = Replace(Zelle.Value, "Summe", "(Summe)")
End if
Gruß Hajo
Anzeige

359 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige