AW: Brauch drigend euer Hilfe
28.06.2005 14:20:10
Heiko
Hallo Betro,
hier mal als Ansatz, dieses Makro öffnet schon mal Workbook Data sucht darin und kopiert das gefundene in Workbooks Suche in die erste freie Zeile.
Dann kannst du ja die daten bearbeiten und das zurückkopieren geht dann ähnlich.
Bei Level VBA gut kannst du die notwendigen Anpassungen bestimmt schnell erledigen.
Sub SucheInDat()
Dim strSuchtext As String
Dim lngLetzteZeile As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Workbooks.Open "H:\Excel\Muell\Data.xls"
strSuchtext = InputBox("Bitte einen Suchtext eingeben!", "Suchtext für suchen in Data", "Text")
On Error GoTo nix
If strSuchtext <> "" And strSuchtext <> "Falsch" Then
Workbooks("data").Sheets("Tabelle1").Range("A:A").Find(strSuchtext).Activate
ActiveCell.EntireRow.Copy
On Error goto 0
lngLetzteZeile = Workbooks("Suche").Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
Workbooks("Suche").Activate
Sheets("Tabelle1").Cells(lngLetzteZeile + 1, 1).Select
ActiveCell.PasteSpecial
Sheets("Tabelle1").Cells(lngLetzteZeile + 1, 1).Select
End If
Workbooks("data").Close
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Exit Sub
nix:
MsgBox "Der Suchtext ist in Tabelle Data.xls Spalte A nicht vorhanden", vbInformation
Workbooks("data").Close
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Gruß Heiko
PS: Rückmeldung wäre nett !