AW: excel Makro Suchen und Kopieren
25.06.2014 03:25:06
Michael
Hallo Stefan,
Deine Tabelle hat mich was Nerven gekostet! Aber ruhig Blut, ein guter Teil davon ist auf meine eigene Unkenntnis zurückzuführen: das kostet immer soooo viel Zeit.
Also: klar ist, daß VBA nicht bei D2 anfängt, sondern bei D3, weil die Zählvariable mit 3 vorbelegt ist anstelle der 2. Daß das Format nicht mitkopiert wird, liegt wiederum an den Parametern von Pastespecial.
Ich habe mir erlaubt, den Kopf von dat janze etwas zu ändern:
Option Explicit
Dim c, firstaddress As Range
Dim OK As String
Dim iZähler As Integer
Option explicit sorgt dafür, daß Variablen nur bei exakter Schreibweise funktionieren, das ist hilfreich, um etwaige Tippfehler zu vermeiden. OK habe ich als String statt als Variant definiert.
Du solltest Deiner Input-Box eine Abfrage gönnen, damit das Skript nicht gleich in eine Endlosschleife geht, wenn man auf "Abbruch" klickt. Siehe unten.
Die angepaßte Version Deiner s*u*b suchen sieht so aus:
Sub suchen()
Range("D2:M49").Clear
iZähler = 2
OK = InputBox("Suchbegriff eingeben " + Chr$(13) + Chr$(13), "Suchen")
If OK = "" Then Exit Sub
Set c = Sheets(Tab1).Range("L2:L500").Find(Trim(OK), LookIn:=xlValues)
If Not c Is Nothing Then
Set firstaddress = c
Do
Sheets(Tab1).Select
Range(Cells(c.Row, 1), Cells(c.Row, 10)).Copy
' MsgBox "c.row" & c.Row & "izähler" & iZähler
Sheets(Tab2).Select
Cells(iZähler, 4).Select
Selection.PasteSpecial
iZähler = iZähler + 1
Set c = Sheets(Tab1).Range("L2:L500").FindNext(c)
Loop While Not c Is Nothing And c <> firstaddress
End If
End Sub
Mit "laufen" tut sie, andere Sachen habe ich jetzt nicht ausprobiert.
Aber: die nächste Fehlerquelle liegt auf der Hand, nämlich die Spalte L im Blatt DP: schau Dir L37 an. Du hast mehrere Zellen verbunden, und das läßt sich in VBA so nicht auflösen: Du findest EINMAL L37, kopierst A37 bis J37, während A38 bis J38 unter den Tisch fällt. Durch den Zellverbund existiert nämlich eine Zelle L38 gar nicht, wovon Du Dich links oben im Namensfeld überzeugen kannst, wenn Du L37 anklickst und einmal den Pfeil nach unten drückst: es folgt L39.
Bevor Du einen Riesenworkaround programmierst, isses einfacher, die verbundenen Zellen zu trennen und die Werte dann eben in JEDE Zeile zu schreiben.
Happy Exceling,
Michael