Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
984to988
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
984to988
984to988
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Jeannie für Arme *gg*

Jeannie für Arme *gg*
22.06.2008 19:24:04
Reinhard
Hallo Wissende,
in einem anderen Excelforum funktioniert Jeannie nicht. Deshalb bastelte ich mir Vba-Code der so wie Jeannie einen markierten Zellenbereich einer Tabelle samt Formeln usw. in die zwischenablage schickt, sodaß man dann mit Strg+V dies bequem in den beitrag im anderen Forum erscheinen lassen kann.
Da dort nur ganz wenige html-Tags erlaubt sind kann man da nix buntig machen usw. deshalb ließ ich das weg.
Weiterhin bastelte ich mir dann Code, der bei Jeannie eindeutig fehlt, womit ich mit meinem Code gepostete Tabellen wieder Zellengenau samt Formeln usw. wieder in eine Exceltabelle schaufeln kann.
Von der Grundidee her ist ja mein Ansatz super. Alle hier posten Tabellenauschnitte samt Formeln nur mit meinem Code, alle potentiellen Helfer müssen dann nur die gepostete Tabelle markieren, Strg+C und dann mit dem anderen Code dies in eine leere tabelle einfügen und haben ein Abbild der tabelle, samt Formeln usw.
Das wäre eine gute zeitersparnis beim nachstellen von Excelproblematiken einer tabelle *find*
Leider zerhackt mir der parser von Hans die Darstellung wenn ich mehr als eine Spalte nehme:-(
Bei nur einer Spalte liefert mein Code diese Ansicht hier im Forum:

Tabellenblatt: [Mappe2]!Tabelle1
│ A │
──┼───┤
1 │ 1 │
──┼───┤
2 │ 1 │
──┼───┤
3 │ 3 │
──┼───┤
4 │ 4 │
──┼───┤
5 │ 5 │
──┼───┤
6 │ 6 │
──┴───┘
Benutzte Formeln:
A2:  =B1
A1:A6
haben das Zahlenformat: Standard
Bedingte Formatierung(en):
A3: 1.te Bedingung: Formel ist =WENN("Türkei gewinnt gegen Deitschland";"Schlecht";"Gut")
Bei erfüllter Bedingung wird die Zelle A3 mit dem Colorindex 5 eingefärbt

Tabellendarstellung erreicht mit dem Code in FAQ:2363
Gruß
Reinhard
nehme ich aber mehrere Spalten sieht das leider so aus:


Tabellenblatt: [Mappe2]!Tabelle1
│ A │ B │ C │
──┼───┼───┼── _
9472;┤
1 │ 1 │ 1 │ 1 │
──┼───┼───┼── _
9472;┤
2 │ 1 │ 1 │ 0 │
──┼───┼───┼── _
9472;┤
3 │ 3 │ 3 │ 3 │
──┼───┼───┼── _
9472;┤
4 │ 4 │ 4 │ 4 │
──┼───┼───┼── _
9472;┤
5 │ 5 │ 5 │ 5 │
──┼───┼───┼── _
9472;┤
6 │ 6 │ 6 │ 6 │
──┴───┴───┴── _
9472;┘
Benutzte Formeln:
A2:  =B1
B2:  =C1
C2:  =D1
A1:C6
haben das Zahlenformat: Standard
Bedingte Formatierung(en):
A3: 1.te Bedingung: Formel ist =WENN("Türkei gewinnt gegen Deitschland";"Schlecht";"Gut")
Bei erfüllter Bedingung wird die Zelle A3 mit dem Colorindex 5 eingefärbt
B3: 1.te Bedingung: Formel ist =WENN("Türkei gewinnt gegen Deitschland";"Schlecht";"Gut")
Bei erfüllter Bedingung wird die Zelle B3 mit dem Colorindex 5 eingefärbt
C3: 1.te Bedingung: Formel ist =WENN("Türkei gewinnt gegen Deitschland";"Schlecht";"Gut")
Bei erfüllter Bedingung wird die Zelle C3 mit dem Colorindex 5 eingefärbt

Tabellendarstellung erreicht mit dem Code in FAQ:2363
Gruß
Reinhard
Der Code der diese Anzeige erzeugt ist die Sub Excel2W_W_W im gleichnamigen Modul. Die anderen Module sind uninteressant.
In dieser Datei: https://www.herber.de/bbs/user/53266.xls
Jetzt würde ich gerne wissen was ich machen kann damit mein Code auch hier bei Hans läuft.
Und, w-w-w ist ein kleines Forum, ABSOLUT unnötig daß da einer der Profis von hier dort auftaucht, dann hab ich ja dort nix mehr zu tun :-))
Danke ^ Gruß
Reinhard

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Jeannie für Arme *gg*
23.06.2008 04:21:26
fcs
Hallo Reinhard,
der Parser arbeitet hier scheinbar nicht zeichen- sonder byte-weise wenn überlange Zeilen abgeschnitten werden.
Da Unicode 2 Byte und ANSI 1 Byte pro Zeichen für die Darstellung benötigt, werden deine schönen Rahmenelemente mit wesentlich kürzerer Zeilenlänge gekappt - teilweise mitten durch das Zeichen.
Mit folgender Code-Anpassung, bei der die Unicode- durch ANSI-Zeichen ersetzt sind schaut eine Tabelle immer noch ordentlich aus, aber es können mehr/breitere Spalten dargestellt werden.

Sub ZeilenErzeugen()
'Die Zeilen der späteren Tabelle werden erstellt
Dim lngZ As Long, intS As Integer, Tr
'Tr = Array(ChrW(9474), ChrW(9472), ChrW(9532), ChrW(9508), ChrW(9524), ChrW(9496))
Tr = Array("|", "-", "|", "|", "-", "'")   '#### ANSI- statt Unicode-Zeichen
ReDim varZeile(lngAnzZ)



Tabellenblatt: C:\WINDOWS\TEMP\[53266.xls]!Tabelle1
|        B        |        C        |        D        |        E        |        F        |
4 |   33.334.567    |   33.334.567    |   33.334.567    |   33.334.567    |   33.334.567    |
5 |   33.334.567    |   33.334.567    |   33.334.567    |   33.334.567    |   33.334.567    |
6 |   33.334.567    |   33.334.567    |   33.334.567    |   33.334.567    |   33.334.567    |
7 |   33.334.567    |   33.334.567    |   33.334.567    |   33.334.567    |   33.334.567    |
Benutzte Formeln:
B5:  =B4
Festgelegte Namen:
LinksOben : =Tabelle1!$B$4, unbenutzt in Selektion.
RechtUnten: =Tabelle1!$F$7, unbenutzt in Selektion.
B4:F7
haben das Zahlenformat: _-* #.##0 _€_-;-* #.##0 _€_-;_-* "-" _€_-;_-@_-

Tabellendarstellung erreicht mit mofizierter Prozedur.
Gruß
Franz

Anzeige
AW: Jeannie für Arme *gg*
23.06.2008 12:05:03
Reinhard
Hallo Franz,
danke dir, das hilft mir sehr weiter :-)
Gruß
Reinhard

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige