Makro für einzelne Zeilen anwenden
17.09.2017 22:52:30
J.B.F
ich stelle mich kurz vor in meinem 1. Beitrag. Ich bin 31 jahre alt und arbeite sehr gerne mit Excel, privat oder beruflich spielt dabei keine Rolle. Ich mag Excel sehr, noch mehr mag ich es Aufgaben mit Makros zu automatisieren und dadurch schneller zu werden. Ich bin nicht sehr erfahren mit Makros aber verstehe sie ganz gut. Ich bin aktuell an einem Code, bei dem Ihr mir vielleicht helfen könntet. Sehr viel habe ich schon auf diesem Forum lernen können, nun habe ich mich angemeldet um aktiver dabei zu sein.
Folgendes:
Ich habe eine Excel mit vielen Spalten und Zeilen. Jede Zeile für sich, ist ein eigenes Produkt, jede Spalte ein dazugehöriges Merkmal. Anzahl an Spalten sind zu jeder zeile gleich.
Nun habe ich folgenden Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim inAnzahl As Integer
If InStr(Target, "x") > 0 Then
Target = WorksheetFunction.Substitute(Target, "x", Cells(2, Target.Column))
End If
End Sub
Nun will ich diesen Code für jede Zeile separat ausführen. Sozusagen soll das X in den Texten der Zeile durch einen Wert einer Zelle (steht in der selben Zeile) ersetzt werden.
Im obigen Code kann ich das ja nur "einmalig" machen, brächte es aber jetzt auf der ganzen Liste bzw. für jede Zeile separat.
Könnt Ihr mir dabei weiterhelfen?
Viele Grüße und einen wunderschönen Abend.
J.B.F