Collapse column

Beiträge anzeigen

Diese Sektion erlaubt es dir alle Beiträge dieses Mitglieds zu sehen. Beachte, dass du nur solche Beiträge sehen kannst, zu denen du auch Zugriffsrechte hast.


Nachrichten - Thobs

Seiten: [1]
1
Excel / http-Request in ein ein If-statement einfügen.
« am: Januar 25, 2017, 23:34:51 Nachmittag »
Hallo zusammen,

ich würde gerne folgendes http-Request in ein ein If-statement einfügen.

Function httpRequestVacation(url As String, maId As String, startDate As String, endDate As String) As String
Dim request As Object
Set request = CreateObject("WinHttp.WinHttpRequest.5.1")
request.SetTimeouts 1000, 1000, 1000, 1000
request.Open "GET", url & "? ma=" & maId & "&start=" & startDate & "&end=" & endDate
request.Send
httpRequestVacation = request.ResponseText
End Function

Und zwar als Folge, also
If … Then
http-request

Kann ich das http-Request direkt in das If-statement einfügen, und wenn ja, wie? Oder wie kann ich es sonst einbauen?

Vielen Dank für eure Hilfe!

2
Excel / Antw: VBA: erneutes ausführen des Makros in neuer Zeile
« am: Januar 25, 2017, 23:32:47 Nachmittag »
Vielen Dank für eure Hilfe  :)
Hat geklappt :)

3
Excel / Antw: VBA: erneutes ausführen des Makros in neuer Zeile
« am: Januar 24, 2017, 19:16:00 Nachmittag »
Hat jemand von euch Ideen wie das funktioniert ? Vielen dank für eure Hilfe :)

4
Excel / VBA: erneutes ausführen des Makros in neuer Zeile
« am: Januar 24, 2017, 16:59:13 Nachmittag »
Hallo zusammen,
 

Ich habe bisher in Excel programmiert, dass das aktuelle Datum beim klicken auf einen Makro Button in die Zelle B7 eingefügt wird und dann in die nächste Zeile springt.
Ich möchte aber dass bei erneutem klicken auf den Button das neue aktuelle Datum in der nächsten Zeile erscheint (also in B8 und dann B9 usw.).

Das habe ich bisher programmiert:

Sub DatumSetzen()
Dim lngZeile As Long
Dim lngSpalte As Long

lngZeile = 7
lngSpalte = 2

ActiveSheet.Cells(lngZeile, lngSpalte).Activate
ActiveCell.Value = Date & ", " & Format(Time, "hh:mm")
Dim Zeile As Long
ActiveCell.Offset(1, 0).Select

End Sub


MFG Thobs

Seiten: [1]