|
Guten Morgen!
Bei meinem Code wird ein über InputBox abzufragender Wert in einer großen Tabelle gesucht und die FundZEILE in ein neues Tabellenblatt kopiert.
Ich will aber dass nur die Fundzelle in das neue Tabellenblatt kopiert wird, wie geht das??? (irgend ein anderer Befehl als EntireRow?)
Zusätzlich soll noch die Zelle (ebenfalls aus der Fundzeile) aus Spalte B mitkopiert werden.
---> es sollen also immer nur 2 Zellen kopiert werden:
die gefundene Zelle
+
Zelle Spalte B (Fundzeile, Spalte B) aus der gleichen Zeile
Könnt ihr mir da helfen?
Danke schonmal !
----------------------------------------------------------------
Private Sub CommandButton1_Click()
Dim rng As Range
Dim rngSource As Range
Dim rngStart As Range
Dim varInput As Variant
Dim iRow As Integer
varInput = InputBox( _
prompt:="Bitte S-Nummer eingeben:", _
Title:="Suche")
If varInput = False Then Exit Sub
Set rng = ActiveSheet.Columns("A:Z").Find( _
What:=varInput, LookAt:=xlWhole, LookIn:=xlValues)
If rng Is Nothing Then
MsgBox "S-Nummer nicht gefunden!"
Exit Sub
End If
Set rngStart = rng
Set rngSource = rng.EntireRow
Do
Set rng = Cells.FindNext(After:=rng)
If rng.Address = rngStart.Address Then Exit Do
Set rngSource = Union(rngSource, rng.EntireRow)
Loop
With Worksheets("Tabelle4")
iRow = .Cells(Rows.Count, 1).End(xlUp).Row
If iRow = 1 Then iRow = 2 Else iRow = iRow + 3
rngSource.Copy .Cells(iRow, 1)
.Columns.AutoFit
End With
End Sub
|