Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<
Microsoft Office 2003-2019 => Excel => Thema gestartet von: kealfra am Januar 28, 2013, 17:14:21 Nachmittag
-
Hallo,
Ich möchte zwei Listen miteinander vergleichen. Die eine ist nur in Großbuchstaben, die andere normal geschrieben, d. h. Zeilenanfänge und Substantive beginnen mt Großbuchstaben, alles andere ist wie üblich in Kleinbuchstaben geschrieben.
Natürlich ist so ein direkter Vergleich nicht möglich. Kennt jemand einen Trick der es trotzdem ermöglicht bzw. eine Möglichkeit in Excel die normale Schreibweise in eine solche nur mit Großbuchstaben umzuwandeln.
Word bietet ja diese Möglichkeit. Wenn ich aber die Liste dorthin kopiere, alles in Großbuchstaben umwandle und dann zurück nach Exel kopiere, kehrt die Schreibweise dort automatisch in die vorherige, alte Schreibweise zurück.
Wer weiß Rat?
mfg kealfra
-
Hi,
verwende eine Hilfsspalte mit der Funktion GROSS() - diese wandelt alles in Großbuchstaben um.
Bis später,
Karin
-
Hallo Beverly,
Das "Bis Später" liest sich so, als ob Du geahnt hättest, dass das bei DAU's nur in der direkten Adressierung klappt. Bei allen Versuchen die ich angestellt habe, um die Funktion in ein Makro einzubinden, hat Excel aber nur mit einem Wort geantwortet "Torfkopp"
Hilfst Du mir bitte nochmal weiter?
mfg kealfra
-
Hi,
was genau vestehst du unter "die Funktion in ein Makro einbinden"? Soll die Formel per VBA in die Zelle geschrieben werden oder willst du sie in einer benutzerdefinierte Funktion verwenden?
Bis später,
Karin
-
Hallo Beverly,
Karneval war gestern, jetzt wird es wieder ernst. Also ich möchte ein Makro in Gang setzen können, das mir als erstes die Zeilen in gemischter Schreibweise in solche umwandelt, in denen es nur Großbuchstaben gibt.
Ist es sehr unverschämt, wenn ich versuche, eine Zusatzfrage an die Frau zu bringen, die nichts mit dem o. g. Problem(chen) zu tun hat? Gibt es eine Möglichkeit, eine Auflistung von Word-Dokumenten aus dem WIN7-Explorer nach Excel zu übertragen, um das Sortieren zu erleichtern?
mfg kealfra
-
Hi,
zur Frage des Umwandelns in Großbuchstaben:
Sub Umwandeln()
Dim lngZeile As Long
For lngZeile = 1 To 20
If Cells(lngZeile, 1) > "" Then Cells(lngZeile, 1) = UCase(Cells(lngZeile, 1))
Next lngZeile
End Sub
Zum Auflisten von Word-Dateien (.doc):
Sub DateienAuflisten()
Dim strVerzeichnis As String
Dim strTyp As String
Dim strDateiname As String
Dim lngZeile As Long
strTyp = "*.doc"
Application.ScreenUpdating = False
strVerzeichnis = "D:\Test\"
strDateiname = Dir(strVerzeichnis & strTyp)
lngZeile = 1
Do While strDateiname <> ""
Cells(lngZeile, 1) = strDateiname
strDateiname = Dir
lngZeile = lngZeile + 1
Loop
Application.ScreenUpdating = True
End Sub
Bis später,
Karin
-
Hallo Beverly,
Der obere Code war richtig hilfreich. Jetzt kann ich aus dem Netz eine Filmliste für den jeweiligen Tag importieren und diese mit der Liste der vorhandenen Filme vergleichen. Bei um die 50 Filmen pro Tag und um die 1700 vorhandene Filme dauert das zwar, aber es funktioniert. Einziger Wermutstropfen: Mit der Filmliste importiert man zwangsläufig zu fast jedem Film ein Mini-Vorschaubildchen. Diese Bildchen lässen sich aus einem Tabellenblatt nur einzeln im Handbetrieb löschen. Das hat wohl irgendwas damit zu tun, dass die einzelnen Zeilen der Filmliste gleichzeitig Links zu einer Beschreibung des jeweiligen Films bilden. Weiter bin ich nicht gekommen.
Der untere Code ist leider etwas erläuterungsbedürftig. Irgendwo muss ich ja wohl angeben, wo die zu importierende Explorerliste zu finden ist. Die einzige Zeile die mir plausibel erschien, war die mit dem strVerzeichnis = "D:\TEST\" aber darauf hatte mein heiß und innig geliebter PC wieder Mal nur eine Antwort: "Torfkopp". Hilfst Du mir nochmal weiter?
Übrigens: Bist Du gewillt die Frage zu beantworten, mit welchem Basic Du arbeitest? Zu dem VBA aus Excel kann ich nur wenige Ähnlichkeiten entdecken. Letzteres ist eigentlich so pingelig, dass ich mich darüber wundere, dass es auf Deine Codes überhaupt reagiert. Handelt es sich um das weitaus kompliziertere Basic aus Open Office ? Daran habe ich mich mal versucht, ohne besonders weit gekommen zu sein
Wie schreibst Du immer:
Bis später
kealfra
-
Hi,
alle Schapes im aktiven Tabelenblatt lassen sich mit folgendem Code auf einen Ritt löschen:
ActiveSheet.Shapes.SelectAll
Selection.Delete
"D:\TEST\" - das ist der Odner einschließlich Laufwerk, aus dem alle doc-Dateien aufgelistet werden sollen - das musst du an deine Bedingugen anpassen.
Ich arbeite mit VBA (Visial Basic for Applications) für Excel - ich weiß also leider nicht wovon du redest.
Bis später,
Karin
-
Hallo Beverly,
Leicht ungehalten? oder täusche ich mich? Wegen der Frage nach der Basic-Version? Natürlich bin ich alles andere als ein Profi. Deshalb sind wohl die Ausdrücke, die ich in einem Makro benutzen kann sehr viel schlichter gestrickt als Deine und letztere kommen mir deshalb reichlich fremd vor. So ist die Frage entstanden.
So einfältig, dass ich in die besagte Zeile nicht den vollen Namen des Verzeichnisses eingesetzt hätte, in der sich die Auflistung der Word-Dokumente befindet, bin ich nun auch wieder nicht. Aus irgendeinem kühlen (für mich nicht erkennbaren) Grunde spielt der Code nicht mit. Könnte es daran liegen, dass die Dateien nicht erkannt werden, weil sie aus mindestens drei Word-Varinten zwischen 1993 und 2007 stammen? Müssen die Endungen zuerst alle auf den gleichen Nenner gebracht werden?
mfg kealfra
-
Hi,
Frage an dich: weshalb muss jemand "ungehalten" sein, wenn er eine Frage beantwortet und einen Fakt konstatiert?
Ich kenne deinen Computer nicht und weiß deshalb leider auch nicht, weshalb er dich so betitelt - jedenfalls kann ICH daraus nicht erkennen, weshalb der Code bei dir "nicht mitspielt". Folglich kann ich nur raten und die erste Möglichkeit, die in Frage kommt, ist, dass es es falsche Verzeichnis ist, zumal du geschrieben hast:
strVerzeichnis = "D:\TEST\" aber darauf hatte mein heiß und innig geliebter PC wieder Mal nur eine Antwort: "Torfkopp".
Tut mir Leid, aber ich habe es gewiss nicht nötig, mich von dir hier anmachen zulassen.
Bis später,
Karin
-
Hallo Beverly,
Die Entschuldigung kommt spät, aber sie kommt. Leider habe ich Deine Antwort erst heute gelesen als ich danach gesucht habe, ob man Tabelleninhalte nach Schriftfarben sortieren kann.
Hiermit möchte ich mich in aller Form entschuldigen. Mitunter habe ich die Angewohnheit, mich ziemlich flappsig auszudrücken. Es war nicht meine Absicht, Dir in irgendeiner Form zu nahe zu treten. Wenn ich wieder Fragen habe, werde ich versuchen mich einer streng sachlichen Ausdrucksweise zu befleißigen.
mfg kealfra