Wissen, News, Stream und Download zu D4L Down for Life help
Alles im Web finden: Videos, Software, Bücher, Dokumente, Wissenschaft, Nachrichten
Outlook.com leidet seit Gestern unter einer Reihe von Ausfällen, nachdem es gestern mehrmals ausgefallen war. Hacktivisten, die als Anonymous Sudan bekannt sind, behaupten, DDoS-Angriffe auf den Dienst durchzuführen. Diese Ausfälle folgen auf zwei bedeutende Ausfälle gestern, die weltweit zu erheblichen Störungen für Outlook-Benutzer führten, indem sie Benutzern weltweit das zuverlässige Abrufen oder Senden von E-Mails und die Verwendung der mobilen Outlook-App verweigerten.58011 Outlook-Benutzer haben sich auf Twitter beschwert, dass der unzuverlässige E-Mail-Service ihre Produktivität beeinträchtigt. [+]
NetzweltHaben Sie iOS 16 Beta schon installiert? Haben Sie nach der Installation von iOS 16 Beta einige Fehler auf Ihrem iPhone? Viele Nutzer mit der iOS 16 Beta haben Probleme mit nicht kompatiblen Apps und damit einer sehr schlechten Akkulaufzeit. Wenn Sie Fehler mit Ihrem iPhone haben, können Sie iOS 16 Beta auf iOS 15 downgraden. Nach der offiziellen Ankündigung von iOS 16 auf der WWDC 2022 am 6. Juni kennen wir nun die wichtigsten Funktionen, die das neue Betriebssystem hat. Allerdings werden die Nutzer das iOS 16-Update erst im September 2022 auf ihren Geräten erhalten können. iOS 16 Beta iOS 16 Beta ist eine frühe experimentelle Version der Systemsoftware, die Entwicklern zur Verfügung steht. [+]
Apple iOSMoin, grad ist Facebook, Whatsapp, Instagram wieder online gegangen. Weltweit waren die Dienste down. Totalausfall: Facebook, Instagram und Whatsapp sind down Auf Twitter hat hier jemand ein bisschen beleuchtet was das Problem sein könnte. (siehe Anhang) Mich wundert es sehr, dass so ein mächtiger Konzern sich so selbst ins Knie schießen kann. Was das gekostet hat und wie es ausgelöt wurde steht noch in den Sternen. Es darf spekuliert werden. :lachen: FB-Aktie hat wohl schon 6% verloren... [+]
Netzweltheutzutage darf man sich ja nichtmal mehr treffen und saufen, deshalb hier. jeder zeigt was er säuft. ich säufe das: www1.xup.in/tn/2021_04/71245682. [+]
Humor & FunSeit heute morgen 31.12.2020 gegen 9:00 Uhr, zack und schon ist Rapidgator.net down. Entweder haben die Betreiber selber alles vom Netz genommen oder sie haben es vom Netz genommen bekommen, von wem auch immer. Da aber anders als bei Share-Online, keine nette Nachricht hinterlassen wurde, hat man sich wohl selbst vom Netz genommen. Pech jetzt wer gerade sein Jahresabo verlängert hat und wer viel hauptsächlich auf deren Server gehostet hat. Irgendwie haben es die Spatzen ja schon lange von den Dächern gepfiffen, da da was im Busch sein soll. Nichts genaues wusste man aber nicht. Die Spatzen und auch der Busch sind weg. [+]
FilesharingSuchergebnisse: D4L Down for Life help
Minecraft Fehler: The Authentication servers are currently down for mintenance?
Router neustart bringt nichts
neu anmelden bringt nichts
Minecraft neu installieren bringt nichts.
was kann ich noch tun um den fehler zu beheben? für
ARMA 3 Mod "Altis Life" ruckelt sich einen ab und reagiert spät HELP
Prozessor: Intel Core i5 - 3230M CPU @ 2.60GHz 2.60GHz Installierter Arbeitsspeicher : 4,00 GB
Grafikkarte: Intel HD Graphics 4000 und NVIDIA GeForce GTX 660M
Ich hoffe die Daten sind ausreichend damit ihr mir helfen könnt, und ,
Wie heißt das Lied? I wanna let you down, let you down again. gesungen von einer Frau. Wunderschönes Liebeslied. please Help
PH D - I Won't Let You Down - YouTube das ist der link dazu
For Steuervariabel wird bereits verwendet! was bedeutet das?
ich habe mit hilfe con einigen "gutefrage.net" usern einen code geschrieben und versuche jzt durch "Copy-Paste" es für jede Zelle anzuwenden.
Beim For-Befehl kommt immer folgende Meldung "For Steuervariabel wird bereits verwendet"
was bedeutet das? heißt es, das man das "For" nur einmal in einem code gebrauchen kann? wäre vielleicht ein "GoTo" befehl angebrachter?
hier ist der code:
sub kopieren()
Dim Zelle As Range Dim Wert As Variant
Wert = ActiveSheet.Range("J16:j29")
With Sheets("Tabelle2""F6:G6")
If ("J16"
Or "J16")
Or "J16" Then
Zelle.Value = ActiveSheet.Range("J17")
Else
Zelle.Value = ActiveSheet.Range("J16")
With Sheets("tabelle2")
For Each Zelle In.Range("H6:I6")
If ("J17"
Or "J17")
Or "J17" Then
Zelle.Value = ActiveSheet.Range("J18")
Else
Zelle.Value = ActiveSheet.Range("J17")
End If End With End If Next Zelle End With End Sub
schonmal für eure Tatkräftigen Hilfen
Du hast ZWEI For-.Next-Schleifen ineinander geschachtelt, das ist möglich, und kein Problem.
Allerdings nutzt Du bei der zweiten Schleife die gleiche Variable, nämlich "Zelle" wie in der übergeordneten.
DAS ist der Fehler.
Schreibe in die ERSTE Zeile:
sub kopieren()
Dim Zelle As Range Dim Zelle2 As Range Dim Wert As Variant
UND dann in die zweite Schleife,
For Each Zelle2 In.Range("H6:I6")
.
Zelle2.Value = ActiveSheet.Range("J18")
.
Zelle2.Value = ActiveSheet.Range("J17")
.
Dann sollte es klappen.
ODER?
P.S.: Ich habe den Code nicht weiter überprüft (fehlt da vlt. noch ein Next?, dann "Next Zelle2".)
Habe leider keine Zeit mehr, muss zur Arbeit.
Melde Dich wenn es noch Probleme gibt.
Ich sehe gerade, die Schleifen müssen nicht unbedingt geschachtelt sein, dann reich vlt. auch:
.
Zelle.Value = ActiveSheet.Range("J16")
Next Zelle
With Sheets("tabelle2")
.
Also die erste Schleif abschließen, dann die zweite starten. DAS kannst Du mit EINER Variablen machen.
ich habe es so eingefügt wie du gesagt hast, siehe code :
Sub Kopieren()
Dim Zelle As Range
Dim zelle2 As Range
Dim Wert As Variant
Wert = ActiveSheet.Range("J16:j17")
With Sheets("Tabelle2")
For Each Zelle In.Range("F6:G6")
If ("J16"
Or "J16")
Or "J16" Then
Zelle.Value = ActiveSheet.Range("J17")
Else
Zelle.Value = ActiveSheet.Range("J16")
With Sheets("Tabelle2")
For Each zelle2 In.Range("H6:G6")
If ("J17"
Or "J17")
Or "J17" Then
zelle2.Value = ActiveSheet.Range("J18")
Else
zelle2.Value = ActiveSheet.Range("J17")
End If
Next Zelle
End With
Next zelle2
End Sub
Beim ausführen des Codes erscheint folgende Meldung :
"ungültiger Verweis auf Next Steuervariable"
habe ich da was übersehen oder vergessen?
habe meinen Fehler entdeckt,
statt :
Next zelle1
next Zelle2
Next Zelle3
musste ich :
next zelle3
next zelle2
next zelle1
hinschreiben, sprich alles umgekehrt. weiß zwar nicht ganz warum der Befehl so geschrieben werden soll aber es funktioniert
1000 DANK! newb
1.
WAS sollen diese beiden Zeilen:
Dim Wert As Variant Wert = ActiveSheet.Range("J16:j17")
Macht keinen Sinn, und würde wohl auch nicht funktionieren.
2.
Einmal: With Sheets("Tabelle2")
genügt.
3.
Du hast die beiden For Next Schleifen geschachtelt, ich denke das macht hier keinen Sinn.
4.
So würde der Code zumindest laufen:
Sub Kopieren()
Dim Zelle As Range
Dim zelle2 As Range
With Sheets("Tabelle2")
For Each Zelle In.Range("F6:G6")
If ("J16" _
Or "J16") _
Or "J16" Then
Zelle.Value = ActiveSheet.Range("J17")
Else
Zelle.Value = ActiveSheet.Range("J16")
End If
Next Zelle
'''''''''''''''
For Each zelle2 In.Range("H6:G6")
If ("J17" _
Or "J17") _
Or "J17" Then
zelle2.Value = ActiveSheet.Range("J18")
Else
zelle2.Value = ActiveSheet.Range("J17")
End If
Next zelle2
End With
End Sub
Allerdings passiert direkt noch nichtst, Du weist nur den beiden Variablen Zelle und zelle2 Werte zu.
Ich denke, was Du damit machen willst kommt dann wohl noch.
Gehe den Code mal mit F8 Step by Step durch.
fürs ☆
die Schleife endet da wo "Next Zelle" steht beantwortet das deine frage?
Please Help me modify my Macro
I have the following macro :Option Explicit Private strList() If strTMP = "" Or Left = ":" Then Exit Sub SearchFiles strTMP, "*.*" 'adapt If lngCount = 0 Then MsgBox "No file found" Exit Sub End If With ThisWorkbook.Worksheets.Cells.Clear.Range1, 2lngCount, 2)strList.Cells, CellsstrDir"A:B""Shell.Application"0, "Folder", &H10, 17strFolder As String, strFileName As String"Scripting.FileSystemObject"strFolderlngCountlngCountlngCountlngCount) = strFolder & "\" lngCount = lngCount + 1 End If Next For Each objFolder In objFSO.GetFolder.Subfolders SearchFiles strFolder & "\" & objFolder.Name, strFileName Next End Sub Public Sub Make_Link(1"B" &.Rows.CountxlUplngRow, 2lngRow, 1lngRow, 2) If strTMP = "" Or Left = ":" Then Exit Sub SearchFiles strTMP, "*.*" 'adapt If lngCount = 0 Then MsgBox "No file found" Exit Sub End If With ThisWorkbook.Worksheets.Cells.Clear.Range1, 2lngCount, 2)strList.Cells, CellsstrDir.Cells, CellsstrDat"A:B""Shell.Application"0, "Folder", &H10, 17strFolder As String, strFileName As String"Scripting.FileSystemObject"strFolderlngCountlngCountlngCountlngCountlngCount) = strFolder & "\" strDat = objFile.Datelastmodified lngCount = lngCount + 1 End If Next For Each objFolder In objFSO.GetFolder.Subfolders SearchFiles strFolder & "\" & objFolder.Name, strFileName Next End Sub Public Sub Make_Link(1"B" &.Rows.CountxlUplngRow, 2lngRow, 1lngRow, 2*3 ist leider nicht möglich
Das makro gibt quelle und dateiname eines ausgewählten ordners und seiner unterordner aus. ich brauch in zeile C noch das passende Änderungsdatum. Der Befehl dürfte lauten: DateLastModified
Die Newsgroups wurden wie es ausschaut leider geschlossen.
Als ich Probleme hatte wurde mir in den Newsgroups schnell und kompetent weitergeholfen.
Ein Link zum Einstieg ins Forum: Microsoft Community
Re: Wie kann ich das Speicherdatum in eine Tabellenzeile einfügen?
unexpectedly this µ has worked once but I couldn't reproduce. Even copying and saving in a general module under another name didn't work: The altered title of the µ didn't shine up in the list and starting it via the green triangel didn't work. .
But perhapps you will find qualified help there