AW: Daten ersetzen
26.04.2011 09:43:23
fcs
Hallo Markus,
ich hab Sepps Vorschlag mal in die von dir gewünschte Richtung umgestellt.
Makro bitte in einem allgemeinen Modul speichern.
Du kannst das Makro dann beliebig starten.
oder
Im Blatt Daten eine Schaltfläche aus Symbolleiste "Formular" einfügen und dann das Makro der Schaltfläche zuweisen.
Gruß
Franz
'Makro in einem allgemeinen Modul
Sub NummernErsetzen()
Dim sMsgTxt As String
Dim objSh As Worksheet, objSh_Data
Dim lngRow As Long
Dim vntRet As Variant
Set objSh_Data = Worksheets("Daten")
For Each objSh In ActiveWorkbook.Worksheets
If Not objSh Is objSh_Data Then
With objSh
For lngRow = 2 To .Cells(.Rows.Count, 4).End(xlUp).Row
If .Cells(lngRow, 4) "" Then
vntRet = Application.Match(.Cells(lngRow, 4), objSh_Data.Columns(1), 0)
If IsNumeric(vntRet) Then
.Cells(lngRow, 4) = objSh_Data.Cells(vntRet, 2)
Else
If IsNumeric(.Cells(lngRow, 4).Text) Then
sMsgTxt = sMsgTxt & Chr(13) & .Name & " - " & .Cells(lngRow, 4).Text
End If
End If
End If
Next
End With
End If
Next
If sMsgTxt = "" Then
MsgBox "Alle Nummern durch Vornamen ersetzt"
Else
MsgBox "Nummern durch Vornamen ersetzt. Einige Nummern konnten nicht ersetzt werden." _
& vbLf & "Tabelle - Nummer" & sMsgTxt
End If
End Sub