Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Zeile markieren in einem ausgewählten Bereich

Mitglied: Leprechaun

Leprechaun (Level 1) - Jetzt verbinden

15.11.2011 um 11:14 Uhr, 3952 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
15.11.2011 um 11:50 Uhr
Hoi,

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

01.
MsgBox "Zeile: " & cell.Row & "; Spalte: " & cell.Column 
02.
cell.Select
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
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:

01.
Debug.Print Cells(ActiveCell.Row, 5).Value 'Wert von Spalte 5 ausgeben
Bitte warten ..
Mitglied: Leprechaun
15.11.2011 um 14:36 Uhr
Nun funktioniert es. Danke für die schnelle Antwort.
Bitte warten ..
Ähnliche Inhalte
VB for Applications

Bereich Markieren und Kopieren (Verständnis)

gelöst Frage von Gimli3311VB for Applications4 Kommentare

Guten Tag Zusammen, ich hab ein Verständnisproblem was das Thema angeht einen Bereich zu markieren und dann zu kopieren. ...

VB for Applications

Ausgewählten Bereich eines Excel Dokumentes per email verschicken

gelöst Frage von Edd1ngVB for Applications7 Kommentare

Sehr geehrte Damen und Herren User. Ich würde gerne einen ausgewählten Bereich einer Excel Tabelle als email verschicken. Dabei ...

Microsoft Office

Excel Transpose Funktion nur in ausgewählten Zeilen anwenden

gelöst Frage von cyber40014Microsoft Office3 Kommentare

Hallo Allerseits, Irgendwie stehe ich gerade auf dem Schlauch. Vielleicht kann mir ja hier jemand weiterhelfen. Vorab: Ich würde ...

Batch & Shell

Per Batch in ausgewählte oder vorgeschriebene Zeile einer .txt schreiben

gelöst Frage von pdiddoBatch & Shell6 Kommentare

Morgen Leute, vor lauter Bäumen sehe ich den Wald nicht mehr. Ich möchte, dass meine 1.bat in die erste ...

Neue Wissensbeiträge
Datenschutz

Microsoft und DSGVO - ob das wohl jemals klappt (Probleme beim Datenabfluss für Office Pro Plus)?

Tipp von VGem-e vor 53 MinutenDatenschutz

Servus Kollegen, siehe Aber wer setzt schon MS Office Pro Plus ein? Wie dann der Stand beim "normalen" MS ...

Windows 10

Macht Windows 10.1809 Probleme mit gemappten Netzlaufwerken (betrifft wohl insbes. AMD-Hardware und Trend Micro AV-Produkte)?

Tipp von VGem-e vor 5 StundenWindows 101 Kommentar

Moin Kollegen, grad dazu gefunden und Hatten wir dies nicht bei früheren W10-Upgrades ebenfalls? Da bleibt nur, das Upgrade ...

Humor (lol)

Das neue Miniatur Wunderland OFFICIAL VIDEO - worlds largest model railway - railroad

Information von StefanKittel vor 17 StundenHumor (lol)1 Kommentar

Hallo, wer noch nie im Miniatur Wunderland war, sollte es dringend mal nachholen. Es gibt eine neues Video. Viele ...

Exchange Server

Exchange 2010-2019 Sicherheitslücke durch Regkey löschen schließen

Information von sabines vor 1 TagExchange Server1 Kommentar

Unter ist eine Lücke im Exchange 2010-2019 beschrieben, die durch das Löschen eines reg keys geschlossen werden kann. In ...

Heiß diskutierte Inhalte
Java
Testautomatisierung
gelöst Frage von WPFORGEJava16 Kommentare

Hallo, nehmen wir an, es gibt eine Webseite mit einer Karte und einem Suchfeld. Nun wird in das Suchfeld ...

Viren und Trojaner
Office365 Trojaner Analyse
Frage von ZeppelinViren und Trojaner13 Kommentare

Liebe Community, ich wende mich an euch, um mehr über den Office365 Trojaner zu erfahren, welcher grade seine Runden ...

Netzwerkgrundlagen
Werksreset HP 1920S-24G
gelöst Frage von HenereNetzwerkgrundlagen13 Kommentare

Servus zusammen, ich habe mir 2 neue Switche zugelegt, doch ich komme damit nicht ganz klar. Waren Vorführgeräte zum ...

Firewall
Sophos UTM 9.5 Firewall Log-File durchsuchen
gelöst Frage von Leo-leFirewall12 Kommentare

Hallo zusammen, weiß jemand von Euch, ob man bei der Sophos die Firewall logs noch etwas besser filtern kann? ...