Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1340to1344
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1340to1344
1340to1344
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA select then copy then paste

VBA select then copy then paste
27.12.2013 18:35:00
Paul
Hallo Leute,
ich hoffe Ihr könnt mir helfen. Ich möchte aus Tabelle 1 zunächst Spalte M nach dem Wert/Wort "Germany" durchsuchen, anschließend aus der Spalte AF den korrespondierenden Wert in Tabelle 2 Spalte F einfügen. Das ganze sollte möglichst über ein Command Button in Tabelle 2 laufen, da die Werte in Tabelle 1 erst reinkopiert werden müssen (manuell).
Ich kenne mich ein wenig in VBA aus, würde die Formel aber nicht alleine hinbekommen. Wäre sehr nett wenn Ihr mir eine Beschreibung reinpackt damit ein Lerneffekt dqbei ist :)
Viele Grüße
Paul

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA select then copy then paste
28.12.2013 09:11:05
Beverly
Hi Paul,
habe ich das richtig verstanden, dass in beiden Tabellen in Spalte "M" nach "Germany" gesucht werden soll? Versuche es mal so:
Sub Kopieren()
Dim rngQuelle As Range
Dim rngZiel As Range
With Worksheets("Tabelle2")
Set rngZiel = .Columns("M").Find("Germany", lookat:=xlWhole)
If Not rngZiel Is Nothing Then
Set rngQuelle = Columns("M").Find("Germany", lookat:=xlWhole)
If Not rngQuelle Is Nothing Then rngZiel.Offset(0, -7) = _
.Range(rngQuelle.Address).Offset(0, 19)
End If
End With
Set rngZiel = Nothing
Set rngQuelle = Nothing
End Sub
Gesucht wird in Tabelle2 Spalte M (Ziel) nach "Germany" - wenn gefunden, dann wird in Tabelle1 Spalte M (Quelle) gesucht nach "Germany" - wenn gefunden dann Wert in Zieltabelle Spalte F (7 Spalten links von M aus) = Wert aus Quelltabelle Tabelle1 Spalte AF (19 Spalten nach rechts von M aus).
Das Makro kannst du mit einem Schalter aus den Formularsteuerelementen verknüpfen.

Anzeige
Korrektur
28.12.2013 09:16:16
Beverly
Hi Paul,
sorry, der Code hatte noch einen Fehler - so müsste er jetzt korrekt sein:
Sub Kopieren()
Dim rngQuelle As Range
Dim rngZiel As Range
With Worksheets("Tabelle2")
Set rngZiel = .Columns("M").Find("Germany", lookat:=xlWhole)
If Not rngZiel Is Nothing Then
Set rngQuelle = Worksheets("Tabelle1").Columns("M").Find("Germany", lookat:=xlWhole)
If Not rngQuelle Is Nothing Then rngZiel.Offset(0, -7) = _
Worksheets("Tabelle1").Range(rngQuelle.Address).Offset(0, 19)
End If
End With
Set rngZiel = Nothing
Set rngQuelle = Nothing
End Sub

Anzeige
AW: Korrektur
29.12.2013 03:38:23
Paul
Hi Karin,
danke dir schonmal für die Formel und die Erklärung. Ich meinte er soll in Tabelle 1 in Spalte M die Werte Germany suchen. Dann in der Spalte AF die Werte kopieren und in Tabelle 2 Spalte F einfügen. Kein doppelcheck.
Die Formel funktioniert demnach nicht, ich hab versucht sie anzupassen, hat leider nicht geklappt.
VG
Paul

AW: Korrektur
29.12.2013 09:31:36
Beverly
Hi Paul,
und wie sollen die Werte eingefügt werden - immer an der selben Stelle oder fortlaufend? Kommt der Begriff "Germany" mehrfach oder nur einmalig vor in Tabelle1? Da musst du schon mal genauer beschreiben, was das Ergebnis sein soll - schließlich kenne ich deine Mappe nicht, denn ich lehne es ab, übers Internet auf fremde Rechner zu schauen ;-)
Übrigens: das ist keine Formel sondern ein Makro oder VBA-Code.

Anzeige
AW: Korrektur
29.12.2013 23:41:01
Paul
Hallo Karin/Beverly,
Der Wert Germany kommt in der Spalte M mehrmals vor, in Spalte AF stehen die eindeutigen Werte die ich untereinander/fortlaufend für jeden Germany Wert in Spalte F Tabelle 2 kopieren will.
VG
Paul

AW: Korrektur
30.12.2013 09:05:34
Beverly
Hi Paul,
Sub Kopieren()
Dim rngQuelle As Range
Dim strStart As String
Dim lngZeile As Long
lngZeile = 1
With Worksheets("Tabelle1")
Set rngQuelle = .Columns("M").Find("Germany", lookat:=xlWhole)
If Not rngQuelle Is Nothing Then
strStart = rngQuelle.Address
Do
Cells(lngZeile, 6) = .Range(rngQuelle.Address).Offset(0, 19)
lngZeile = lngZeile + 1
Set rngQuelle = .Columns("M").FindNext(rngQuelle)
Loop While Not rngQuelle Is Nothing And rngQuelle.Address  strStart
End If
End With
Set rngQuelle = Nothing
End Sub
Du siehst also, wie wichtig es ist, die Aufgabenstellung korrekt zu beschreiben, weil davon der Lösungsweg abhängig ist.

Anzeige

306 Forumthreads zu ähnlichen Themen

Copy Paste Problem mit VBA
Chris

Hallo Leute,
ich habe ein Makro geschrieben, das ein aus SAP gezogenes Spreadsheet in ein formatiertes Excel File umwandelt.
Jetzt taucht plötzlich folgendes Problem auf:
Ein String wird in Zelle "A1" geschrieben, der Buchstaben und steuercode enthält.
D.H. ich habe in dieser Ze...
08.08.2008 15:10:35
Thread-ID: 1000317
11 Beiträge
Anzeige
SaveCopyAs zerstört Formular?
Olaf Eichstaedt
Ich habe das Gleich gerade unter Windows 95 und mit meinem Excel 97SR2 probiert. Muss ich Euch verraten, dass es dort funktioniert, sprich keine misteriösen Fehlermeldungen produziert werden?
16.04.2002 22:06:23
Thread-ID: 113902
2 Beiträge
Hiiilfeeeee!!! SaveCopyAs - Fehler
Tobias

Hallöchen,
ich habe zwei echt nervende Fehler in meinem Code. habe ein relativ aufwendigen VBA - Code, deswegen kann ich den hier nicht komplett rein stellen. aber zu mindest bis zum ersten Problem kann ich ihn gern posten.
Also das Problem ist folgendes, ich habe eine Arbeitsmappe mit...
17.02.2010 16:24:54
Thread-ID: 1139210
2 Beiträge
Anzeige
SaveAs über VBA macht bei BeforeSave Probleme
norman

Hallo alle,
ich habe ein wirklich kniffeliges Problem, das bereits hier mal angegangen wurde (https://www.herber.de/forum/archiv/1144to1148/t1147360.htm und https://www.herber.de/forum/archiv/1144to1148/t1145651.htm, vielen Dank an dieser Stelle an Tino, entschuldige bitte, dass ich damals...
23.07.2010 17:21:36
Thread-ID: 1168218
11 Beiträge
Copy and Paste in Tabelle mit VBA erkennen
Helmut

Hallo,
kann ich über eine Ereignisprozdur erkennen, ob ein User in einer Tabelle manuell einen Bereich von A nach B kopiert oder ausgeschnitten hat.
Mich interessiert dann in VBA der Range der Quelle und der Range des Ziels, sobald das Ereignis eingetreten ist.
Danke im Voraus
H...
21.03.2011 15:17:35
Thread-ID: 1206677
7 Beiträge
SaveCopyAs-Methode
Iris

Hallo,
ich bräuchte dringend einen Rat. Ich möchte mithilfe eines Makros eine Kopie der aktuellen Datei erstellen. Das tut er auch. Leider funktionieren die Makros in der neu erstellten Datei nicht und die Symbolleiste, die sich sonst immer automatisch mit dem Programm öffnet, wird nicht ang...
12.05.2002 06:58:54
Thread-ID: 120235
2 Beiträge
VBA _pivate_sub save as
Volker

Hallo,
ich habe ein Problem beim Speichern einer Excel Datei. Habe ein Makro im Internet gefunden, dieses eingebaut, funktioniert wunderbar ABER jetzt wird bei jedem speichern das Dialogfeld "Save as" aufgemacht.
ISt es möglich hier eine Abfrage einzubauen, welche prüft ob der Dateinam...
25.04.2012 07:38:29
Thread-ID: 1260797
4 Beiträge
Ausschreiben von Dateien per VBA SaveAs
Dateien

Guten Morgen,
Hab ein kleines Problem und hab mich schon den ganzen Morgen durchs Internet geschlagen und auch viel hier gefunden, aber irgendwie wills bei mir nicht funktionieren ...
Hab mir hier zur Auswertung von Messdaten n kleinen Excel Tabellensatz erschaffen damit ich die Inputfi...
25.05.2012 11:57:01
Thread-ID: 1264893
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
10
3
1
1
3
10
6
1
3
4
1
3
1
3
5
1
3
4
4
2
2
2
2
6
1