Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
556to560
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
556to560
556to560
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

kopieren / einfügen

kopieren / einfügen
02.02.2005 11:19:27
Klaus
Hallo zusammen
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: kopieren / einfügen
HerbertH
hallo Klaus,
probier das einmal:

Sub kopiern()
Dim sh As Worksheet, sh1 As Worksheet
Dim lz%, lz1%, i%
Set sh = Sheets("Tabelle1")
Set sh1 = Sheets("Tabelle2")
For i = 1 To 1000
If sh.Cells(i, 1).Text = "Total" Then
lz = sh.Cells(i, 1).Row + 1
Exit For
End If
Next
lz1 = sh1.Cells(Rows.Count, 3).End(xlUp).Row
Range(sh1.Cells(20, 2), sh1.Cells(lz1, 10)).Copy sh.Cells(lz, 2)
End Sub

gruß Herbert
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige