Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
24.05.2018 09:54:37 |
Nadine |
|
|
|
24.05.2018 10:09:40 |
Gast66556 |
|
|
|
24.05.2018 10:11:04 |
Gast81371 |
|
|
VBA Datum suchen und dazugehörigen Wert einfügen |
24.05.2018 10:17:40 |
Nadine |
|
|
|
24.05.2018 10:18:17 |
Nadine |
|
|
|
24.05.2018 10:32:58 |
Gast66518 |
|
|
|
24.05.2018 10:41:11 |
Nadine |
|
|
|
24.05.2018 10:41:46 |
Gast13415 |
|
|
|
24.05.2018 15:27:34 |
Gast37973 |
|
|
Von:
Nadine |
Datum:
24.05.2018 10:17:40 |
Views:
547 |
Rating:
|
Antwort:
|
Thema:
VBA Datum suchen und dazugehörigen Wert einfügen |
Hallo,
ja leider wurde der Code beim absenden zusammengezogen, obwohl ich ihn mit Leerzeichen eingefügt habe.
Die Range (B50:Ak50) ist der Text der dann kopiert und eingefügt werden soll. Allerdings soll nur 1 Wert kopiert werden, der unter dem Datum vom Vortag steht.. nicht die komplette Zeile wie von mir angegeben.
Set bereichs = ws1.Rows(1)
datum = ws2.UsedRange
Set zelles = Suchen(Bereich:=bereichs, Wert:=datum)
ws2.Range("B50:AK50").Copy
zelles.Offset(1, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Function Suchen(Bereich As Range, Wert As Date) As Object
Dim zelle As Range
For Each zelle In Bereich.Cells
If Wert = zelle.Value Then
Set Suchen = zelle
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
24.05.2018 09:54:37 |
Nadine |
|
|
|
24.05.2018 10:09:40 |
Gast66556 |
|
|
|
24.05.2018 10:11:04 |
Gast81371 |
|
|
VBA Datum suchen und dazugehörigen Wert einfügen |
24.05.2018 10:17:40 |
Nadine |
|
|
|
24.05.2018 10:18:17 |
Nadine |
|
|
|
24.05.2018 10:32:58 |
Gast66518 |
|
|
|
24.05.2018 10:41:11 |
Nadine |
|
|
|
24.05.2018 10:41:46 |
Gast13415 |
|
|
|
24.05.2018 15:27:34 |
Gast37973 |
|
|