Das Archiv des Excel-Forums

Ausgewählten Bereich per VBA kopieren

Bild

Betrifft: Ausgewählten Bereich per VBA kopieren
von: Fritz

Geschrieben am: 01.10.2003 17:09:33

Hallo VBA-Experten,

ich möchte durch ein Makro die nachfolgend beschriebenen Aufgaben erledigen lassen.

Ich möchte durch ein Makro erreichen, dass in dieser Mappe in allen Tabellen, die mit dem Buchstaben "T" beginnen, folgendes erledigt wird. Es soll in der Zeile 2 in den Spalten L bis FY die Zelle gesucht werden, in der die gleiche Zahl eingetragen ist, wie in der Zelle G2. Wird eine Zelle mit einem solchen Eintrag gefunden, soll diese Spalte und die 4 weiteren Spalten rechts davon von der Zeile 3 bis zur Zeile 33 in den Bereich G3:K33 kopiert werden.

Ein Forumsbesucher hat mir daraufhin ein Makro geschrieben, das sich auch in der Arbeitsmappe befindet, die ich zu Demonstrationszwecken für Euch hochgeladen habe. Da das Makro aber nicht einwandfrei arbeitet (z.B. wird das ersichtlich bei der Eingabe der Zahl 1), bitte ich nochmals um Eure Hilfe bezüglich der Fehlersuche.

Ich danke für jede Form von Hilfe.

Mfg
Fritz
https://www.herber.de/bbs/user/1195.xls
Bild


Betrifft: AW: Ausgewählten Bereich per VBA kopieren
von: K.Rola
Geschrieben am: 01.10.2003 19:53:34

Hallo,

Option Explicit

Sub mitArray()
Dim ws As Worksheet, arr As Variant, c As Range
For Each ws In ThisWorkbook.Worksheets
If ws.Name Like "T*" Then
With ws
Set c = .[l2:fy2].Find(what:=.[g2], lookat:=xlWhole)
If Not c Is Nothing Then
arr = .Range(c.Offset(1, 0), c.Offset(31, 4))
.[g3:k33] = arr
End If
End With
End If
Next
End Sub


Gruß K.Rola


Bild


Betrifft: AW: Ausgewählten Bereich per VBA kopieren
von: Fritz
Geschrieben am: 01.10.2003 20:44:37

Hallo K.Rola,

ich habe das Makro getestet, es funktioniert wie gewünscht.
Vielen Dank für Deine Arbeit.
Gruß
Fritz


 Bild

Excel-Beispiele zum Thema " Ausgewählten Bereich per VBA kopieren"

Leerzeichen aus einem Bereich löschen download Befindet sich die aktive Zelle in einem bestimmten Bereich? download
Mehrbereichsauswahl auf eine Seite drucken. download Spalten einer Mehrbereichsauswahl ausblenden. download
Bereich mit Maximalwert markieren download Benannten Bereich erweitern download
Bereich in RefEdit-Element eingeben und auslesen download Benutzerdefinierte SVERWEIS-Funktion über mehrere Bereiche download
Letzter Wert aus einem Bereich download Bereiche bei Mehrfachauswahl prüfen download
Auswahl eines Zellbereiches verhindern download Bereiche in Abhängigkeit eines Zellinhaltes drucken download
Den selben Bereichsnamen in mehreren Tabellenblättern download Leere Zeilen und Spalten in ausgewähltem Bereich löschen download
URLs eines ausgewählten Bereiches in HyperLinks umwandeln download Werte aus Zellbereich in eine Matrix übernehmen und auslesen download
Zellauswahl auf den ausgewählten Bereich beschränken download Berechnung des ausgewählten Bereiches in der Statusleiste download
Bereiche auf Übereinstimmung vergleichen download Scrollbereich begrenzen download
Tabellenblattbereich als Email versenden download Serie von Bereichsnamenteilen einer Arbeitsmappe ändern download
Worte in einem vorgegebenen Bereich zählen download Bereichsnamen ermitteln und als Kommentare anzeigen download
Bereichsnamen in UserForm-ListBox auflisten und editieren download Einen vorgegebenen Tabellenblattbereich in neue Arbeitsmappe download
Werte aus einem nicht zusammenhängendem Bereich auslesen download Druckbereich variabel gestalten download
Tabellenblattbereich sortiert als Zellkontextmenü download Überschriften aus Spalte C in Spalte D in den relevanten Bereich download
Druckbereich bis zum ersten Nullwert festlegen download Werte eines bestimmten Wochentages und eines Zeitbereiches addieren download
Markierten Bereich mit jeweiligem Mwst-Satz multiplizieren download Cursor in bestimmtem Zellbereich in Eieruhr verwandeln download
Maximalwert aus einem Bereich ermitteln und in Spalte A eintragen download Formelbereich in Einzelelemente aufschlüsseln download
Datenreihenbeschriftungs-Quellbereich ausserhalb des Datenbereiches download Diagramm-Datenbereich über Schaltfläche festlegen download
Abfrage zum Kopierbereich von Startzelle, Zeilen- und Spaltenanzahl download Einen von einer Schlüsselziffer abhängigen Bereich kopieren download
Namen eines ausgewählten Bereiches auslesen download Den in einer Zelle genannten Bereich eines Blattes drucken download
Zugriff auf Zellen unter Verwendung eines Bereichsnamens download Bereich aus anderer Tabelle für 2 Sekunden anzeigen download
Nur die sichtbaren Zellen eines AutoFilter-Bereiches einlesen download Aktuellen Bereich in den Spalten A:F als Druckbereich download
Über UserForm-RefEdit-Steuerelement Bereich auswählen download Über InputBox festzulegenden Bereich kopieren download
Anzahl der Übereinstimmungen in zwei Bereichen ermitteln download Blätter in andere Arbeitsmappen kopieren download
Module von Mappe zu Mappe kopieren download Arbeitsblatt 40 mal kopieren download
Schriftgröße beim Kopieren verdoppeln download Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen download
Tabellencode nach Kopieren des Blattes löschen download Arbeitsmappe blitzschnell kopieren download
VBE-Namen der Blattmodule beim Kopieren festlegen download Blattinhalt von einer zur anderen Arbeitsmappe kopieren download
Formel bis zur letzten Zeile der Nebenspalte kopieren download Datei kopieren, wenn noch nicht vorhanden download
Zeilenweise von Blatt zu Blatt kopieren download Erste Druckseite in eine neue Arbeitsmappe kopieren download
Durch DoppelKlick Spalte in zweites Arbeitsblatt kopieren download Teilergebnisse einer Serie von Tabellen in anderes Blatt kopieren download
Bei Eintrag in Spalte A aktuelle Zeile kopieren download Filtern und Kopieren download
Zeile mit aktiver Zelle in anderes Blatt kopieren download Zeilen in Abhängigkeit des Wertes in Spalte A kopieren download
Vorgegebene Anzahl von Einträgen in 2. Blatt kopieren download Passwortgeschützte Mappe öffnen, Daten kopieren, schliessen download
Tabellenblatt kopieren und dreistellig fortlaufend numerieren download Jede zweite Zelle kopieren download
Werte aus UserForm-ComboBox suchen und Fundstelle kopieren download Gruppe von Optionsfeldern kopieren und Makro zuweisen download
Nicht zusammenhängenden Bereich in nächste Zeile kopieren download Wert aus UserForm-TextBox suchen und Fundstelle kopieren download
Nur sichtbare Zellen in anderes Arbeitsblatt kopieren download Zeile in Abhängigkeit zur Eingabe in Blätter kopieren download
Werte prüfen und kopieren download Bei Eintrag von X Zeile in andere Tabelle kopieren download
Daten kopieren wenn kein Datum oder Datum > Heute download Blattinhalte dreier Blätter in neues Blatt kopieren download
Kopieren und Umbenennen eines Blattes download Nur Zeilen mit bestimmtem Inhalt kopieren download
Artikelnummern nach Kriterien suchen und Datensätze kopieren download Bild in zweites Blatt an gleiche Position kopieren download
Alle Zeilen ohne Wert in vorgegebener Spalte kopieren download Bei Eintrag Zeile in 2. Blatt kopieren und Tabellen sortieren download
Bildergruppe in anderes Blatt kopieren download Bei Eingabe Formel in der Nebenspalte nach unten kopieren download
Auswahl in andere Arbeitsmappe kopieren, speichern, schließen download Begriff suchen und Fundzeilen in anderes Blatt kopieren download
Aktive Zeile kopieren und löschen download Datensätze, die öfter als 3 mal vorkommen, kopieren download
Den jeweils darüberliegenden Wert in Leerzellen kopieren download Alle Zeilen mit einem Suchbegriff in nächstes Blatt kopieren download
Dateien listen und Blätter in neue Arbeitsmappe kopieren download