Ich habe folgendes Problem: In einer Tabelle (Tabelle1) sollen nach dem Eintrag "Total" den ich mit dem folgenden Makro heraussuche
Dim strFind As String
strFind = "Total"
If strFind = "" Then Exit Sub
Set rngFind = Columns(1).Find(strFind, LookAt:=xlWhole, LookIn:=xlValues)
If rngFind Is Nothing Then
Beep
MsgBox "Suchbegriff wurde nicht gefunden!"
Exit Sub
End If
Rows(rngFind.Row).Select
Werte aus einer zweiten Tabelle (Tabelle2) eingefügt werden. Der Bereich, in dem die Werte stehen ist A20:J29. Nun kann es sein, dass in diesem Bereich Leere Zeilen sind. Die möchte ich natürlich nicht in die Tabelle 1 mit einfügen.
Ich habe mal den ganzen Bereich A20:J29 eingefügt und dann die leeren Zellen gelöscht. Leider gehen mir dann die ganzen Formate darunter verloren.
Ich hoffe, dass ich mich verständlich ausgedrückt habe.
Beispiel: https://www.herber.de/bbs/user/17304.zip
Gruss Klaus