Also - erstmal ... Fleshlight :-)
Ich muss sagen - sau gutes Gefühl. Vor allem nicht "soo eng". Ich habe mit meinen Maßen Probleme mit "1cm und dehnbar" bei anderen "Billigteilen". Hier - absolut nicht. 
Reinigung auch recht gut und einfach.

...zur Antwort

Gerade in einem Artikel gefunden:

"Dass Schlangen früher Beine hatten, beweisen nicht nur Fossilfunde, wie das einer Urschlange, welches Wissenschaftler in der Crato-Formation im Nordosten Brasiliens gefunden und im vergangenen Jahr im Fachmagazin „Science“ präsentiert hatten.

Auch Pythons und Boas haben heute noch Überreste ihrer Beine. Bei diesen Schlangen sieht man in der Embryonalentwicklung tatsächlich, dass das Sonic-Hedgehog-Gen noch immer existiert: In der frühen Entwicklungsphase im Ei hat der Schlangennachwuchs noch Beine und Zehen. Erst im Laufe der Entwicklung bis zum Schlüpfen werde diese wieder zurückgebildet.

Dass das Gen noch existiert, bedeutet auch, dass es theoretisch irgendwann wieder angeschaltet werden könnte – wenn es nur zu entsprechenden Mutationen käme. "

...zur Antwort
Wie kann ich bei VBA nach mehreren Kriterien in einer Zeile suchen?

Hallo zusammen.

Ich hab leider nix gescheites zu meiner Problemstellung gefunden, deshalb frage ich jetzt einfach mal direkt nach: Ich möchte in einer großen Tabelle nach mehreren Kriterien in der ersten Zeile suchen. In dieser Zeile sind Überschriften (aus einer .xml übernommen). Leider wiederholen sich die Überschriften ab und an, allerdings mit den unterschiedlichsten Ziffern als Anhängsel (zb AKMKaufteile, AKMKaufteile5, AKMKaufteile324...). Das wäre jetzt aber noch kein Problem, da ich ja normalerweise eh nur nach Teilen des Wortes suche. Ich habe allerdings auch Überschriften die ziemlich ähnlich sind und mit als Treffer gewertet werden so wie ich das mache (zb AKMKaufteileD34, AKMKaufteileB412... also immer entweder das D oder das B mit da drin, und diese Spalten brauche ich nicht).

Zusammengefasst möchte ich einfach nur die erste Zeile nach AKMKaufteile (das ohne D und B) suchen und auch die Zellen/Spalten haben, wo die Ziffern angehängt sind; es handelt sich dabei um Preise, bei D ist das Datum und B der Benutzername angegeben, letztere beiden sind uninteressant).

For i = 1 To 1000
   If InStr(1, Cells(1, i).Value, "AKMKaufteile") > 0 And InStr(1, Cells(1, i).Value, "AKMKaufteileB*") = 0 And InStr(1, Cells(1, i).Value, "AKMKaufteileD*") = 0 Then
      For j = 1 To 300
         If InStr(1, Cells(j, i).Value, "") > 0 Then
             Cells(j, i).Activate
              ActiveCell.Copy Destination:=Worksheets("Ergebnis").Cells(j, 10).Offset(1)
         End If
      Next j
         
   End If
Next i

(So klappt es leider nicht)

Vielen Dank für jeden Tipp der mich weiterbringt ::)

Gruß

Jan

...zur Frage

Die Sternchen sind der Fehler.
warum arbeitest du aber mit "i" statt mit "Sp" und "j" statt mit "Ze"? ist doch eindeutiger.
verstehe ich es richtig dass du in der inneren If-Abfrage prüfst, dass die Zelle nicht leer ist? Dann wäre "If Cells (Ze, Sp). Value <> Empty Then" ... kürzer
auch verstehe ich nicht warum du die Zelle kopierst, statt den Wert zu übertragen. dann musst du diese auch nicht aktivieren.

"Worksheets ("Ergebnis").Cells (Ze, 10).Value =Cells(Ze, Sp). Value" wäre dann der einzige Code in der Abfrage.
Das Offset weiß ich jetzt nicht richtig einzuschätzen... aber wenn zb das zwar in Zeile 10, aber in der "nächsten Spalte" der Originalspalte sein soll, muss man ja dann nur "Sp+1" setzen und gut. Weiß aber nicht, ob das in deinem Fall so geht.

Ich habe im Test die erste If-Abfrage für mich etwas übersichtlicher gestaltet.
Vielleicht ist ja was dabei, was dir gefällt:

Text="AKMKaufteile"
For Sp = 1 To 1000
TText = Mid (Cells (1, Sp), 13, 1
InText = InStr (1, Cells (1, Sp).Value, Text)
If InText > 0 And IsNumeric (TText) Then

so ist die Zeile nicht so lang :-)
TText merkt sich das nächste Zeichen hinter dem "Text". ist es KEIN Buchstabe geht's eben weiter.
InText prüft ob der 'Text' überhaupt vorkommt.

...zur Antwort

Angreifer/Befreier hat max. 3 Würfel
Verteidiger/Besatzer hat max. 2 Würfel

die jewils höheren Würfel werden gegeneinander gespielt.

zb A spielt mif 3 würfeln (6 3 2), V mit 2 würfeln (6 2)
jetzt werden die beiden 6er verglichen - der Würfel vom V ist bei Gleichstand IMMER stärker - der A verliert eine Figur.
danach werden nicht die 2er miteinander verglichen sondern sie 3 von A und die 2 von V. Die 3 ist höher - V verliert eine Figur. Hätte V eine 3 gewürfelt, hätte A beide Figuren verloren.

...zur Antwort

Keine Nervosität. bzw. auch dem Fahrlehrer erzählen falls du nervös bist. Dann kann er dich unterstützen.
Denke dran dass du das Auto kontrollierst und nicht umgekehrt. :-)
Und mache alles bewusst. Gurte dich bewusst an, stelle den Sitz/Spiegel bewusst ein. Starte den Motor bewusst und schalte bewusst. Bewege deine Hände und Füße bewusst. So verinnerlichst du die richtigen Vorgänge und kannst sie schneller aufrufen im kopf - so wie einer, der "Maschine schreiben" lernt. Erst langsam und bewusst und irgendwann klappt es ohne nachzudenken.

Evtl auch Verkehrsübungsplätze nutzen zum üben.

Viel Spaß

...zur Antwort

https://play.google.com/store/apps/details?id=com.ejelta.slitherlink.ads&hl=de

https://play.google.com/store/apps/details?id=de.h3games.barricade&hl=de

https://play.google.com/store/apps/details?id=dsgraham.pixart.android&hl=de

https://play.google.com/store/apps/details?id=com.magmamobile.game.SnakeAndApples&hl=de

https://play.google.com/store/apps/details?id=com.doodiebop.weave&hl=de

https://play.google.com/store/apps/details?id=com.iscoolentertainment.wordoxfree&hl=de

https://play.google.com/store/apps/details?id=com.bigduckgames.flow

https://play.google.com/store/apps/details?id=com.bigduckgames.flowbridges

https://play.google.com/store/apps/details?id=com.kiragames.unblockmefree

...zur Antwort
Weitere Inhalte können nur Nutzer sehen, die bei uns eingeloggt sind.