Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
556to560
556to560
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

kopieren / einfügen

Forumthread: 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
Anzeige

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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige