Hallo,
Wer kann mir da helfen?
Makro:
Sub test()
Dim sAntwort As String
Dim lZeile As Long
Dim iSpalte As Integer
Dim bGefunden As Boolean
sAntwort = Selection.Address(0, 0)
For iSpalte = 2 To 5
For lZeile = Selection.Row To 1 Step -1
If Left(Cells(lZeile, iSpalte).Value, 4) = "Mat " Then
bGefunden = True
Exit For
End If
Next lZeile
If bGefunden = True Then
Exit For
End If
Next iSpalte
Names.Add Replace(Cells(lZeile, iSpalte).Value, " ", "") & "_A" & "_test", ActiveCell
Diese Makro Sucht ab der aktiven Zelle nach oben, die Spalten von B bis E nach Zelleninhalt "Mat" durch. Dann wird z.B. der Wert "Mat 06" gefunden. In der letzen Makrozeile wird dann dieser Wert (Mat 06) mit den festen Werten "_A" und "_test" zusammengesetzt und als Name der Aktiven Zelle vergeben.
Ich möchte diese funktionalität beibehalten, nur mit dem Unterschied das statt dem Namen vergeben, der zusammengesetzte Wert in die Aktive Zelle ausgegeben wird.
Zelleninhalt ist dann wie in diesem Beispiel: Mat06_A_test
Gruß Hans