Das Archiv des Excel-Forums

tabellen übergreifend kopieren

Bild

Betrifft: tabellen übergreifend kopieren
von: chris

Geschrieben am: 06.10.2003 13:03:10

Hallo allerseits

kann mir wer helfen?
ich möchte, wenn ich in tabelle2 irgend eine zelle der spalte B anklicke,
den inhalt dieser mit den inhalten der spalte B aus tabelle1 vergleichen
und bei übereinstimmung diese zeile aus tabelle1 in die tabelle2 herüberkopieren
etwa so (hab ich mir gedacht)

If ActiveCell.Row = 2 Then
vergl = ActiveCell.Value 'aktive zelle in tabelle2
lz = Worksheets("tabelle1").Cells(Rows.Count, 2).End(xlUp).Row
'letze zeile, hab ich aus dem wunderbaren forum

For i = 1 To lz
Worksheets("tabelle1").Cells(i, 2).Select
If ActiveCell.Value = vergl Then
Worksheets("tabelle2").Range(Cells(i, 2), Cells(i, 11)).Copy
Destination:=Worksheets("tabelle1").Range("B4:K4")
End If
Next
End If

tut nix.
hab den verdacht das ich (ungeachtet möglicher fehler) auch nicht genau weiss wo dieser code hinsoll. sprich in welches vba Objekt und welches Sub.

mit Dankeschön im Voraus



Bild


Betrifft: AW: tabellen übergreifend kopieren
von: Martin Bolleter
Geschrieben am: 06.10.2003 16:30:11

Hallo Chris

was du beschreibst stimmt nicht mit deinem Beispielcode überein! ZB sagst du, dass du aus Tabelle1 in die Tabelle2 kopieren willst. Im Code machst du es aber genau umgekehrt!!
Weiter sagst du, dass du in eine beliebige Zelle der Spalte B klickst, im Code prüfst du aber auf Zeile=2 (If ActiveCell.Row = 2 Then). Etwas mehr und präzisere Informationen würden den Antwortenden die Aufgabe leichter machen.
Ich habs mal versucht, und mich eher an deinen Text als den Code gehalten :-)

Du brauchst zwei Code-Teile; der erste kommt "hinter" die Tabelle2, in die kopiert werden soll, und in der du den Event (durch Klicken in Kolonne 2) auslöst:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
Call search(Target.Row)
End Sub


In einem normalen Modul dann den Code für die Prozedur "Search" :

Sub search(Zl%)
Dim Wert, ZeileT1%, i%
Application.ScreenUpdating = False
Wert = ActiveSheet.Cells(Zl, 2).Value
ZeileT1 = Worksheets("tabelle1").Cells(Rows.Count, 2).End(xlUp).Row
For i = 1 To ZeileT1
If Wert = Worksheets("tabelle1").Cells(i, 2).Value Then
Range(Worksheets("tabelle1").Cells(i, 3), Worksheets("tabelle1").Cells(i, 11)).Copy Cells(Zl, 3)
Exit For
End If
Next i
End Sub


So hat's bei mir funktioniert, ist aber nicht für jede denkbare Situation getestet ...

Gruss
Martin


Bild


Betrifft: AW: tabellen übergreifend kopieren
von: chris
Geschrieben am: 06.10.2003 20:38:50

Danke Martin

das war ein sehr lehreiches Posting
tschuldige den konfusen Code


 Bild

Excel-Beispiele zum Thema " tabellen übergreifend kopieren"

Suche über mehrere Tabellen download Benennen von Tabellenblättern mit Monatsnamen download
Druckseitenlinien im Tabellenblatt download Tabellenblattnamen in ein Listenfeld einlesen download
Suchbegriff über mehrere Tabellenblätter suchen. download Tabellenblätter benennen download
Tabellenblatt auswählen download Zustand von Tabellenblatt-Checkboxes ermitteln download
Tabellenblattnamen der VBE-Projekte ändern download Tabellenblattnamen nach Datum download
Gefilterte Daten in neues Tabellenblatt übertragen download Mehrmals vorkommende Werte in neues Tabellenblatt download
Kommentare in geschützte Tabellen einfügen download Tabellen vergleichen download
Grafiken im Tabellenblatt ordnen download Einzelnes Tabellenblatt speichern download
Tabellenblattnamen in eine ListBox einlesen download Tabellenblätter in umgekehrter Reihenfolge drucken download
Anwendername in Tabellenblatt eintragen download Druck aus mehreren Tabellenblättern auf eine Druckseite download
Zwei Tabellen wechselseitig ändern download Tabellen hinzufügen und sortieren download
Tabellenvergleich und Übernahme der Doppel download Tabellencode nach Kopieren des Blattes löschen download
Tabellenblatt in UserForm download Nach Eingabe Werte aus Tabellen Übernehmen download
Letztes Speicherdatum in die Fußzeile aller Tabellenblätter download Ausgewählte Tabellenblätter als eigene Arbeitsmappen speichern download
Den selben Bereichsnamen in mehreren Tabellenblättern download Textdatei in Tabellenblatt importieren download
Tabellen hinzufügen und mit Namen aus einer Liste belegen download Einzelnes Tabellenblatt unter Tagesdatum speichern download
Tabellen für die Werktage eines Monats erstellen download Auswahl aus Tabellenblatt-ListBox in Zellen übernehmen download
Tabellenblattbereich als Email versenden download Daten in jeweils einer Spalte zweier Tabellen vergleichen download
Elemente in Tabellenblatt Pac-Man-artig steuern download Einen vorgegebenen Tabellenblattbereich in neue Arbeitsmappe download
Schaltfläche in einem Tabellenblatt ein- und ausblenden download Teilergebnisse einer Serie von Tabellen in anderes Blatt kopieren download
Letzte Verknüpfung in einem Tabellenblatt löschen download Tabellenblattbereich sortiert als Zellkontextmenü download
Ausgeblendetes Tabellenblatt bei Paßworteingabe anzeigen download Wert in Tabellenblatt suchen und alle Fundwerte in zweite Tabelle download
Bei Tabellenaktivierung im Extras-Menü eigenen Menüpunkt anzeigen download Tabellenblattinhalt unter Weglassung einer Spalte als Textdatei download
ComboBoxes per VBA-Code in Tabellenblatt erzeugen download In einem zweiten Tabellenblatt vorgegebene Zeilen beschriften download
Diagramm exportieren und in Tabellenblatt importieren download Arbeitsmappen- und Tabellenblattnamen auslesen 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 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 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 Einen von einer Schlüsselziffer abhängigen Bereich kopieren download
Vorgegebene Anzahl von Einträgen in 2. Blatt kopieren download Über InputBox festzulegenden Bereich 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