Makro
18.07.2007 09:30:00
Johann
ich suche über folgendes Makro im geöffneten Blatt in einer Spalte ( hier AH) nach einer bestimmten
IdentNummer.
Kann ich nach dieser Identnummer auch auf einem Blatt suchen, das nicht geöffnet ist oder ist dies grundsätzlich nicht möglich ? Wenn ja, was muß ich ändern ?
Hier das Makro:
Sub FindIdent(IdentNr As String)
Dim Treffer As Range
Dim Zeile As Long
Columns("AH:AH").Select
Range("AH69").Activate
Set Treffer2 = Selection.Find(What:=IdentNr, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False)
If Not Treffer2 Is Nothing Then
Treffer2.Activate
End If
Set Treffer = Application.ActiveCell
If Not Treffer2 Is Nothing Then
Zeile = Treffer.Row
CopyValues (Zeile)
Makro1 (Range("R69").Value)
Else
Range("G15") = Worksheets("Translation2").Range("A24").Value
Makro1 (Range("R74").Value)
End If
Range("A1").Select
End Sub
Gruß
John