transparent Startseite Startseite Spendenaktion
Anzeige:
Der 4teachers Schulplaner 2016/17
Hallo Gast | 617 Mitglieder online 06.12.2016 19:15:58
Login Bereich transparentSUCHE: 
Hilfe zur Suche

Anzeige

EDBlog - gamifikation

    UNTERRICHT
 • Stundenentwürfe
 • Arbeitsmaterialien
 • Alltagspädagogik
 • Methodik / Didaktik
 • Bildersammlung
 • Tablets & Co
 • Interaktiv
 • Sounds
 • Videos
    INFOTHEK
 • Forenbereich
 • Schulbibliothek
 • Linkportal
 • Just4tea
 • Wiki
    SERVICE
 •  Shop4teachers
 • Kürzere URLs
 • 4teachers Blogs
 • News4teachers
 • Stellenangebote
 • Klassenreisen
    ÜBER UNS
 • Kontakt
 • Was bringt´s?
 • Mediadaten
 • Statistik



 ForenoptionenNachricht an die Mitgliederbetreuung Mitgliederbetreuung
dieses Forum Bookmarken
Bookmark
zum neuesten Beitrag auf dieser Seite
Neu auf Seite
zum neuesten Beitrag in diesem Forum
Neu im Forum
über neue Beiträge in diesem Forum per E-Mail informieren
E-Mail-Info ist AUS


Forum: "Buchstaben im Wort alphabetisch sortieren"

Bitte beachte die Netiquette! Doppeleinträge werden von der Redaktion gelöscht.

<<    < Seite: 2 von 2 
Gehe zu Seite:
Behelfslösung in Excelneuen Beitrag schreiben zur Forenübersicht   Seitenanfang
von: ivok Userprofil anzeigen Nachricht senden erstellt: 19.08.2011 11:40:10 geändert: 19.08.2011 12:53:58

das ist eine Möglichkeit:

1. Kopiere deine unsortierte Zeichenkette in C1
2. Schreibe folgende Formel in A1:
=TEIL($C$1,ZEILE(),1)
3. Kopiere die Formel automatisch nach unten
(Ziehen mit Viereck in Ecke)
4. Kopiere die Zellen aus Spalte A nach Spalte B
mit Inhalte einfügen -> Werte
5. Sortiere Spalte B alphabetisch aufsteigend
6. Schreibe folgende Formel in C2:
=B1&B2&B3&B4&B5&B6&B7&B8&B9&B10&B11&B12&B13&B14
(so lang wie erforderlich)

Für ein neues Wort musst du jetzt:

1. das Wort in Zelle C1 kopieren.
2. Spalte A nach Spalte B kopieren mit Inhalte
einfügen -> Werte
3. Spalte B alphabetisch aufsteigend sortieren
Fertig!

Gruß

ivok


Habe ich versucht, aberneuen Beitrag schreiben zur Forenübersicht   Seitenanfang
von: abcaf Userprofil anzeigen Nachricht senden erstellt: 19.08.2011 14:38:30 geändert: 19.08.2011 14:39:20

in jeder Zelle in Spalte B steht =TEIL($C$1,ZEILE(),1)

und die sortierten Buchstaben in C2 heißen:
=TEIL($C$1,ZEILE(),1)=TEIL($C$1,ZEILE(),1)=TEIL($C$1,ZEILE(),1).
Ist da an der Formel was falsch?
Ich habe bei Inhalte einfügen auf Werte geklickt
und meine auch sonst alles nach Rezept gekocht zu haben.


@klexel: Makros und wie man sie aufruftneuen Beitrag schreiben zur Forenübersicht   Seitenanfang
von: oneida Userprofil anzeigen Nachricht senden erstellt: 19.08.2011 17:43:10 geändert: 19.08.2011 20:12:43

Hallo klexel,
1. Starte Word (2007/2010),
2. Vollziehe das folgende Video live an deinem Rechner nach: http://www.gutefrage.net/video/word-2007-makro-erstellen.
Viel Erfolg


Aberneuen Beitrag schreiben zur Forenübersicht   Seitenanfang
von: klexel Userprofil anzeigen Nachricht senden erstellt: 19.08.2011 19:15:19

das ist doch ein Video für Word - nicht für Excel.

Ist das egal??


Sorry...neuen Beitrag schreiben zur Forenübersicht   Seitenanfang
von: uthierchen Userprofil anzeigen Nachricht senden erstellt: 19.08.2011 19:37:20 geändert: 19.08.2011 23:56:17

bei mir funktioniert der Makro so wie oben nicht.
In der kursiv dargestellten Zeile befindet sich ein Druckfehler. Statt sWortArray() muss es dort aWortArray() heißen. Dann gehts. Also... jedenfalls bei mir.

Sub SortBuchstAlphabetisch()
'Sortiert die Buchstaben eines markierten
'Wortes alphabetisch
'Copyright 2011, Hans Zybura

Dim sWortKopie As String
Dim sWortSortiert As String
Dim iLaenge As Integer

'Absatzmarke ggf. auslassen
If Right(Selection.Text, 1) = Chr$(13) Then
Selection.MoveEnd Unit:=wdCharacter, Count:=-1
End If
'Leerzeichen links oder rechts ggf. auslassen
sWortKopie = RTrim(LTrim(Selection.Text))

'Sortieren vorbereiten
iLaenge = Len(sWortKopie) - 1

ReDim aWortArray(iLaenge) As String
'sortieren
For i = 0 To iLaenge
aWortArray(i) = Mid(sWortKopie, i + 1, 1)
Next
WordBasic.SortArray aWortArray(), 0, 0, iLaenge
For i = 0 To iLaenge
sWortSortiert = sWortSortiert + aWortArray(i)
Next
'ausgeben
Selection.TypeText Text:=sWortSortiert
End Sub



Und so gehts...neuen Beitrag schreiben zur Forenübersicht   Seitenanfang
von: uthierchen Userprofil anzeigen Nachricht senden erstellt: 19.08.2011 21:03:16 geändert: 19.08.2011 23:57:08

1. den Makrotext aus dem Forum kopieren (von Sub bis End Sub markieren, dann Strg+c)
2. Word öffnen
3. Alt+F11 drücken
4. wenn jetzt rechts alles grau ist: links das "+" vor "Normal" anwählen... und dann "New Makros". Egal, was da jetzt steht: Den Cursor entweder ganz an den Anfang oder ans Ende setzen
5. Makrotext einfügen (Strg+v)
6. das Fenster „Microsoft Visual Basic„ kann dann geschlossen werden. Das Makro ist jetzt bereit.

Anwendung:
1. in Word das zu sortierende Wort markieren
2. Alt+F8 drücken (oder Extras/Makro/Makros)
3. „SortBuchstAlphabetisch“ wählen
4. „Ausführen“ wählen


SIMSALABIM…ferdisch! Danke, Herr Zybura


Vielen Dank,neuen Beitrag schreiben zur Forenübersicht   Seitenanfang
von: klexel Userprofil anzeigen Nachricht senden erstellt: 19.08.2011 23:41:47

uthierchen !! Ich habs hinbekommen. Danke für die Hilfe - und natürlich auch für alle anderen Tipps!!
LG
klexel


Danke uthierchen...neuen Beitrag schreiben zur Forenübersicht   Seitenanfang
von: chanur Userprofil anzeigen Nachricht senden erstellt: 29.08.2011 18:10:12

für die Korrektur meines Schreibfehlers bei aWortArray.

Und deine Anleitung zur Erstellung des Makros in Word ist bestens. (Ich wollte so etwas erst bei Bedarf nachreichen, weil mein ursprünglicher Beitrag schon so lang war.)

Inzwischen bin ich aus dem Urlaub zurück - und alle Fragen sind ohne mich geklärt. Super!

LG, chanur (Hans Zybura)


<<    < Seite: 2 von 2 
Gehe zu Seite:
Beitrage nur für Communitymitglieder
Beitrag (nur Mitglieder)
   QUICKLOGIN 
user:  
pass:  
 
 - Anmelden 
 - Daten vergessen 
 - eMail-Bestätigung 
 - Account aktivieren 

   COMMUNITY 
 • Was bringt´s 
 • ANMELDEN 
 • AGBs 


Schulschriftenpaket



 
  Intern
4teachers-Shop
4teachers-Blogs
4teachers-News
4teachers-Schulplaner
  Partner
Der Lehrerselbstverlag
SchuldruckPortal.de
netzwerk-lernen.de
Die LehrerApp
  Friends
ZUM
Der Lehrerfreund
LehrCare
Klassenfahrten
  Info
Impressum
Disclaimer
AGBs