Ich habe seit ein paar Tagen unter dem fingernagel des Mittelfingers eine gelbliche verfärbung.. Ich habe Angst, dass es vielleicht eine nagelbettentzündung ist bzw sein könnte. Aber an wen wendet man sich da? Hausarzt? Hautarzt? Oder doch gleich Krankenhaus? Ich muss dazu sagen, ich bin chronisch herzkrank. Vielleicht kann mir einer helfen, einen Rat geben oder hat Tipps..

Danke im voraus

Hallo Community,

ich habe schon eine ähnliche Frage aufgemacht, habe aber schon an meinem Code weitergearbeitet und daraus ergibt sich eine neue Frage, die für euch Profis bestimmt einfach zu beantworten ist.

Also hier erstmal mein Code:

Dim actualDate As Date actualDate = Date Dim maxRow As Integer maxRow = Sheets("Kunden").Cells(Rows.Count, 1).End(xlUp).Row + 1


Dim firstPruef As Date Dim LastPruef As Date Dim months As Integer


For currentRow = 2 To maxRow


firstPruef = Cells(currentRow, "S") LastPruef = Cells(currentRow, "T") months = Cells(currentRow, "L") If actualDate > DateAdd("m", Val(months), firstPruef) > LastPruef Then MsgBox Cells(currentRow, "T").Value, , "Meldung" Cells(currentRow, "T").Value = Date


End If


Next currentRow

End Sub

Wenn ich das Makro ausführe passiert einfach nichts, also keine Fehlermeldung oder so.

Jetzt noch zur Erklärung:

Ich habe 3 Daten, das aktuelle Datum, das Datum der ersten Prüfung und das Datum der letzten Prüfung.
Außerdem habe ich ein Feld in dem die Anzahl der Monate bis zur nächsten Prüfung enthalten sind.

Ich möchte nun alle Spalten meiner Tabelle durchgehen und für jede Spalte herausfinden, ob es wieder Zeit für eine Prüfung ist. Also if aktuelles Datum > Datum Erste Prüfung + X Monate > Letzte Prüfung

Ich hoffe es ist jetzt verständlicher.

Liebe Grüße

Chris

Servus Freunde, ich sitze zurzeit an einem Makro mit dem ich bestimmte Daten vergleichen will.

Also als Beispiel habe ich eine Excel Tabelle mit folgenden Daten:

1. Erste Prüfung (Datum)
2. Zeitraum bis neue Prüfung (Zahl z.B. 12 [Monate])
3. Letzte Prüfung (Datum)

So nun möchte ich herausfinden ob, seit dem letztem öffnen der Excel Datei, eine neue Prüfung fällig ist.

Mein Pseudocode sieht aktuell so aus, jedoch habe ich keinen Schimmer wie ich das in VBA umsetzen kann:

Schleife die durch alle Zeilen läuft

Schleife für X Jahre

if Aktuelles Datum > Datum Erste Prüfung + X*(Zeitraum bis neue Prüfung) > Letzte Prüfung

Then Letzte Prüfung = Aktuelles Datum und MSGBox

Beispiel:

Aktuelles Datum: 25.03.2018
Erste Prüfung: 22.05.2014
Zeitraum: 12 Monate
Letzte Prüfung: 14.02.2017

-> Erste Prüfung + 3*12Jahre = 22.05.2017

Aktuelles Datum > 22.05.2017 > Letzte Prüfung

In diesem Fall müsste also eine neue Prüfung durchgeführt werden und das Datum der letzten Prüfung auf aktuelles Datum setzen.
Das Makro soll immer beim Öffnen der Excel Datei ausgeführt werden und dafür habe ich folgendes benutzt:

Private Sub Workbook_Open()
call "Automatic" 
End Sub

Automatic soll das Makro sein wo später die Datumsprüfung durchgeführt wird.

Allerdings bekomme ich zurzeit noch einen Syntax Fehler für das automatische Makro ausführen.

Ich hoffe ihr konntet mir irgendwie folgen. Bei Fragen stehe ich natürlich gern zur Verfügung.

Servus Leute,

ich möchte einen Serienbrief mit Word und Excel erstellen.

Ich habe zwei Word Vorlagen erstellt, eine für die Menschen die ich Duzen möchte und eine Vorlage für Leute die ich siezen möchte.

In der Excel Datenbank gibt es ein Feld für Duzen, dieses ist entweder mit einem x gefüllt oder leer. Anhand dieses Feldes soll jetzt entschieden werden, ob ich für die Person die Sie oder Du Vorlage brauche.

Außerdem gibt es ein Feld für Weihnachten, dass auch mit einem x gefüllt sein muss.

Also Bedinung für Du Vorlage: Duzen = x und Weihnachten = x und die Bedingung für die Sie Vorlage: Duzen ungleich x und Weihnachten = x

Im Prinzip würde ich jetzt die Du Vorlage öffnen, dort alle Briefe erstellen und anschließen das selbe mit der Sie Vorlage machen. Mit Hilfe der Regeln möchte ich bezwecken, dass keine Person zwei Briefe bekommt, also einmal mit Sie und einmal mit Du.

Die Frage ist jetzt wie mach ich das mit den Regeln?

Die Vorlage für den Du-Brief sieht wie folgt aus:

«Anrede» «Vorname», Ich wünsche Dir und Deiner Familie schöne Weihnachtstage und für das Jahr 2017 Glück, Gesundheit und viel Erfolg! «Persönlicher_Gruß_zu_Weihnachten»

Die Felder Anrede, Vorname und Persönlicher Gruß sind natürlich auch in der Excel Tabelle eingetragen.

Servus Leute.

Ich habe 2 Excel Dateien. Datei A enthält Namen. Datei B enthält Namen und Stunden und ein Feld für die Art der Stunde (Unterscheidung ob Ortstermin, oder Aktenarbeit usw.)

Die Namen die in Datei B auftauchen gibt es auch in Datei A. So habe ich mir ein Klassenmodul "Auftrag" erstellt und und alle möglichen Klassenvariablen hinzugefügt die ich brauche.

Nun laufe ich die beiden Excel Dateien durch, und wenn ein Name in A und B vorkommt, dann wird ein neues Member Objekt erzeugt. Wenn man jetzt B weiter durchläuft und es schon ein Member Objekt mit dem Namen gibt der als nächstes kommt, dann werden nur die Stunden aufaddiert.

So das hat soweit auch alles ganz gut geklappt.

Nun wollte ich aber noch für die verschiedenen Stundentypen Klassenvariablen erstellen. Als Beispiel hat ein Mitarbeiter für einen Kunden 10 Stunden gemacht. 2 Stunden Aktenstudium, 2 Stunden Vorbereitung, 3 Stunden Ortstermin, und 3 Stunden Recherche. Ich möchte also die Stunden nicht als gesamtes darstellen (10 Stunden) sondern die Stunden für die einzelnen Bereiche. Diese Bereiche sind vordefiniert und es gibt 5 verschiedene, also habe ich 5 neue Klassenvariablen zu meinem Klassenmodul hinzugefügt.

Er gibt keine Fehler aus, dass einzige Problem ist, dass er die Stunden nicht richtig zusammenrechnet und ich weiß nicht wieso. Also die Werte für: Vorbereitung, Aktenstudium, Termin, Recherche und Gutachten sind am Ende nicht richtig.

Der Fehler muss m.E. zwischen den Zeilen 115 und 162 liegen.

https://pastebin.com/NNMs0LEw

Servus Leute,

ich habe einen Code geschrieben der nicht funktioniert. Aber ich verstehe nicht wieso. Also in besagter Excel Tabelle steht in Spalte A immer ein Name und in Spalte B ein Zeitnachweis.

Nun möchte ich alle member Objekte die ich erzeugt habe durchlaufen und prüfen, ob die Member Variable Name mit irgendeinem Namen aus der Excel Spalte A gleich ist. Wenn das der Fall ist soll der Wert aus der passenden Spalte B in eine andere Member Variable gespeichert werden.

So sieht mein Code aus:

Dim strPath As String
 strPath = "C:\Users\Christopher Goihl\Desktop\AutomatisierteRechnungsstellung\Final\AuftragsverzeichnisMitMakro2.xlsm"


   Dim workbooks3 As Object
   Dim sheet3 As Worksheet
   Set workbooks3 = Workbooks.Open(strPath)
   Set sheet3 = workbooks3.Worksheets(3)
   Dim maxRow As Long
   maxRow = sheet3.Cells(sheet3.Rows.count, "A").End(xlUp).row

For each member in Members
 For row = 1 To maxRow
 If member.Name = sheet3.Cells(row, 1) Then
 MsgBox (member.Name & " hat noch Stunden aus Vormonat!")
 vormonat = sheet3.Cells(row, 2)
 member.Zeit = member.Zeit & vbNewLine & vormonat
 End If
 Next row
Next member

Hallo Community,

ich habe ein Makro geschrieben, das auf eine Excel-Datei zugreift. Der Pfad für die Datei steht in meinem Makro drin und ist als String abgespeichert.

Ich möchte aber, weil sich der Name der Excel Datei von Monat zu Monat ändert, dass sich ein Fenster öffnet über das man die richtige Excel Datei auswählt und das dann den Pfad zu dieser Datei in meinem Makro speichert.

Also nicht so wie es bis jetzt ist, dass der Pfad von anfang an drin steht, sondern so dass beim ausführen des Makros ein Fenster geöffnet wird wo man selbst die Datei und somit den Pfad auswählen kann.

Liebe Grüße

Chris

Hallo Liebe Community, ich bin dabei für die Uni ein Projekt zu bearbeiten bei dem ich eine Website mit HTML, CSS und Javascript erstellen soll. Der Inhalt der Website interessiert für meine Frage nicht.

Ich habe eine Navigation Bar erstellt und in dieser befindet sich eine Filtereinstellung als Drop Down Menü für eine google Map.

Ein möglicher Filter ist z.B. "Freier Eintritt", nun möchte ich wenn der Benutzer diesen Filter anklickt den Inhalt von "Freier Eintritt" auf "Freier Eintritt + ein Font Awesome Icon" . Wie ich das Icon einbinde weiß ich, ich möchte also wissen wie ich den Text vom Anchor Tag im Beispiel "Freier Eintritt" und "Hohe Bewertung" beim draufklicken verändern kann.

Mein Codeschnipsel: http://abload.de/image.php?img=daddadnvu3h.png

Hallöchen,

Ich habe mal wieder eine Frage zum Thema VBA in Excel. Und zwar habe ich ein Makro geschrieben, dass die aktuell markierte Zeile nimmt und in die letzte Zeile eines anderen Tabellenblatts einträgt. Das funktioniert so weit auch ganz gut. Nun möchte ich, in der eben eingefügten Zeile alle Zellen umranden. (Range= Rance(Cells(Last,"A"),Cells(Last,"U")))

Mein Code: http://paste2.org/U5yt4X4w

Ich hoffe mir kann jemand helfen und bedanke mich jetzt schonmal für eure Mühen :)

Liebe Grüße