Office: nach zwei Werten suchen und dazwischen liegende Zeilen kopieren

DollyFarm · 18. Mai 2011

Hallo zusammen,
bräuchte eure Hilfe in sachen VBA.

VBA für folgenden ablauf:
Tabellenblatt_1 nach zwei werten durchsuchen.
Die dazwischenliegenden Zeilen kopieren.
Kopierte Zeilen in Tabellenblatt_2 einfügen.

müsste wohl ungefähr so ablaufen.

Wert "A" in tabellenblatt_1 suchen
Zeile mit wert "A" merken
wert "B" in tabellenblatt_1 suchen
Zeile mit wert "B" merken
kopieren zeile "A" bis Zeile "B" minus einer Zeile
gehe in Tabelle_2
suche letzte Zeile
einfügen Kopierter Zeilen.

Wäre klasse wenn Ihr mir helfen könntet.

:)

Chen · 19. Mai 2011

Hallo DollyFarm,

Code:

Option Explicit

Sub werteDazwischenÜbertragen()

Dim intr As Integer, intr1 As Integer, intr2 As Integer
Dim ws1 As Worksheet, ws2 As Worksheet
Dim lnall As Long

Application.ScreenUpdating = False
Set ws1 = ThisWorkbook.Worksheets(1)
Set ws2 = ThisWorkbook.Worksheets(2)

For intr = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If ws1.Cells(intr, 1).Value = ws1.Range("B1") Then 'B1 ist die Range des ersten Wertes
intr1 = intr
End If
If ws1.Cells(intr, 1).Value = ws1.Range("D1") Then 'D1 ist die Range des zweiten Wertes
intr2 = intr
End If
Next

lnall = ws2.Cells(Rows.Count, 1).End(xlUp).Row + 1
ws1.Activate
ws1.Range(Rows(intr1 + 1), Rows(intr2 - 1)).Copy
ws2.Cells(lnall, 1).PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dieses Makro durchsucht nur die 1.Spalte nach dem bestimmten Wert.
Falls er sich in einer anderen Spalte befindet musst du die ggf. ändern oder, falls er sich in mehreren Spalten befindet eine weitere for Schleife einbauen.

DollyFarm · 20. Mai 2011

einfach Spitze,
Vielen dank Chen.
Du hast mir da sehr geholfen.

Das Forum ist wirklich Spitze!!!!

Office: nach zwei Werten suchen und dazwischen liegende Zeilen kopieren

nach zwei Werten suchen und dazwischen liegende Zeilen kopieren

nach zwei Werten suchen und dazwischen liegende Zeilen kopieren

nach zwei Werten suchen und dazwischen liegende Zeilen kopieren - Similar Threads - Werten dazwischen liegende

Wenn ein Wert ein einer Spalte, dann komplette Zeile im anderen Blatt untereinander einfügen.

Abfrageergebnis soll keine doppelten Werte enthalten

Teilstring einer Zelle auf Wert aus anderer Zelle überprüfen

konti aufzählung und wert gleicher konti zusammenfassen

Werte zusammenzählen - ab einer Zelle die nächsten 5

Bedingte Formatierung basierend auf Wert anderer Zelle

Summieren an Hand der letzten x Datums Werte und mit weiteren Kriterien