Code ändern
30.10.2006 10:45:44
otto
wie kann man folgenden Code ändern dass nicht nur 3 Werte aus der gefundenen Zeile kopiert werden, sondern die ganze Zeile.
Zurück dann wieder genau so.
Ich brauche nicht unbedingt die Zeilennummer, in Spalte 27 von "Bestand" steht eine Identnummer die nur einmal vorkommt.
Habe es leider nicht selbst hinbekommen.
Private Sub CB_1_Click()
Dim i As Long, j As Long, zeile As Long
Application.ScreenUpdating = False
If Sheets("Übersicht").OLEObjects("CB_1").Object.Caption = "Suchen" Then
Dim SuchWert As String
SuchWert = Sheets("Übersicht").Cells(1, 2).Value
For i = 1 To Sheets("Bestand").Cells(65536, 1).End(xlUp).Row
If Sheets("Bestand").Cells(i, 1).Value Like SuchWert Then
Sheets("Übersicht").Cells(j + 5, 1).Value = Sheets("Bestand").Cells(i, 1).Row
Sheets("Übersicht").Cells(j + 5, 2).Value = Sheets("Bestand").Cells(i, 1).Value
Sheets("Übersicht").Cells(j + 5, 3).Value = Sheets("Bestand").Cells(i, 2).Value
Sheets("Übersicht").Cells(j + 5, 4).Value = Sheets("Bestand").Cells(i, 3).Value
j = j + 1
End If
Next i
If j > 0 Then Sheets("Übersicht").OLEObjects("CB_1").Object.Caption = "Übernehmen"
Else
For i = 10 To Sheets("Übersicht").Cells(65536, 1).End(xlUp).Row
zeile = Sheets("Übersicht").Cells(i, 1).Value
Sheets("Bestand").Cells(zeile, 1).Value = Sheets("Übersicht").Cells(i, 2)
Sheets("Bestand").Cells(zeile, 2).Value = Sheets("Übersicht").Cells(i, 3)
Sheets("Bestand").Cells(zeile, 3).Value = Sheets("Übersicht").Cells(i, 4)
j = j + 1
Next i
Sheets("Übersicht").Range("A5:D" & 10 + j).ClearContents
If j > 0 Then Sheets("Übersicht").OLEObjects("CB_1").Object.Caption = "Suchen"
End If
Application.ScreenUpdating = True
End Sub
Danke im Voraus.
otto