Zeile markieren in einem ausgewählten Bereich

Mitglied: Leprechaun

Leprechaun (Level 1) - Jetzt verbinden

15.11.2011 um 11:14 Uhr, 4043 Aufrufe, 4 Kommentare

Ich möchte im folgendem Makro ein vorher ausgewählten Bereich nach Datumsangaben prüfen und wenn das Ergebnis positiv ist, die Zelle markieren

Hallo,

ich habe die Aufgabe bekommen ein Makro zu erzeugen, welches mir ein Datumsangaben mit dem Real-Datum (also heute) vergleicht und mir, wenn eine bestimmte Voraussetzung erfüllt ist die Zeile markiert bzw. mir den Inhalt bestimmer Zellen der Zeile zum Beispiel in einer MessageBox ausgibt.

Folgende Code habe ich:

Sub Faelligkeitspruefung()

Dim V_Range As Range
Dim V_blnFound As Boolean
Dim i As Long
Dim V_FDatum As Range 'Integer
Dim Zeile As Long

Set V_FDatum = Application.InputBox("Bitte markieren sie die Spalte der Fälligkeitsdaten", Fälligkeiten, , , , , , 8)

For Each cell In V_FDatum
If IsDate(cell) Then
If DateDiff("d", Date, cell) < 7 Then
MsgBox cell
End If
End If

Next

Ich werde aufgefordert eine Spalte mit Fälligkeitsdaten zu markieren, diese Spalte wird überprüft nach Zellen, sofern dort ein Datum steht (If IsDate(cell) dann soll er die TagesDifferenz bilden zwischen dem Inhalt der Zelle (cell) und dem Tagesdatum, ist die Differenz kleiner 7 Tage

JETZT mein Problem:

Soll er die Zeile markieren, in der die Zelle ist mit der Differenz kleiner 7 Tage und bestimmte Angaben (die MsgBox gibt mir momentan das Datum der Zelle aus) ausgeben. Ich bekomme das markieren der Zeile nicht auf die Reihe.
Hat jemand von euch eine Ahnung?

Gruß,
Lep
Mitglied: 83928
83928 (Level 1)
15.11.2011 um 11:50 Uhr
Hoi,

Hat jemand von euch eine Ahnung?
mhm. ein bissl zumindest. Deklariere Deine Variablen. Dann wirds einfacher.

Gruß
Bitte warten ..
Mitglied: Leprechaun
15.11.2011 um 13:03 Uhr
Danke, das hat mir weitergeholfen. Mit dem Befehlt ActiveCell.EntireRow.Acvtivate konnte ich dann noch die ganze Zeile markieren. Jetzt muss ich nur noch den Inhalt bestimmter Zellen, wie zum Titel eines Dokuments ausgeben.
Bitte warten ..
Mitglied: 83928
83928 (Level 1)
15.11.2011 um 13:19 Uhr
die ganze Zeile markieren.

OK, hab wieder mal nicht richtig gelesen (dachte "Zelle markieren")

den Inhalt bestimmter Zellen, wie zum Titel eines Dokuments ausgeben

Wenn die auszulesenden Zellen in der Zeile stehen, die auch markiert ist, könntest Du es beispielsweise so machen:

Bitte warten ..
Mitglied: Leprechaun
15.11.2011 um 14:36 Uhr
Nun funktioniert es. Danke für die schnelle Antwort.
Bitte warten ..
Heiß diskutierte Inhalte
HTML
Ich brauche dringend Hilfe !
gelöst JulianpustVor 1 TagFrageHTML19 Kommentare

Hallo erstmal, ich habe großen Mist gebaut in der Firma wo ich gerade mal 2 Tage arbeite. Was ist passiert: Ich sollte von Gmail ...

LAN, WAN, Wireless
8 Geräte - verteilen oder auf einen Switch?
DoKi468Vor 1 TagFrageLAN, WAN, Wireless12 Kommentare

Hallo liebe Admins, eine kurze Frage: Ich habe hier eine FB 6190 Cable stehen sowie einen noch unmonitored switch mit 8 Anschlüssen. Momentan sieht ...

Windows Server
Server-Internetverbindung kurz trennen und wieder aktivieren
gelöst imebroVor 1 TagFrageWindows Server13 Kommentare

Hallo, wir haben im Moment fast täglich immer wieder Ausfälle unserer Internetverbindung. Unser Provider sagt, dass er kein Problem feststellen kann. Aber wenn vom ...

Netzwerke
Hardware-Firewall - NGFW - UTM für Privatgebrauch
LordVoodooVor 1 TagFrageNetzwerke7 Kommentare

Hallo liebe Community, seit mehreren Wochen beschäftige ich mich nun schon mit dem Thema Hardware-Firewall, ausgelöst durch Begriffe wie UTM / NGFW / Layer-7-DPI. ...

LAN, WAN, Wireless
"Ethernet verfügt über keine gültige IP-Konfiguration"
gelöst archITVor 12 StundenFrageLAN, WAN, Wireless18 Kommentare

Moin, folgendes Problem: Jedes mal, wenn ich meinen PC an mache, muss ich die Problembehandlung auf der Ethernet schnittstelle ausführen, dass ich Internet habe. ...

Hardware
Kabelfernsehen in anderen Raum "übertragen" ?
cramtroniVor 1 TagFrageHardware6 Kommentare

Guten Tag zusammen, ich hätte eine Frage und zwar gibt es in unserem Haus nur einen Kabelanschluss (Coax) für das Kabelfernsehen, nun hätte ich ...

Switche und Hubs
Ist bei einem kleinen Switch Rackmount Kit dabei?
CubeHDVor 1 TagFrageSwitche und Hubs5 Kommentare

Hallo, ich möchte den "HPE OfficeConnect 1420 16G Switch" kaufen. Der Switch hat 16 Ports und ich möchte diesen in einen Standard 19 Zoll ...

Microsoft
PDF editor mit spezieller exportfunktion
FlorianHeVor 11 StundenFrageMicrosoft9 Kommentare

Hi leute. Ich habe eine Frage. Bei uns in der Instandhaltung kommt es oft vor das wir änderungen an den Elektrischen Anlagen oder Mechanichen ...