Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1772to1776
1772to1776
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Werte übertragen

Forumthread: VBA - Werte übertragen

VBA - Werte übertragen
07.08.2020 15:15:51
Fritz_W
Hallo Forumsbesucher,
ich bitte um Unterstützung der VBA-Kundigen in folgender Angelegenheit:
Ich möchte Daten aus dem Tabellenblatt "Tabelle1" in das Tabellenblatt "Auswertung" wie folgt übertragen:
Das Makro sollte ermitteln, welche Zeile der Spalte C von "Auswertung" der gleiche Text wie Zelle H1 der Tabelle1 beinhaltet. In diese Zeile der Tabelle "Auswertung soll in die
Spalte D der Zellinhalt der Zelle V2 aus Tabelle 1
Spalte E der Zellinhalt der Zelle V3 aus Tabelle 1
Spalte F der Zellinhalt der Zelle W3 aus Tabelle 1 und
Spalte G der Zellinhalt der Zelle X3 aus Tabelle 1
eingefügt (kopiert) werden.
Für eure Hilfe besten Dank im Voraus.
mfg
Fritz
Anzeige

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Werte übertragen
07.08.2020 15:54:24
Bernd
Soll immer exakt die Zelle V2,V3, W3 und X3 übernommen werden oder sind diese auch dynamisch?
Also ist in Tabelle1 nur die erste Zeile H1 wichtig? oder auch andere (H2,H3...)?
Eine kleine Beispieltabelle wäre hilfreich, da ich nicht weiß ob nach Text, Zahlen oder was auch immer gesucht werden soll. Vergiss es. Wer lesen kann, sieht das du Text geschrieben hattest.
Gruß
Bernd
Anzeige
AW: VBA - Werte übertragen
07.08.2020 16:28:03
Fritz_W
Hallo Bernd,
zunächst vielen Dank.
Zu Deinen Fragen: Keine der relevanten Zellen ist dynamisch. Nur die Spalte C der Tabelle "Auswertung enthält Formeln, die zu kopierenden Zellen handelt es - da hast Du Recht - entgegen meiner Formulierung ausschließlich Zahlenwerte. Text ist Tabelle1 Zelle H1 und die Spalte C aus Auswertung (Formelergebnis)
Die Originaldatei als Beispiel ist für den Upload zu groß, aber ich hoffe, dass Du mit diesen Erläuterungen klar kommst. Andernfalls noch mal nachfragen. Auf jeden Fall vielen Dank.
mfg
Fritz
Anzeige
AW: VBA - Werte übertragen
07.08.2020 20:24:35
Werner
Hallo,
sorry, aber das hier: Die Originaldatei als Beispiel ist für den Upload zu groß, aber ich hoffe, dass Du mit diesen Erläuterungen klar kommst
kommt, bei mir zumindest, so an:
Du willst Hilfe, der Aufwand deine Datei auf die entsprechende Größe zu reduzieren und hier zur Verfügung zu stellen, ist dir aber zu groß.
Hier darf ich auch gerne noch mal auf den fetten, roten Hinweis zu dem Thema "Beispielmappe" aufmerksam machen, der beim Erstellen eines Beitrages nicht zu übersehen sein dürfte.
Teste mal: 
Public Sub Übertrag()
Dim wsQ As Worksheet, wsZ As Worksheet, raFund As Range
Set wsQ = Worksheets("Tabelle1")
Set wsZ = Worksheets("Auswertung")
Application.ScreenUpdating = False
If wsQ.Range("H1")  "" Then
With wsZ
Set raFund = .Columns("C").Find(what:=wsQ.Range("H1"), LookIn:=xlValues, lookat:= _
xlWhole)
If Not raFund Is Nothing Then
wsQ.Range("V2:V3").Copy
.Range("D" & raFund.Row).PasteSpecial Paste:=xlPasteAll, Transpose:=True
wsQ.Range("W3:X3").Copy .Range("F" & raFund.Row)
Else
MsgBox "Fehler: Der Suchbegriff " & .Range("H1") & " wurde nicht gefunden."
End If
End With
End If
Application.CutCopyMode = False
Set wsQ = Nothing: Set wsZ = Nothing: Set raFund = Nothing
End Sub
Gruß Werner
Anzeige
AW: VBA - Werte übertragen
07.08.2020 21:18:34
Fritz_W
Hallo Werner,
du hast Recht, aber es ist nicht meine Absicht euch Helfern die Arbeit unnötig zu erschweren.
Ich hatte gehofft, dass die Beschreibung meines Anliegens nachvollziehbar ist, aber künftig werde ich im Zweifelsfall versuchen, das durch eine Beispielmappe zu verdeutlichen.
Dein Code funktioniert wie gewünscht und Du hast mir damit sehr geholfen und das zum wiederholten Mal, nochmals ganz lieben Dank.
Ich hoffe, dass ich auch künftig diese großartige Hilfe von Dir und von den anderen Excel-Könnern in diesem Forum wieder in Anspruch nehmen kann, ich weiß das ganz sicher zu schätzen.
LG
Fritz
Anzeige
Gerne u. Danke für die Rückmeldung. o.w.T.
07.08.2020 21:36:24
Werner
@Werner
09.08.2020 11:42:47
Fritz_W
Hallo Werner,
ich hätte doch noch eine Bitte an Dich:
Könntest Du mir den Code so anpassen, dass die Formatierungen in der Zieltabelle "Auswertungen" beibehalten werden?
LG
Fritz
AW: @Werner
09.08.2020 12:27:55
Werner
Hallo,
dann das hier: 
wsQ.Range("W3:X3").Copy .Range("F" & raFund.Row)

durch das hier ersetzen: 
wsQ.Range("W3:X3").Copy
.Range("F" & raFund.Row).PasteSpecial Paste:=xlPasteAll
Gruß Werner
Anzeige
AW: @Werner
09.08.2020 13:49:53
Fritz_W
Hallo Werner,
vielen Dank für Deine erneute Unterstützung.
Ich hab das Deinem Vorschlag entsprechend geändert, die Formatierung aus der Tabelle1 werden aber in die Tabelle "Auswertungen" nach wie vor mit übernommen.
LG
Fritz
AW: @Werner
09.08.2020 13:57:31
Werner
Hallo,
uuups, falsch gelesen, du willst die Daten ja ohne Formatierungen übernehmen.
Dann das 
Paste:=xlPasteAll

ändern in 
Paste:=xlPasteValues
Gruß Werner
Anzeige
AW: @Werner
09.08.2020 14:11:16
GerdL
Moin 
Public Sub Uebertrag()
Dim wsZ As Worksheet, raFund As Range
Set wsZ = Worksheets("Auswertung")
With Worksheets("Tabelle1")
If .Range("H1")  "" Then
Set raFund = wsZ.Columns("C").Find(what:=.Range("H1"), _
LookIn:=xlValues, lookat:=xlWhole)
If Not raFund Is Nothing Then
wsZ.Range("D" & raFund.Row).Resize(1, 4) = _
Array(.Range("V2"), .Range("V3"), .Range("W3"), .Range("X3"))
Else
MsgBox "Fehler: Der Suchbegriff " & wsZ.Range("H1") _
& " wurde nicht gefunden."
End If
End If
End With
Set wsZ = Nothing: Set raFund = Nothing
End Sub

Gruß Gerd
Anzeige
AW: @Werner
09.08.2020 14:25:41
Fritz_W
Hallo Werner,
vielen Dank, so funktioniert es!
LG
Fritz
AW: @Werner
09.08.2020 14:27:16
Fritz_W
Hallo Gerd,
perfekt, auch Dir vielen Dank für die Unterstützung.
LG
Fritz
Gerne. o.w.T
10.08.2020 18:12:06
Werner
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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