Ich habe diesen Code in meinem Bericht als Datensatzquelle angegeben. Allerdings bekomme ich keine Ausgabe in meinem Bericht. Wenn ich die selben Daten als Abfrage starte und über die Parameterabfrage von Access treffe, werden mir die richtigen Daten ausgegeben. Kann es sein, dass Access meine Datumseingabe von den zwei Textboxen nicht erkennt?

...zur Antwort

https://www.dropbox.com/sh/mvq9grje2wo2kkp/AACOTm08dv6D3rKi3xSXuMRca?dl=0

Hier ein Link zu den Bilder. Ich könnte es leider nicht über die App hochladen.

...zur Antwort

Hat keiner ne Antwort? 

...zur Antwort

Habs schon gefunden :)

The str_replace() function replaces some characters with some other characters in a string.

try something like this:

$x->str_replace("_normal","",$x)
Danke trotzdem an alle die helfen wollten:)
...zur Antwort

Hach Ja, 
ne Runde in der Stadt rumlaufen, drei Kaffee getrunken, nochmal rangesetzt und zack funktioniert es beim ersten Versuch. 
Für alle die es noch brauchen.

start "IMM" %imm% -quality 50 "%%a" -path g:\hier\jetzt\dein\pfad "%%a"

Danke für alle Antworten.

p.s. kann ich mir eig selber nen Stern geben :P

...zur Antwort

irgendwie hats die Formatierung nicht übernommen
AM besten in ein Programm wie Notepad++ reinkopieren =) 

...zur Antwort

Warum startest du die Konsole nicht einfach über das GUI wenn jemand dran sitzt?

Gruß John

...zur Antwort

EIn Glitch ist ein Fehler in einem Spiel zu deinem Vorteil. Also zb bei Battlefield gabs es mal den Fehler, dass wenn du an einen bestimmten Punkt der Map gegangen bist, dich keiner mehr abschießen konnte.

Dass ist ein Glitch

...zur Antwort

Hier nochmal der Code:

Option Explicit

Sub Neuer_Monat()

Application.ScreenUpdating = False


Dim inZeile As Integer
Dim inMonat As Integer
Dim inTage As Integer


'x = InputBox("Eingabe des Startdatums", "Neuen Monat anlegen", Datum)
'Range("A53").Value = Datum
'Anzahl Tage des aktuellen Monats
'AnzTage = DateSerial(Year(x), Month(x) + 1, 1) - DateSerial(Year(x), Month(x), 1)  'Auslesen des Datums der Inputbox
'Range("W2").Value = AnzTage   'Anzeige des Datums in Zelle W2

If IsDate("01." & Range("R1") & "." & Range("Y1")) Then
inMonat = Month("01." & Range("R1") & "." & Range("Y1"))
Select Case inMonat
Case 1, 3, 5, 7, 8, 10, 12
inTage = 31
Case 4, 6, 9, 11
inTage = 30
Case 2
If Range("Y1") Mod 400 = 0 Then
inTage = 29
ElseIf Range("Y1") Mod 100 = 0 Then
inTage = 28
ElseIf Range("Y1") Mod 4 = 0 Then
inTage = 29
Else
inTage = 28
End If
End Select

'Zellen mit Werten füllen
For inZeile = 3 To inTage + 3
Cells(3, inZeile) = inZeile - 3
Cells(4, inZeile) = Format(CDate(Cells(4, inZeile) & "." & Range("R1") & "." & Range("Y1")), "ddd")

Next inZeile

    Else
'       B11 und A11 ergeben keinen Datumswert
        MsgBox "Bitte ein Monat und Jahr korrekt eingeben", vbCritical, "Achtung!"
    End If
'   Bildschirmaktualisierung ein
    Application.ScreenUpdating = True

End Sub
    
...zur Antwort

Mach es bitte nicht. Die Augen sind sehr empfindlich. Nicht auszuschließen, dass da irgendwas angegriffen wird.

...zur Antwort

Was hast du denn genau vor ? Mikrofon Aufnahme und dann auf dem PC bearbeiten ?

...zur Antwort

Garnicht und das ist auch gut so. Das ganze nennt sich Datenschutz, und wäre Müll. Oder fändest du es gut, wenn dein Chef wüsste, dass du mit dem Chef der Konkurierenden Firma schreibst, oder die Eifersüchtige Freundin kontrolliert, mit welchen Leuten du schreibst?

...zur Antwort