Microsoft Excel

Herbers Excel/VBA-Archiv

Spalte mit Datum suchen und Wert von Zeile kopiere | Herbers Excel-Forum


Betrifft: Spalte mit Datum suchen und Wert von Zeile kopiere von: Chris
Geschrieben am: 11.11.2009 13:35:14

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?

  

Betrifft: Spalte mit Datum suchen, Werte übertragen von: Erich G.
Geschrieben am: 11.11.2009 14:08:13

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


  

Betrifft: AW: Spalte mit Datum suchen, Werte übertragen von: Chris
Geschrieben am: 11.11.2009 14:42:00

Klappt perfekt! Vielen Dank.


Beiträge aus den Excel-Beispielen zum Thema "Spalte mit Datum suchen und Wert von Zeile kopiere"