Hallo, Ich habe mal eine Frage bezüglich einem Glasfaseranschluss.

Ich habe Heute erfahren das die unsere ganze Straße eigentlich Glasfaser hat, nur unser Haus steckt seit Jahren im Zeitalter der Großartigen Kupferleitungen fest!

Unser Haus ist ca 100 Meter von der Straße entfernt, und deswegen wird kein schneller Anschluss angeboten, nur für max. 20 Meter auf Privatem Grund kann man Glasfaser "kostenlos" legen lassen. Es bis zu unserem Haus zu verlegen würde ca 3.000€ kosten. Deswegen habe ich mal nachgedacht, wäre es möglich das Kabel 20 Meter in Richtung Haus zu verlegen, dann dort ein Wasserdichten Ort machen, so einen kleinen Kasten z.B, dort den Glasfaserrouter einbauen und den Rest mit einem 100 Meter langen LAN-Kabel selber verlegen?

Am Telefon hieß es das Kabel muss professionell und sicher verlegt werden etc. wegen Gesetzen und Haftungen, mit einem Rohr drum herum etc.
Aber das liegt dann ja nicht mehr am Anbieter wenn dann am LAN-Kabel was kaputt geht, sondern an uns.

Also, vielleicht kennt sich da ja jemand aus, wäre es möglich einen Router "im freien" zu bauen und dann ein LAN-Kabel selber zum Haus zu verlegen?

Moin moin, Mein GTA Online konto wurde gesperrt und alle Charaktere zurückgesetzt (so steht es da wenn ich joinen will) Meine frage ist jetzt wenn ich mir das Spiel auf Instant Gaming neu hole krieg ich ja einen Rockstar besätigungs-code Den kann ich ja auf einem anderen Social club profil anmelden dann hab ich ja ein neues Konto und dass sollte ja nicht ausgeschlossen (gebannt oder gesperrt) sein. Oder? und dann muss ich mich ja nur aussloggen auf dem Account wo ich gebannt bin und auf dem neuen einloggen und den Code eingeben dann sollte es doch funktionieren oder?

Ich habe eine Anleitung aus dem Internet für ein Zahlen generator kopiert

Dim Zahl As Integer 'zufallsgenerierte Zahl Dim Counter As Integer 'Zähler der Versuche

Private Sub btn_click_Click()

Dim Eingabe As Integer 'Eingegebene Zahl

'Zufallszahl generieren If Zahl = 0 Then Zahl = Int((Rnd() * 100) + 1) End If

'geschätzte Zahl eingeben Eingabe = tb_eingabe.Value

'Gültigkeitsprüfung If Eingabe > 100 Or Eingabe < 1 Then MsgBox ("Bitte geben Sie eine Zahl zwischen 1 und 100 ein!") tb_eingabe.Value = "" Else 'Richtige Eingabe If Eingabe = Zahl Then Cells(Counter + 2, 1) = Eingabe Cells(Counter + 2, 2) = "geschätzte Zahl richtig!"

    'Abfrage zum erneuten Spielen
    Abfrage = MsgBox("Richtig! Gebrauchte Versuche: " & Counter + 1 & vbLf & "Wollen Sie noch einmal spielen?", vbYesNo)
    If Abfrage = vbNo Then
        Application.Quit
    Else
        Columns("A:B").Select
        Selection.ClearContents
        Range("A1").Select
        ActiveCell.FormulaR1C1 = "geschätzte Zahl"
        Range("B1").Select
        ActiveCell.FormulaR1C1 = "Tipp"
        Range("A2").Select
        Zahl = 0
        Counter = 0
        tb_eingabe.Value = ""
        Exit Sub
    End If
End If

'eingegebene Zahl ist größer
If Eingabe > Zahl Then
    Cells(Counter + 2, 1) = Eingabe
    Cells(Counter + 2, 2) = "geschätzte Zahl zu groß"
    tb_eingabe.Value = ""
    Counter = Counter + 1
End If

'eingegeben Zahl ist kleiner
If Zahl > Eingabe Then
    Cells(Counter + 2, 1) = Eingabe
    Cells(Counter + 2, 2) = "geschätzte Zahl zu klein"
    Counter = Counter + 1
    tb_eingabe.Value = ""
End If

End If

End Sub

als Fehler kommen Die anweisung ist in einem Namespace ungültig wenn ich rauf klicke markiert er

Dim Zahl As Integer Dim Counter As Integer

Private Sub btn_click_Click()

(ganz oben) kann mir wer den code richtig machen?

Achtung, in Ihrem Land kann dieses Spiel nur per VPN aktiviert werden (welche wir nicht leifern).
steht wenn man auf Kaufen klickt bei instant gaming produkt cod mw2 was heißt das?