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

Frage Entwicklung VB for Applications

Mitglied: Leprechaun

Leprechaun (Level 1) - Jetzt verbinden

15.11.2011 um 11:14 Uhr, 3905 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. ...

Entwicklung
AutoIT - Listbox ausgewählte zeile abfragen
gelöst Frage von pytreloocEntwicklung5 Kommentare

Hallo zusammen, ich habe folgendes Problem. Und zwar versuche ich in AutoIt eine Listbox so auszulesen dass wenn ich ...

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 ...

Neue Wissensbeiträge
Windows 10

Windows 10 v1709 EN murkst bei den Regionseinstellungen

Tipp von DerWoWusste vor 2 StundenWindows 10

Dieser kurze Tipp richtet sich an den kleinen Personenkreis, der Win10 v1709 EN-US frisch installiert und dabei die englische ...

Webbrowser

Kein Ton bei Firefox Quantum über RDP

Tipp von Moddry vor 2 StundenWebbrowser

Hallo Kollegen! Hatte das Problem, dass der neue Firefox bei mir auf der Kiste keinen Ton hat, wenn ich ...

Internet

EU-DSGVO: WHOIS soll weniger Informationen liefern

Information von sabines vor 14 StundenInternet4 Kommentare

Wegen der europäische Datenschutzgrundverordnung stehen die Prozesse um die Registrierung von Domains auf dem Prüfstand. Sollte die Forderungen umgesetzt ...

Verschlüsselung & Zertifikate

19 Jahre alter Angriff auf TLS funktioniert immer noch

Information von BassFishFox vor 21 StundenVerschlüsselung & Zertifikate1 Kommentar

Interessant zu lesen. Der Bleichenbacher-Angriff gilt unter Kryptographen als Klassiker, trotzdem funktioniert er oft noch. Wie wir herausgefunden haben, ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
Von rj11 auf rj45
Frage von jensgebkenLAN, WAN, Wireless19 Kommentare

Hallo Gemeinschaft, könnt ihr mir vielleicht bei der anfertigung eines Kabels helfen - habe ein rj 11 stecker und ...

Netzwerkmanagement
NAS über zwei weitere Ethernet Anschlüsse verbinden
gelöst Frage von Sibelius001Netzwerkmanagement17 Kommentare

Sorry - ich bin hier wahrscheinlich als kompetter IT Trottel unterwegs. Aber eventuell kann mir jemand ganz einfach helfen: ...

Netzwerkmanagement
Firefox Profieles im Roaming
gelöst Frage von Hendrik2586Netzwerkmanagement17 Kommentare

Hallo liebe Leute. :) Ich hab da ein kleines Problem, welches anscheinend nicht unbekannt ist. Wir nutzen hier in ...

LAN, WAN, Wireless
Häufig Probleme beim Anmelden in WLAN
Frage von mabue88LAN, WAN, Wireless15 Kommentare

Hallo zusammen, in einem Netzwerk gibt es relativ häufig (1-2 mal pro Woche) Probleme mit der WLAN-Verbindung. Zunächst mal ...