Hallo Zusammen,
habe folgendes Problem: hier ein Code der meine Bedürfnisse fast abdeckt
&ltpre&gt
Sub Wordmaster1()
Dim a As Long
For a = 2 To Range("A65536").End(xlUp).Row
Cells(a, 3) = Left(Cells(a, 3), InStrRev(Cells(a, 3), "[")) & Replace(Cells(a, 2), " ", "+") & Right(Cells(a, 3), Len(Cells(a, 3)) - (InStrRev(Cells(a, 3), "]") - 2))
Next a
End Sub&lt/pre&gt
Problem ist folgendes:
der Code geht in Zelle C2 ´, findet eine Bestimmte Position, löscht und ersetzt es mit dem Wert aus B2 (verbindet sie noch mit dem + zeichen) und das ganze bis eine leere Zeile kommt.
Dummerweise funktioniert das ganze nur wenn auch in Spalte A ein Wert ist. Jetzt habe ich öfter den Fall das in A nichts drinne steht und dann funktioniert das ganze nicht mehr. Kann mir das jemand so umschreiben das egal ob in A was steht er trotzdem arbeitet. Spalte A ist für diese Sache egal.
Er soll quasie A ganz außer acht lassen, so dass nur geschaut wird ob in B was steht und es solange macht bis in B eine leere Zelle kommt.
Vielen dank im Voraus für eure Hilfe.
Beste Grüße
abu