Live-Forum - Die aktuellen Beiträge
Datum
Titel
01.05.2024 23:29:22
Diagramm Beschriftung und mehrere Datenreihen
01.05.2024 17:27:45
Lieferschein Nummer Automatisch generieren
01.05.2024 15:25:58
Zeilen in Excel löschen
01.05.2024 14:07:28
Mit VGA in Intelligente Tablle Überschrift finden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1592to1596
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
1592to1596
1592to1596
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Datum suchen und dort in Spalte Wert einfügen

VBA Datum suchen und dort in Spalte Wert einfügen
05.12.2017 14:44:59
Lisa
Liebes VBA Team, ich hoffe Ihr könnt mir helfen!
Ich habe zwei Dateien, Datei A und Datei B
Datei A:
E2: Datum
E3: bestimmter Wert, der in andere Datei B eingefügt werden soll
Datei B
Zeile 5: Viele Verschiedene Datums-Angaben
Zeile 6: Wert aus E3 soll eingefügt werden, in bestimmte Spalte
Ich hätte jetzt gerne, dass das Makro den Wert aus Datei A, E2 in der Datei B, Zeile 5 sucht.
Wenn der Wert z. B. in G5 gefunden wird, dann soll in G6 (Datei B)der Wert aus E3 (Datei A)eingetragen werden.
Geht sowas? Ich habe nämlich bisher ein Makro gehabt, dass immer den Wert in die nächste freie Zelle eingetragen hat. Ist allerdings nicht meine optimale Lösung. Würde mich über Rückmeldung freuen!!!!
Ich hoffe, Ihr könnt mir helfen.
Viele Grüße :)

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Datum suchen in Spalte Wert einfügen
05.12.2017 16:09:13
Bernd
Servus Lisa,
z.B. so?

Sub Uebertrag()
Dim wbQ As Workbook
Dim wbZ As Workbook
Dim strZPfad As String
Dim Datum As Date
Dim Wert
Dim intLSZ As Integer
Dim rngSuche As Range
Dim intHit As Integer
strZPfad = "C:\test\Ziel.xlsx" ' Dateipfad der Zieldatei
Set wbQ = ThisWorkbook
Datum = wbQ.Sheets(1).Cells(2, 5).Value
Wert = wbQ.Sheets(1).Cells(3, 5).Value
Set wbZ = Workbooks.Open(strZPfad)
With wbZ.Sheets(1)
intLSZ = .Cells(5, Columns.Count).End(xlToLeft).Column
Set rngSuche = .Range(.Cells(5, 1), .Cells(5, intLSZ))
intHit = .Range(rngSuche.Address).Find(what:=Datum, LookIn:=xlValues, lookat:=xlWhole). _
Column
.Cells(6, intHit).Value = Wert
End With
wbZ.Close True
Set wbZ = Nothing
Set wbQ = Nothing
End Sub
Grüße, Bernd
Anzeige

401 Forumthreads zu ähnlichen Themen

Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Anzeige
In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
Letzter Wert einer Spalte (Matrixformel)
{mskro}

Hallo Excelaner,
ich benötige mal wieder eine Hilfestellung.
Es soll der Wert in einer Spalte angezeigt werde, der in der untersten Zeile steht.
Mittels der Recherche habe ich nun folgende MatrixFormel erstellt:
=INDEX(Z1:Z5000;MAX(WENN(Z1:Z5000"";ZEILE(1:5000)));1)
Nur wird...
28.08.2008 09:59:21
Thread-ID: 1005303
9 Beiträge
Anzeige
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Spalte nach Schlüsselwörtern auswerten
Mumber

Hallo Experten,
brauche dringend Eure Unterstützung.
Ich würde gerne im Rahmen einer Auswertung eine bestimmte Spalte (Text) mittels VBA nach bestimmten Schlüsselwörtern durchsuchen lassen und bei Treffer eine dem Schlüsselwort entsprechende Kategoriebezeichnung in anderer Spalte (glei...
08.09.2008 11:31:00
Thread-ID: 1008091
5 Beiträge
Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Text in anderer Datei suchen, kopiertes rechts ein
Rudolf

Hallo an alle, bin neu hier und benötige Hilfe.
Wie kann ich in Spalte A einen Text z.B. K1 (Kommt immer nur 1x vor) suchen.
Das aus anderer Datei kopierte dann rechts in Sp. C gleiche Zeile einfügen,
so das Range("C45").Select wegfallen kann.
Ich hätte dann die Möglichkeit bel...
12.09.2008 15:29:00
Thread-ID: 1009393
15 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
1
5
4
8
4
3
7
4
2
14
4
2
2
20
7
4
4
2
6
4
6
6
12
11
3