Szukaj:Słowo(a): vba eine zelle nach rechts gehen
Zitat:
Printmedien mit online Foren zuvergleichen ist auch nicht gerade optimal.

Da musst Du etwas überlesen haben. Ich habe die Online-Präsenzen der Printmedien als Beispiel für den Vorteil eines Fixed-Style angeführt. Die Gestalter der Printmedien wissen nämlich schon ein paar Jahrzehnte länger als die Onlinelayouter, was die Lesbarkeit eines Textes fördert. Das flieüt letztendlich auch in deren aktuelle Onlineangebote ein.

Dabei gilt z.B., so ich mich recht erinnere, dass eine Zeile nur so lang sein sollte, wie sie ohne Kopfbewegung bequem gelesen werden kann (deswegen mein Hinweis zum Spaltenlayout einer Zeitschrift). Wenn ich diese Seite von vB auf einem 24'' Monitor lese geht das schon mal nicht.

Dein Einwand bezüglich der diversen Auflösungen ist hinreichend bekannt. Hier muss man sich den Kompromis aussuchen, der von den meisten Usern nach eigener Einschätzung akzeptiert wird. Ich glaube er liegt bei den meisten Webdesignern derzeit irgendwo unter 1.000 Pixel für die gesamte Seitenbreite. Wer seine Zielgruppe unter den Netbookusern vermutet, muss eben noch weiter runter gehen.

öbrigens: Das Heiseforum hat vor kurzem sein Layout geändert. Es gehört bestimmt nicht zu den kleineren Foren in Deutschland. Zugegeben, es gab danach eine Menge Unmutsbekundungen, die zu diversen Nachbesserungen führten. An der festen Seitenbreite hat man aber trotz vieler Kritik festgehalten.

Nachtrag: Ich habe mal in ein paar Dutzend Startseiten von Communitys geschaut. Nur feste Seitenbreiten. Selbst bei so unbedeutenden Seiten wie Facebook wird ein Fixed-Style verwendet ;)

Gruü Saan
Probleme mit Visual Cafe in Verbindung mit JTable
  Hallo, an dieser Stelle möchte ich mich als neues Miglied vorstellen. Mein Name ist Roland Trappmann und ich arbeite erst recht kurze Zeit als
Java Entwickler, und möchte aus diesem Grunde die eine oder andere dumm erscheinende Frage entschuldigen.
Mein Brötchengeber arbeitet mit Visual Cafe 4.5 von WebGain. Mein Problem ist es, dass ich es nicht gebacken kriege mit diesem Tool eine
Tabelle zu formatieren (Einträge linksb. o.ä. ). Es soll angeblich über ein Column Model gehen, wobei ich in V.C. nur einen default Wert zur
Auswahl erhalte.
Zudem soll die Tabelle bei der Initialisierung mit fest definierten Spaltengröüen erzeugt werden. Wie z.B. eine Eingabemaske.
1 Spalte Bezeichnung, 2 Sp. Bitmap (Ordner Buch etc.), und dann eine oder mehrere Eingabespalten.
Auf Klick oder Keyevent einer best. Taste sollen ab der geklickten Zeile n Zeilen eingefügt und z.B. aus einer Datenbank Tabelle mit Werten besetzt werden. Das geschlossene Buch als Bitmap soll dann aufgeschlagen erscheinen -> Eplorer like.

Hat schon jemand von Euch eine Idee, wie man das realisieren könnte?
Vielen Dank im vorraus
Roland
So nun habe ich nochmal nachgesehen.Vor ein paar Jahren musste ich mit O2k -Access-Word ein paar Dinge in VBA coden und aus dieser Zeit kann ich nicht sagen, dass Word oft abgestürzt ist.
Aber die Formatierung ist dort doch etwas eigenwillig und immer so schön unübersichtlich und inkompatibel zu früheren Versionen.
Na egal ist Gewöhnungssache und Ansichtssache.
Wenn du schonmal Word verwenden willst oder musst:
Einfach auf Datei neu Formatvorlage
Dann D Standartvorlage deinen Ansprüchen entsprechend formatieren
Die Funktionen Schriftart, Gröüe, "Absatz vor" und "nach" sind hier recht beachtenswert.Immer daran denken, dass M$ dort alles im Absatzzeichen ablegt.Für Zeilenumbrüche, die du selbst einfügen willst also nie die Entertaste verwenden, sondern die Shift-Enter nutzen. Wenn du deine Absätze eingestellt hast, das Dokument abspeichern, als "Dokumentvorlage" mit Name deiner Wahl z.B. "Meine Text Vorlage.dot und dann wieder auf Neu Öffnen Vorlage auswählen diesmal auf Basis dieser Vorlage wählen.
Der Vorteil ist, dass du im Nachhinein noch diverse ćnderungen an der Vorlage machen kannst, die dann im gesamten Dokument verfügbar sind.
Sicherheitskopien würde ich aber ohnehin bei umfangreichen Arbeiten erstellen.
Für 20 Seiten Text sollte das schonmal gehen.
Viel Glück
Ach ja, wenn du auf jeder Seite die gleiche Kopfzeile oder Fuüzeile haben willst, ist eventuell auch die Autotextfunktion -stellt ganze Textbausteuine zur Verfügung--recht nützlich.

[ 14. Oktober 2003: Beitrag editiert von: Roland80 ]
excel 97 & vba
  hallo,

quick little problem...

ICH BIN EINGEROSTET! :up:

hab seit ewigkeiten kein excel mehr gemacht. habe hier jetzt eine "tabelle", in der in einer spalte eine groüe anzahl von zellen mit kurzen texten drinsteht, also in der form:

A
A
A
B
B
C
...

jetzt soll, ohne weitere eingaben, die anzahl der jeweiligen texte ermittelt und in einer "übersicht" angezeigt werden.
am besten auf knopfdruck und reproduzierbar, da häufig gebraucht...

mit excel-bordmitteln scheints erstmal nicht zu gehen, also dachte ich an makros oder vba - was ich jedoch anscheinend nicht mehr so recht kann. zu lange nicht gebraucht. :lr:

weiss da jemand vielleicht eine lösung und erbarmt sich, mir diese mitzuteilen?

vielen dank im voraus. ;)

gruü,

dot :schlu:
Mit diesem VBA-Code sollte es gehen. Einfach ein Makro erstellen, dieses "Bearbeiten" (Button in übersicht Makros), dort sämtlichen Code löschen und durch diesen ersetzen:

Code: Sub Rabattstruktur()
    zeile = 1
    spalte = 1
    bspalte = 1
    bzeile = 1
    Do While Cells(zeile, spalte) <> ""
        If Cells(zeile + 1, spalte) <> Cells(zeile, spalte) Then
            'Art-Sprung erkannt
            bzeile = zeile
            bspalte = 1
            counter = 0
            'Rabatte werden von links nach rechts "abgemäht"
            Do While Cells(bzeile, spalte + 1) <> ""
                'Anzahl Rabatte zählen für Rückschritt bei Löschung Ursprungszeile
                counter = counter + 1
                'Umstrukturierung
                Cells(zeile + 1, bspalte).EntireRow.Insert
                Cells(zeile + 1, bspalte) = Cells(bzeile, bspalte)
                Cells(zeile + 1, bspalte + 1) = Cells(bzeile, spalte + 1)
                zeile = zeile + 1
                spalte = spalte + 1
            Loop
        Else
        zeile = zeile + 1
        End If
        spalte = 1
        'Rückschritt und Ursprungszeile löschen
        If zeile > counter Then
            Cells(zeile - counter, spalte).EntireRow.Delete
        Else
        End If
    Loop
End Sub
Danach zurück ins Excel und per Alt-F8 die Makros aufrufen, dort müsste "Rabattstruktur" nun anzutreffen sein.
Ein Frage zu einem Würfelspiel
  Hallo, ich bin neu hier und sag erst einmal guten Tag =)
Ich bin noch nicht so lange in VB.Net dabei und hab dadurch noch recht wenig Programmiererfahrung darin. Aber das hält mich nicht davon ab ins Volle zu gehen. Hehe... Ich weiü viele würden mir jetzt am liebsten erstmal n Link zu nem Einsteigerbuch geben, aber ich denk ich kann mich da gut einfinden.. Ich mein ein groüer Teil ist Logik.

Ich bastel gerade an einem Kniffelspiel (Win-Form-basiert also kein Konsolenspiel), die Hälfte ist schon fertig, nur jetzt häng ich beim eintragen der Wurfergebnisse in eine Textbox.

Ich habe 1 Button zum Würfeln, eine Textbox in die eine 5-stellige Zahlenfolge beliebig der 6 Augenzahlen reingeschrieben wird (z.B. 3-5-1-6-6), 5 Textbox in die jeweils die Zahlen geschrieben werden um durch den Inhalt dieser 5 Boxen kleine Würfelbildchen anzuzeigen. (z.B. Box1.Text = 2 -> PictureBox.Image = Würfel2.png) und dann noch 5 Textboxen die zum Eintragen der ausgewählten Würfel dienen. Man klickt auf einen Button und die Zahl aus z.B. Textbox 2, hier im Beispiel die 5, wird in die 2 Textbox der Auswahl geschrieben und in der anderen Textbox gelöscht... Alles soweit so gut. Jetzt gibt es noch Eintragebuttons, um die Auswahlen in eine Zelle der Punktetabelle zu schreiben.
Die Möglichkeiten 1er bis 6er des Spiels hab ich schon umgesetzt nur jetzt hakts bei dem Dreierpasch: Ich weiü nicht wie ich dem VB.Net sagen kann, dass mindestens 3 der Auswahltextboxen mit gleichen Zahlen belegt sein sollen, damit man erst eintragen darf (Ansonsten soll eine kleine Fehlermeldung mit Erläuterung angezeigt werden).
Hier der Code meines Button_Dreierpasch:
AZx.Text ist der Inhalt der jeweiligen AuswahlTextBox

vbnet Code: lPrivate Sub Button_Dreierpasch_Click() Handles Button_Dreierpasch.Clickll        Dim Ergebnis As Integer = 0ll        If AZ1.Text <> AZ2.Text <> AZ3.Text And AZ1.Text <> AZ2.Text <> AZ4.Text And AZ1.Text <> AZ2.Text <> AZ5.Text And AZ1.Text <> AZ3.Text <> AZ4.Text And AZ1.Text <> AZ3.Text <> AZ5.Text And AZ1.Text <> AZ4.Text <> AZ5.Text And AZ2.Text <> AZ3.Text <> AZ4.Text And AZ2.Text <> AZ3.Text <> AZ5.Text And AZ2.Text <> AZ4.Text <> AZ5.Text And AZ3.Text <> AZ4.Text <> AZ5.Text Thenll            Fehler_Titel.Visible = Truell            Fehler_Text.Visible = Truell            Fehler_Text.Text = "Sie müssen mindestens drei gleiche Augenzahlen" & vbCrLf & "in der Auswahl haben."ll        ElseIf AZ1.Text = AZ2.Text = AZ3.Text Or AZ1.Text = AZ2.Text = AZ4.Text Or AZ1.Text = AZ2.Text = AZ5.Text Or AZ1.Text = AZ3.Text = AZ4.Text Or AZ1.Text = AZ3.Text = AZ5.Text Or AZ1.Text = AZ4.Text = AZ5.Text Or AZ2.Text = AZ3.Text = AZ4.Text Or AZ2.Text = AZ3.Text = AZ5.Text Or AZ2.Text = AZ4.Text = AZ5.Text Or AZ3.Text = AZ4.Text = AZ5.Text Thenll            Fehler_Titel.Visible = Falsell            Fehler_Text.Visible = Falsell            If MsgBox("Möchtest Du das Ergebnis wirklich eintragen?", vbYesNo, "") = vbYes Thenll                Ergebnis = Ergebnis + AZ1.Text + AZ2.Text + AZ3.Text + AZ4.Text + AZ5.Textll                Eintrag_7.Text = Ergebnisll                'Auswahl resettenll                AZ1.Text = ""ll                Auswahl_W1.Image = Nothingll                AZ2.Text = ""ll                Auswahl_W2.Image = Nothingll                AZ3.Text = ""ll                Auswahl_W3.Image = Nothingll                AZ4.Text = ""ll                Auswahl_W4.Image = Nothingll                AZ5.Text = ""ll                Auswahl_W5.Image = Nothingll            End Ifll        Elsell        End Ifll    End Subl
Hoffe das reicht als Beschreibung, wenn nicht fragt =)
@menoZ

von den vielen bugs, sind nicht auszurotten :D

zu 2: wenn du in Vb eine funk hast wo du externe prg starten kanns
kann ich die ne exe schicken die die bilder konvertiert, da ja sicher
noch einiges hinzukommt auch mit einer eingebauten transformation
zu 3:
x,y
0,0 Y screen
----------------------------------
| 10,10 10,200 10,380 |
| B ------- B ---------B |
| 30,10 | | -------B-- |
| B ----- | | | -----B | |
X | 40,10 | | | | | | |
| B --- | | | +--B--B | |
| | | | | | +-+-- B--| |
| | | | | || | | | |
| ----STADT------- |
| 300,200 |
| |
| |
| |
---------------------------------
x , y
600,400
ups der schluck mir die formatierung

ein bild ist genauso aufgebaut,gibt noch andere koordinaten systeme
die gröüe und bild im bild pos beschreibt(technis
ches zeichnen ect,)
dir ver/hor linien kann man auch in einer dicken linie zusammenfassen
geben dann halt die richtung zur stadt an eventuell pfeile
z.b. eine dicke ver line zur stadt-in der mitte
rundherum die bilder und zwar so anordnen das einfache ketten
kohleberg->kraftwerk keine verbindung zur stadt obe oder unten sind
dann erst die mit vielen verbindungen in einer reihe sind links zur stadt
rechts zu weiteren betrieben oder von oben nach unten siehe tg techtree
ist eigentlich ein linienrouter wie tunnel darf tunnel nicht kreutzen
oder ein leiterbahnrouter von elektronik, wäre katastrophal wenn sich leiterbahnen
kreuzen würden.
da ja das bild an keine pos gebunden ist, ist es ja kein groües prop.
kann dir auch mit einem router weiterhelfen wie 2. der die dann die bildpos
z.b. in einer txt ausgibt
routerprg für kürzesten weg ohne kreuzung kann ich auch ins basic übersetzen
besorge mir halt dann ein buch über deine VB version. kenn das VB nicht basic schon

die bilder muü nur laden(abfragen) wie groü sie in x,y richtung bits groü sind dann
eine fixen abstand add dann überlappen sie sich nicht ist das geiche wie wenn du einen
buchstaben ausgibst, zeile=X spalte=Y nur erhöht print die pos um +1

zu 4: wenn du ein bild am screen anzeigen willst muüt du ja ne pos angeben, wenn du
scrollen willst brauchst nur den x,y wert +10 o. -10 addieren oder +100,-100
je nachdem in welche richtung

zu 6-8: man braucht ein prg das die tast,maus abfängt bevor es an tg weitergereicht wird
siehe screenshot prg , ist z.b str+alt+f10 um ein bild vom screen zu speichern
da tg das letzte prg ist das die tasten,maus pos bekommt
man kann es sogar vor win abfangen und alle aktivitäten des user speichern ohne
das er es merkt.(alles aber auch alles) kann sogar soweit gehen das die unterste
eben(das bios am motherboard) verändert wird.(viren,trojaner und das andere ungeziffer)

ich hoffe damit alle KLARHEITEN beseitigt zu haben :D

m.f.g
Habe soeben die vierte mail gelöscht, ist ne Plage
  "Herzlichen Glueckwunsch, beim Run auf die begehrten Tickets für die 64
Spiele der Weltmeisterschaft 2006 in Deutschland sind Sie dabei. Weitere
Details ihrer Daten entnehmen Sie bitte dem Anhang."

So lautet derzeit eine Email, die viele Computerbenutzer in ihren
elektronischen Postfächern vorfinden. Der vermeintlich seriöse Absender
wie "@fifa.de" oder "@ok2006.de" ist ganz dreist – gefälscht! Genauso
wie die Botschaft Humbug ist, denn der beigefügte Anhang mit Namen wie
"okTicket-info.zip" oder "Fifa_Info-Text.zip" ist brisant: In ihm
versteckt sich der berüchtigte "Sober"-Wurm, der nicht nur das eigene
System angreift und verseucht, sondern sich über den eigenen Rechner via
Internet hemmungslos weiter verbreitet. Keine Kunst in Zeiten der
völligen Vernetzung.

Gefälschte Fehlermeldung I

Die Tricks der Virenprogrammierer werden immer raffinierter. Ihr erstes
Ziel ist nämlich, den Computerbenutzer dazu zu bewegen, eine Email und
möglichst noch deren Anhang zu öffnen um damit den Wurm zu aktivieren.
Dabei gehen die Virenprogrammierer trickreich vor, etwa indem sie eine
nicht zugestellte Mail vortäuschen:

"Mail-Fehler!
Diese Email wurde automatisch erzeugt
Mehr Informationen finden Sie unter http://www.gmx.de

Folgende Fehler sind aufgetreten:

Fehler konnte nicht Explicit ermittelt werden

End Transmission

Aus Datenschutzrechtlichen Gruenden, muss die vollstaendige E-Mail incl.
Daten gezippt & angehaengt werden.
Wir bitten Sie, dieses zu beruecksichtigen.

Auto ReMailer# [gmx]

AntiVirus-System: Kein Virus erkannt
"T-ONLINE" AntiVirus Service
WebSite: http://www.t-online.de"

Auch dies ist eine gemeine Finte. Der Provider "gmx" ist ein viel
genutzter Anbieter. Die Wahrscheinlichkeit, in jüngster Zeit eine Email
an eine "gmx"-Adresse versandt zu haben, ist somit groü. Und jeder hat
sich schon einmal beim Namen vertippt und so seine versehentlich falsch
adressierte Email zurückbekommen. Hier sind die Informationen zum Fehler
angeblich in der beigefügten ZIP-Datei mit dem Namen
"autoemail-text.zip" enthalten. In Wirklichkeit lauert darin jedoch der
Wurm "Sober" auf die Gelegenheit, angeklickt und damit aktiviert zu werden.

Das Raffinierte: Von auüen ist nicht zu erkennen, was sich in einer so
genannten "ZIP"-Datei befindet. ZIP-Dateien sind komprimierte Daten, die
Programme, Texte, Bilder, Töne oder Filme sein können, oft mehrere
Dateien auf einmal in einem einzigen ZIP-"Paket". Und: Manche
Virenscanner können (immer noch) keine ZIP-Dateien auf Virenbefall
untersuchen
. So ist das Verstecken von Viren in solch komprimierten
Dateien der beste Trick, um möglichst viele PC-Benutzer hereinzulegen.

Gefälschte Fehlermeldung II

Auch diesem vermeintlich gut gemeinten Hinweis eines belästigten
Computernutzers kann man sich nicht so ohne weiteres entziehen:

"Hallo,
jemand schickt ihre privaten Mails auf meinem Account.
Ich schaetze mal, das es ein Fehler vom Provider ist.
Insgesamt waren es jetzt schon 6 Mails!
Ich habe alle Mail-Texte im Texteditor kopiert und gezippt.
Wenn es doch kein Fehler vom Provider ist, sorge dafuer das diese Dinger
nicht mehr auf meinem Account landen, es Nervt naemlich.
Gruss"

Gefährlich ist der Wurm deshalb, weil er die Schutzmechanismen des
Computers angreift und versucht, sie lahmzulegen. So deaktiviert er die
Firewall des Betriebssystems Windows XP und das automatische Update von
Windows. Auüerdem löscht er Dateien des Anti Viren-Herstellers
"Symantec" (u. a. "Norton AntiVirus").

Was nun – was tun?

Am besten ist es, die vorhandene Anti Viren-Software schnellstmöglich zu
aktualisieren und danach das komplette System auf Viren wie etwa Würmer
absuchen zu lassen. Auf den unten genannten Seiten finden Sie weitere
Links, um bei Verdacht Ihr Computersystem über das Internet von auüen
auf Virenbefall untersuchen und ggfs. diese dabei gleich entfernen zu
lassen.

Grundsätzlich gilt:
Eine professionelle, nicht unbedingt kostenlose Anti Viren-Software
gehört auf jedes Computersystem;

Kontrollieren Sie regelmäüig den Status ihrer Anti Viren-Software – also
ob aktiv, ob die Aktualisierungen regelmäüig herunter geladen werden und
ob ihr System in regelmäüigen Abständen (mindestens einmal pro Woche)
komplett auf Viren untersucht wird;

Kontrollieren Sie regelmäüig die Sicherheitseinstellungen Ihres
Computer-Betriebssystems (z. B. Firewall);
Nehmen Sie regelmäüig Aktualisierungen ("Updates") ihres Betriebssystems
vor (bei Microsoft Windows etwa über http://www.windowsupdate.com);

Löschen Sie verdächtige Emails sofort – etwa wenn sie den Absender nicht
kennen oder er ihnen komisch vorkommt. Oder wenn ihnen die
"Betreff"-Zeile verdächtig erscheint;

Öffnen Sie erst recht nie verdächtige Anhänge ("Attachments"), seien sie
vor allen Dingen vorsichtig bei ZIP-Dateien;

Sind Sie sich nicht sicher, können Sie sich bei untenstehenden Links
über aktuelle Virengefahren informieren. Dort sind auch Gegenmittel
bekannt. So kann ein Online-Virencheck über das Internet helfen, falls
das eigene Anti Viren-Programm lahm gelegt sein sollte.

Weiterführende Links:

Virenticker von "wdr.de":
http://www.wdr.de/themen/computer/so...er/index.jhtml;
Warnung des "Bundesamtes für Sicherheit in der Informationstechnik"
(BSI) in Bonn:
http://www.bsi.de/av/vb/sobero.htm;
Aktuelle Virenmeldungen der TU Berlin:
http://www.tu-berlin.de/www/software...ll.shtml?all05.

>