AW: Von Wert zu Wert springen und Aktion ausführen
19.09.2017 10:59:47
yummi
Hallo Marc,
Sub Test
dim rng as range
Set rng = FindeWert(ActiveSheet, "D:D", "bestimmterWert")
if not rng is nothing then
MsgBox " wert in Zeile " & rng.row & " gefunden"
else
MsgBox "Wert nicht gefunden"
end if
end sub
finden
Function FindeWert(ByVal wks As Worksheet, ByVal strRange As String, ByVal strWert As String) _
As Range
Dim rng As Range
If strRange "" Then
Set rng = wks.Range(strRange).Find(strWert, LookAt:=xlWhole)
Else
Set rng = Nothing
End If
If rng Is Nothing Then
Set rng = wks.Range(strRange).Find(strWert, LookAt:=xlPart)
End If
Set FindeWert = rng
End Function
Zeilen hinzufügen
Sub test2()
Call Spaltehinzu(ActiveSheet, "N:O") ' fügt Spalte N : O neu hinzu
End Sub
Function Spaltehinzu(ByVal wks As Worksheet, ByVal strrange As String)
wks.Columns(strrange).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
End Function
Gruß
yummi