0-36 VBA Tool nach Excel!

[Heiß75]

Schau mal

Bild einfügen für Code!

[Heiß75]

EDIT: Ausserdem darauf achten dass die UserForm nicht modal angezeigt wird. 'Modal' heisst alles wird gestoppt solange die UserForm aktiv ist, du kannst also nicht ins ExcelBlatt wechseln während die UserForm läuft.

Klappt ja,gut ich bin sprachlos!

Faustan

noch weiter aber Excel für Formelauswertung! Später Bild einfügen

[Heiß75]

Das ist Bild!

nur Formelauswertung ich weiß nicht finden!

über Serie anzahl EC 1,2,3,4,5,6,7,8er

Blatt : EC Serie nach EC-Serie Kurze kein Zelle Frei zusammen

Bitte mich helfe!

nur Formelauswertung Code

[Faustan]

Hmmm,

ich würde das Blatt 'EC-Serie' löschen, und alles im Blatt 'EC Serie' berechnen.

Im Blatt 'EC Serie':

1. Verschiebe Spalten B-I nach hinten zu K.

2. In A1 kommt dann:

=WENN(ZEILE(K1)>ANZAHL2(K:K);"";INDEX(K:K;KKLEINSTE(WENN(K$1:K$1000<>"";ZEILE($1:$1000));ZEILE(K1))))

Diese Formel nicht mit Enter-Taste abschliessen, sondern mit Strg+Umschalt+Enter. Es handelt sich nämlich um eine Matrixformel.

3. Spalte A1 markieren und den Inhalt rüberziehen bis Spalte H1.

4. A1 bis H1 markieren und runterziehen.

bearbeitet September 17, 2010 von Faustan

[Heiß75]

@Faustan

Excel mit zip einfügen!

ich mach kurz 1-50 wenig MB speicher.

Normalweisung Excel 1-1000 voll ca 10MB kann nicht für 3 MB.

Kurz.01f_rEC_Serie.zip

[Faustan]

Okay, hab's.

Hmm, bei mir gings. Bei dir im Blatt kommen Fehlermeldungen.

So, ganz rudimentär gelöst. Mit bedingter Formatierung: =istfehler(A1) dann weisse Schrift

bearbeitet September 17, 2010 von Faustan

[Heiß75]

ich habe auch,

Ich habe vor PN wegen Fehlermeldungen nicht klappt,

[Heiß75]

Kurz.01fürEC-Serie_edit.zip

Das ist dort!

fehler

Seite nicht gefunden!

[Faustan]

Oha,

ich merke aber gerade die Lösung ist saulangsam mit mehreren tausend Zahlen. Sorry.

Da muss man sich noch was anderes zusammenbasteln.

bearbeitet September 17, 2010 von Faustan

[Heiß75]

Schau mal auch nicht Downloader

haha

[Faustan]

 Hmm blöder Browser. Das lag nämlich nicht auf roulette-forum.de sondern bei mir aufm Server.

So, jetzt nochmal als Anhang hier. Sind 1000 Zeilen fertig vorbereitet.

EDIT: Anhang entfernt. Ist nämlich nicht mein ExcelBlatt, sondern Heiß75 seins. 

bearbeitet September 17, 2010 von Faustan

[Heiß75]

Besser ja, für Faustan

[Faustan]

Aber langsam.

Muss mich da nochmal mit google beratschlagen

[Heiß75]

@Faustan Moin

Ich habe probe 0-36 Button nach Tabelle1,auch Tabelle2,Tabelle3

Sheets(1 und 2,3)oder Sheets(??????)

Dim n As Long

For n = 2 To Cells(65356, 1).End(xlDown).Row

If Sheets(1).Cells(n, 1).Value = "" Then<<<<<<<<

Sheets(1).Cells(n, 1).Value = 0<<<<<<<<

Exit For

End If

Next n

Und Farbe Rot und Grün 1,3,5... 0 ???BackColor = vbRed / BackColor = vbGreen ????

[Faustan]

Moin,

öhm, ich weiss jetzt nicht ganz genau was du möchtest.

Sheets(1). schreibt in das erste Blatt (1). Entsprechend schreibt (2) ins Zweite und so weiter.

Cells(n, 1). bestimmt die Zelle (Zeile, Spalte). Also z.Bsp. Zelle(5, 5) wäre: Zeile 5, Spalte E.

Farben für Zellen definiere ich eigentl. nur über die 'Bedingte Formatierung'.

Zellformel ist

=Oder(A1=1;A1=3;A1=5...und so weiter.Für alle Roten..)

[Heiß75]

Farben für Zellen definiere ich eigentl. nur über die 'Bedingte Formatierung'.

Zellformel ist

=Oder(A1=1;A1=3;A1=5...und so weiter.Für alle Roten..)

Ich weiß ja.

Eingabe nach Spalte immer Schwarz Schrift!! Rot und Grüne

Bild einfügen

Später Sheets

[Faustan]

Ja,

dann markiere die komplette Spalte A (einfach oben auf A klicken), und gehe ins Menü unter "Format > Bedingte Formatierung".

Dort dann 'Formel ist' auswählen und eintippen:

=Oder(A1=1;A1=3;A1=5;A1=7;A1=9;A1=12;A1=14;A1=16;A1=18;A1=19;A1=21;A1=23;A1=25;A

=27;A1=30;A1=32;A1=34;A1=36)

Und dann den Button 'Format' drücken und die Schrift auf Rot umstellen.

Dann den Button 'Hinzufügen>>' drücken um eine zweite Bedingung zu erstellen, und diesmal für die grüne Zero

'Zellwert ist' 'gleich' 0

'Format' einstellen.

Fertig.

bearbeitet September 18, 2010 von Faustan

[Heiß75]

Hast du Richtig!

Klappt ja,ich bin

[Heiß75]

Mein Wünsche was ist so.

Beispiel: 2er Rot anzahl 1+1+1+1+1 dass 3 er Rot auf 0 neu anfang.

Bild einfügen

Formelauswertung ?? oder andere!

[Heiß75]

Wenn ich setze auf rot.

2 Rot dass setze auf Rot kommt Treffer Rot nach Gewinne!

[Faustan]

Hmmhmm,

das ist alles ein wenig schwer zu machen. Geht nur über Hilfspalten bzw. ein Arbeitsblatt im Hintergrund. Das kann ich dir jetzt hier auch schlecht erklären, wäre zu viel Text.

Ich denk' mal ich weiss was du möchtest. Dein Blatt habe ich ja noch hier, werde ich mal schauen.

[Heiß75]

Beispiel: 3x Rot oder 4xRot und über anzahl 1+1+1+1+1 dass 2x Rot auf 0 neu anfang.

2x Rot ich auf setze Schwarz kommt Schwarz Treffer Gewinne

Bild einfügen

[Heiß75]

@Faustan moin ,ich frage dich, ich will e-mail an icq?? Weil ich habe mache ein Desktop-Film ca 5 Minute zeige!mit avi.

[Faustan]

Moin,

e-Mail an ICQ geht nicht. Du müsstest dir zunächst ICQ installieren und dort ein Konto einrichten, und mich dann hinzufügen (Nummer steht im Profil). Dann kannste Dateien direkt versenden.

Alternativ kannst du die Datei auch bei einem sog. File-Hoster hochladen (megaupload, rapidshare, uploading.to ect). Dann brauchst mir nur den Link geben.

Link: Ältere ICQ 6.5 Version. (läuft schneller als die Neue, und weniger Schnickschnack)

[live-rouletter]

Ist das Tool nun fertig, würde gerne mal eine Kopie bekommen, ich such nämlich schon länger nach nem anständigen EC Tool.