Namen benimen ;-)
23.05.2004 22:54:04
NE
mal eine Frage zu Ranges und Namen,
in Anlehnung zu der Frage 'Abfrage' weiter unten,
hab' ich nun mal ne Frage:
Ein sheet ohne Namen sei gegeben, nun möchte ich anhand der cell.values
auf Übereinstimmung prüfen und allen Zellen auf die das zutrifft einen
Namen verpassen.
Der Einfachheit halber erstmal nur für Spalte A und selbst das bekomm ich nich in den Griff,
hier mal mein nicht funktionierender Ansatz,
also alle Zellen in A mit value=bla sollen
zum Name 'test' zusammengefasst werden:
Sub name_me() Dim s As String, i As Integer For i = 1 To Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row If Cells(i, 1) = "bla" Then s = s & Sheets(1).Name & "!" & Cells(i, 1).Address(0, 0, xlR1C1) Next ThisWorkbook.Names.Add Name:="test", RefersTo:="=" & s Range(test).Select End Sub
lg Nancy