Suche eine 6-stellige Zahl
15.05.2013 22:00:26
Larissa
ich habe ein tolles Makro von Euch erhalten, welches in einer Spalte Namen sucht,die verbunden sind mit einem Bindestrich. Diese Namen werden jeweils in die Spalte links daneben geschrieben, bis der nächste Name gefunden wird.
Jetzt soll genau nach diesem Schema nach einer 6-Stelligen Zahl gesucht werden und diese links daneben geschrieben werden. Wie muss das folgende Makro lauten, wenn nach einer Zahl gesucht wird?
Sub NamenLinks()
'dubliziert Überschriften in eine andere Spalte
Const iColQuelle As Integer = 2 'Namen AUS Spalte 2
Const iColZiel As Integer = 1 'Namen IN Spalte 1
Const sTrenner As String = " - " 'Namen getrennt durch diese Zeichenfolge
Dim lRow As Long
Dim rBereich As Range
Dim sTempName As String
lRow = Cells(Rows.Count, iColQuelle).End(xlUp).Row
For Each rBereich In Range(Cells(1, iColQuelle), Cells(lRow, iColQuelle))
If Len(rBereich.Value) = Len(WorksheetFunction.Substitute(rBereich.Value, sTrenner, "")) _
Then
'wenn sTrenner in dieser Zelle nicht vorkommt
If Not rBereich.Value = "" Then
'Bei nichtleeren Zellen, den Namen mit Nummer nach links schreiben
Cells(rBereich.Row, iColZiel).Value = sTempName
End If
Else
'übernehme neuen Namen
sTempName = rBereich.Value
End If
Next rBereich
End Sub
Vielen Dank für Eure Hilfe,Larissa