Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1116to1120
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
Inhaltsverzeichnis

Spalte mit Datum suchen und Wert von Zeile kopiere

Spalte mit Datum suchen und Wert von Zeile kopiere
Zeile
Hi, folgendes Problem:
Ich möchte hinter eine Schaltfläche ein Makro legen, welches im Quellsheet 'Tabelle2' die Zeile 12 nach dem Vormonat (also: aktueller Monat - 1) durchsucht (Werte der Zeile 12 sind in der Datumsform z.B. 01.11.2009 und werden benutzerdefiniert dargestellt als MMM JJ).
Ist die Spalte mit dem Vormonat gefunden, dann soll das Makro den Wert aus Zeile 15 und 16 auslesen/kopieren und im Zielsheet 'Tabelle1' in die Zellen D52 und D53 einfügen.
Jemand eine gute Idee für den Code?

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Spalte mit Datum suchen, Werte übertragen
11.11.2009 14:08:13
Erich
Hi Chris,
vielleicht so:

Option Explicit
Sub Vormonatswerte()
Dim varZ ' as Variant
With Worksheets("Tabelle2")
varZ = Application.Match( _
CDbl(DateSerial(Year(Date), Month(Date) - 1, 1)), .Rows(12), 0)
If IsNumeric(varZ) Then
Worksheets("Tabelle1").Cells(52, 4) = .Cells(15, varZ)
Worksheets("Tabelle1").Cells(53, 4) = .Cells(17, varZ)
End If
End With
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: Spalte mit Datum suchen, Werte übertragen
11.11.2009 14:42:00
Chris
Klappt perfekt! Vielen Dank.
Anzeige

364 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige