AW: Hilfe !
29.01.2004 13:18:34
AndreasS
Hallo,
http://www.excel-inside.de/index.htm?/vba/101_zellen_bereiche/101053.htm
Sub DoppelteLöschen()
Application.ScreenUpdating = False
'für M
Dim LastC As Long, x As Long
LastC = Range("m65536").End(xlUp).Row
For x = LastC To 1 Step -1
If WorksheetFunction.CountIf(Range("m1:m" & x), Cells(x, 13)) > 1 Then
Cells(x, 13).ClearContents
End If
Next
Application.ScreenUpdating = True
End Sub
Das brauchst:
Sub WertAnzeigen()
Dim Wert As String
Dim i As Integer
Wert = InputBox("Bitte den Suchbegriff eingeben", "Suchbegriff")
If Wert = "" Then Exit Sub
i = Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) = Wert Then
MsgBox ("Wert schon vorhanden")
'rows(i).select
End If
End Sub
Gruß Andreas
gruß