Wissen, News, Stream und Download zu Something for Kate Echolalia help
Alles im Web finden: Videos, Software, Bücher, Dokumente, Wissenschaft, Nachrichten
Ich denke der Ansatz von stärkeren Kontrollen beim Import von Feuerwerk und das einrichten von breiten Verbotszonen in denen Feuerwerk nicht erlaubt ist sowie eine Feuerwerkssteuer könnten die Nutzung reduzieren und damit Unfälle verringern und die Umweltbelastung sowie Stress für Tiere und Menschen verringern. Alternativ wäre ein Verbot von privatem Feuerwerk der höheren Klasse (ab F1) sinnvoll. Erlaubt wären dann nur kleinere Kracher oder quasi Tischfeuerwerk oder nach Anmeldung. Erlaubt bleibt natürlich professionelles Feuerwerk oder eben nach einem Nachweis/Schulung sowie vorherigen Anmeldung eines privaten Feuerwerks mit F2 Kategorie. [+]
Politik, Umwelt, GesellschaftMassivholzmöbel sind in verschiedenen Stilrichtungen, sowie Formaten erhältlich und für alle Wohnflächen geeignet. Dabei handelt es sich bei jedem Möbelstück um ein Unikat, das eine einzigartige Maserung aufweist. Außerdem bringen Massivholzmöbel weitere Eigenschaften und Vorteile mit sich, die vor einer Anschaffung zu berücksichtigen sind. 57813 Massivholzmöbel und die Verarbeitung von Holz sowie Aufbau Während der Verarbeitung findet eine Trennung des Holzes in Lamellen und Stäbe statt. Diese werden anschließend nach ihrem Aussehen sortiert, aneinandergelegt und zu einer Platte verleimt. [+]
Haus, Garten, Tiere & PflanzenDie abenteuerliche Geschichte des Skateboarding und somit auch die Geschichte des Skateboards selbst ist relativ jung. Skateboards in ihrer heutigen Form gibt es gerade einmal seit den 1980er Jahren, die Ursprünge reichen bis in die 50er Jahre des letzten Jahrhunderts zurück. Hier soll ein kleiner Überblick über die Geschichte des Skateboardings geboten werden. 57463 Anfänge in den 1950er und 1960er Jahren Ende der 1950er, Anfang der 1960er Jahre adaptierten Surfer aus Kalifornien das schwimmende Surfbrett auf die Straße. Dazu montierten sie Achsen und Rollen von Rollschuhen an die Unterseite von teilweise stark verkleinerten Surfbrettern. [+]
Sport und FitnessHallo Forianer und Foresener, ich hab ne relativ triviale Frage, die ich auch durch Google recherche nicht wirklich zufriedenstellend beantworten konnte. ICh habe mehrere Zeugnisse, die ich einscannen muss und während die Zeugnisse als .png noch von einer durchaus überschaubaren Größe sind, eskaliert mir die Größe, sobald ich die Zeugnisse zur .pdf mache. (max 200kb als png bei 4 Seiten --> 13 mb als .pdf) Gibt's es überhaupt eine Möglichkeit, die Dateien kleinzuhalten, ohne signifikant an Qualität verlieren? Mir scheint, mir fehlt teilweise das Verständnis der Zusammenhänge. [+]
Grafikdesign und FotografieAustralische Wissenschaftler haben die Nashi-Birne, welche aus Asien stammt, einmal genauer untersucht. Dabei entdeckten sie, mehrere positive Gesundheitseffekte welche durch den Verzehr der Früchte auftreten: Sie wirken Cholesterinspiegel senkend, wirken verdauungsfördernd und entzündungshemmend. Zu guter letzt hat der Saft der Nashi noch eine weitere attraktive Wirkung: Trinkt man ihn vor dem Alkoholgenuss, fällt der Kater am nächsten Morgen deutlich geringer aus. 55778 Die Studie zeigt, dass alle Symptome eines Katers geringer ausfielen. Die eine Hälfte der Probanden trank dabei zunächst 220ml Nashi-Birnen-Saft, während die andere Hälfte wie gewohnt nur Wasser oder Tee trank. [+]
Tech NewsSuchergebnisse: Something for Kate Echolalia help
And Now for Something Completely Different: Woran kann man erkennen, welcher der 8 Cosmiq-Moderatoren gerade Dienst hat?
Wie soll man dann wissen wer gerade im Dienst ist?
Bei der Gelegenheit meinen Dank an jeden Moderator für die Arbeit.
die Liste kennst Du ja bereits. Beim Durchklicken musst Du schauen, welcher Moderator gerade das grüne Lämpchen im Profilbild an hat.
Eine andere Möglichkeit, sollte mal keiner der Moderatoren online sein, ist eine mail an unseren Support info@cosmiq.de
Dibashi
Moderator5
COSMiQ
Da muß man Guidelines anklicken, dann FAQ anklicken. Ihr müßt prominenter werden!
Wie Du schon gesagt hast: Auf beobachten stellen.
Dann ist es doch nur: Mein Netzwerk > beobachtet > alle anzeigen
Also nix schwierig zu finden.
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
Power Point 2013 Testversion! NEED HELP
Wenn nein, könnt ihr mir bitte ieine Seite sagen wo man power point ohne den Product Key runterladen kann? -.-
Meint er es Ernst? help
Das habe ich letztens gefragt. Auf eine Antwort hin habe ich ihm einfach genau das geschrieben und er hat mit geschworen dass er es Ernst meint aber jetzt ist er zurückhaltender weil er es schade findet dass ich sowas von ihm denke. Was denkt ihr? Was soll ich tun?
Ihr habt euch noch nie getroffen oder kennt euch noch nicht persönlich, oder?
Ich finde, dass er es nicht ernst meint bzw nur so lange darauf wartet, bis er mit dir geschlafen hat und ist dann wieder weg.
Wenn er es wirklich ernst meinen würde, dann hättet ihr euch schon viel früher getroffen und er hätte darauf bestanden. Ansonsten meint er es nicht wirklich ernst.