Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
752to756
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
752to756
752to756
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Daten markieren und in anderes Arbeitsblatt kopier

Daten markieren und in anderes Arbeitsblatt kopier
11.04.2006 16:38:36
Andreas
Hallo,
ich wuerde gerne den folgenden Vorgang per VBA zu automatisieren:
In einer Tabelle (A) steht im Bereich B3:I100 in jeder Zeile ein Datensatz.
Die Daten sind absteigend nach Spalte F (Textfeld) sortiert. Ich moechte nun, dass alle Datensaetze die den gleichen Eintrag in Spalte F haben kopiert und anschliessend in einem anderen Arbeitsblatt eingefuegt werden.
Bsp.:
- Es gibt 10 Datensaetze
- 5 Datensaetze haben in Zelle F die Eigenschaft 'LBS', die anderen 5 haben die Eigenschaft 'FT'.
- Nach der Sortierung stehen die 5 Datensaetze mit der Eigenschaft 'FT' untereinander (im Bereich B3:I7), gefolgt von den Datensaetzen mit der Eigenschaft 'LBS' (Bereich B8:I12).
- Das Makro wuerde nun den Bereich Bx bis Iy kopieren und in ein anderes Arbeitsblatt in A1 einfuegen. Bx und Iy, weil die Zeile davon abhaengt in welcher Zeile zuerst bzw. zuletzt die gewuenschte Eigenschaft (etwa 'LBS') auftaucht.
Ich habe keine Ahnung wie ich das in VBA umsetze, und der makro Rekorder hilft hier auch nicht mehr weiter.
Danke fuer eure Unterstuetzung...

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten markieren und in anderes Arbeitsblatt kopier
11.04.2006 23:24:08
Mustafa
Hallo Andreas,
mal als Ansatz:
Option Explicit

Sub kopieren()
Dim Zelle As Range
Dim Eingabe As String
Dim X As Long
Eingabe = InputBox("Was soll kopiert werden", "Suchbegriff")
For Each Zelle In Range(Range("F3"), Range("F65536").End(xlUp))
If Zelle.Value = Eingabe Then
X = Zelle.Row
Range("B" & X, "I" & X).Copy
Worksheets(2).Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial
End If
Next
End Sub

Dieser Code kopiert alle Zeilen in denen in Spalte F der Suchbegriff aus der Inputbox auftritt, in das zweite Tabellenblatt.
Rückmeldung obs hilft wäre nett.
Viele Grüße aus Köln.
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige