Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Hallo, Maninweb,

Allem Anschein nach hast Du recht. Bei mir piept es nicht. Wenn ich die angeschlossenen Lautsprecher wegschalte und den PC neu starte, ist Ruhe im Schiff. Es liegt also offensichtlich an meinem PC und nicht an meinem Excel 2007. Ich werde mal nachschauen, ob der Piepser im PC überhaupt angeschlossen ist.

mfg kealfra

Hallo,
Gibt es bei einem VBA-Makro in Excel aus Office 2007 eine Möglichkeit, ein bestimmtes Ereignis (z. B. das Erreichen einer bestimmten Zahl in einer For-Next-Schleife) durch einen Signalton kundzutun? Und bitte nicht (wie manche Leute ihre Intelligenz -oder ihren Humor?-dokumentieren müssen) einfach nur mit "JA" antworten, sondern angeben, wie man das programmiert. Ein einfaches "Beep" nimmt der Makro nämlich nicht zur Kenntnis.

Bis dann, keakfra

Hallo Günther,

Das "Namenlos" entspringt nicht meinem Wunsch, mich im Verborgenen zu halten. Es kommt vielmehr daher, dass ich in zwei anderen Foren angeranzt worden bin, ich solle gefälligst meinen  Privatnamen aus dem Spiel lassen und mich meines Nutzernamens bedienen

Deine letzte Äußerung ist mir schleierhaft. Kann es sein, dass Du auf die Nachfrage von "Mumpel" geantwortet und dabei geglaubt hast, sie käme von mir?

Was auf den Monitor kommt, wenn ich Deinen Link "hier" anklicke, ist doch offenbar größtenteils die Mikrosofthilfe die erscheint, wenn ich aus einem Modul heraus "Range.Find-Methode" als Frage eingebe. Wenn hier die Möglichkeit geschildert wird, wie und wo man den Rückgabewert auslesen kann, reichen meine Kenntnisse nicht aus, um das zu erkennen.

Kannst Du mir eine weitere Erläuterung zuteil werden lassen?

mfg wohnwagen

Hallo Rene,

Danke für Deine Mühe.

Access ist aus der Sicht eines Profis sicher das Richtige. Die billigste Ausgabe, die ich bei Ebay gefunden habe, kostet 69,90€. Und das ist mir (als nur mäßig betuchter Rentner) für die Lösung einer einzigen Aufgabe ein wenig zu teuer.

Leider habe ich aber auch keine Ahnung wie man in Excel etwas per Doppelklick kopiert und auch SVerweis ist mir  ein Buch mit sieben Siegeln. Die zunächst befragte Excel-Hilfe kennt diesen Begriff ebensowenig wie die VBA-Hilfe.

mfg wohnwagen

Hallo,
Irgendwie möchte ich es schaffen via Makro (Excel aus Office 07) übereinstimmende Titel in zwei Listen mit Filmtiteln zu finden. Die erste Liste (aus dem Internet kopiert) enthält die täglich im TV gesendeten Filme, die zweite etwa 800 schon aufgenommene Filme. Dem direkten Vergleich zweier Strings ist nur mäßiger Erfolg beschieden, weil zwei miteinander verglichene Titel nur dann als übereinstimmend erkannt werden, wenn sie tatsachlich mit Buchstaben, Punkt, Komma, Strich, Leerstellen (und allem was es sonst noch geben könnte) absolut deckungsgleich sind.

Einen Ausweg sehe ich in der Range.Find-Methode, bei der auch teilweise Übereinstimmungen erkannt werden. Leider finde ich keine Möglichkeit, einen Titel aus der Liste der täglich gesendeten Filme in die Suchprozedur zu manöverieren, ohne ihn manuell eintippen zu müssen. Die üblichen Methoden, einen String in Klammern oder in Anführungszeichen (oder in beidem) einzuschließen versagt völlig.

Kann hier jemand helfen?

mfg wohnwagen

Hallo, Maninweb,

Klappt wie ne Eins, wie es natürlich nicht anders zu erwarten war.

Es fasziniert mich zuzusehen, wen sich wie von Geisterhand eine ganze Spalte einfach nach rechts verschiebt.

Danke!

mfg kealfra

Hallo,

Bei jedem Öffnen einer Excel-Datei zeigt sich über der Tabelle eine Warnung. Sie lautet "Die automatische Aktualisierung von Hyperlinks ist deaktiviert"

Trotzdem ich mich oft und reichlich in den Excel-Optionen getummelt habe, konnte ich nicht heraus finden, wie diese Meldung zu Stande kommt.

Wer kennt sich so gut aus, dass er mir helfen kann? Die Sache nervt nämlich so langsam.

mfg kealfra

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

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

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

Hallo Michael,

Danke für Deine Mühe.

Auf die Frage wo Word bzw Excel eigentlich die Makros abspeichert (das vollzieht sich ja ohne mein Zutun als DAU = Dümmster anzunehmender User)  habe ich noch nie eine Antwort bekommen. Das ist mir besonders wichtig, weil auch alle Makros dahin sind, wenn man den PC mal neu installieren muss, weil man anders den darauf befindlichen Müll nicht mehr los wird.

Kannst Du die Frage beantworten ? Denn die von Dir angesprochene "Normal.dotm" hat Herr Kleinweich auch so gut versteckt, dass man sie nicht ohne weiteres findet.

mfg kealfra

Hallo,
Bin zwar alles andere als ein Programmierprofi aber mit dem beigefügten Makrocode (Excel aus Office 07) konnte ich gleichlautende 13-stellige Zahlen löschen, die sich in den Spalten 1 und 2 einer Tabelle befanden.(Ich arbeite immer mit der Z1S1-Notierung, weil man bei der 1A-Notierung in größeren Tabellen schnell die Übersicht verliert). Die Anzahl der Zeilen ist in beiden Spalten beliebig, sofern sie nicht größer ist als 32.767, wenn doch muss man a, c und e nicht als integer sondern als long dimensionieren, also aus dem "%" ein "&" machen.

Sub ZAHLENLÖSCHEN()
'
' ZAHLENLÖSCHEN Makro
'
Dim a%, c%, e%
Dim b As Currency, d As Currency, f As Currency

'letzte Zeile ZL1 in spalte 1 suchen
a = 1
SUCH:
Cells(a, 1).Select
b = ActiveCell
If b <> Empty Then
a = a + 1
GoTo SUCH
End If
ZL1 = a - 1

'letzte Zeile ZL2 in Spalte 2 suchen
a = 1
SUCH2:
Cells(a, 2).Select
b = ActiveCell
If b <> Empty Then
a = a + 1
GoTo SUCH2
End If
ZL2 = a - 1

'Zahlen vergleichen
SUCH4:
c = 1: e = 1
SUCH3:
Cells(c, 1).Select
d = ActiveCell
Cells(e, 2).Select
f = ActiveCell
If d = f Then
'Wenn sie gleich sind, beide Zahlen löschen und ohne sie neu beginnen
    Cells(c, 1).Select
    Selection.Delete shift:=xlUp
    ZL1 = ZL1 - 1
    Cells(e, 2).Select
    Selection.Delete shift:=xlUp
    ZL2 = ZL2 - 1
    GoTo SUCH4
End If
'Wenn die Zahlen nicht gleich sind, die zweite Spalte bis zum Ende
'mit dem eingestellten Wert aus Spalte 1 vergleichen
e = e + 1
If e <= ZL2 Then
    GoTo SUCH3
End If
'Wenn die Spalte 2 zu Ende verglichen ist, den nächsten Wert aus
'Spalte 1 nehmen und bei der Spalte 2 wieder von oben anfangen
e = 1
c = c + 1
If c <= ZL1 Then
GoTo SUCH3
End If
End Sub
Offensichtlich kommt in der Antwort der Code nicht farbig rüber. Im Original sind die Kommentare, die jeweils mit einem Apostroph beginnen, in grün gehalten. Zur Funktion des Makros brauchst Du solche Zeilen nicht abzutippen.

mfg kealfra

Hallo Beverly,

Da habe ich mit dem "lngLetzte" ja schön ins Boxhorn jagen lassen. Wenn man nur mit so schlichten Sachen umgeht wie "Dim ZL%" kann es einem also passieren, dass man vor lauter Bäumen den Wald nicht erkennt.

Aber es gibt noch ein paar Sachen die mir neu sind, zB. das Sternchen hinter dem What in Zeile 3 und auch die Art, wie man mit dem "&" alsolute Zahlen in die A1-Schreibweise einbauen kann. Ich hab gerade zwei Stunden lang danach gesucht. Eine Angabe oder Anleitung, wie man via Makro A1 in Z1S1 (bzw. umgekehrt) umwandeln kann, habe ich nicht finden können. Bei meiner Programmierweise "von hinten durch die Brust ins Auge" (sprich also für eine gestellte Aufgabe mit dem Makrorekorder ein Makro aufzunehmen und dessen Code dann in meinen Code einzubauen) ist mir das Problem der Umwandlung nicht neu. Bisher ist es mir mit viel Herumprobieren noch immer gelungen. Diesmal, bei meinem ersten Makro seit dem Erwerb von Office 2007, musste ich passen.

Es gab bei mir immer die Hoffnung, beim Erscheinen eines neuen Office könne man lesen, Herr Kleinweich habe sich von der A1-Notation verbschiedet, weil diese von Herrn Zuse erfunden wurde und daher leicht angestaubt ist. Aber für ihn (der dem Vernehmen nach demnächst als Nichtsesshafter sein Leben fristen muss ) ist der damit verbundene Aufwand sicher nicht tragbar. Oder gibt es handfeste Gründe dafür, A1 beizubehalten?

Wie Dein Code beweist, gibt es aber ja Regeln, mit denen diese Umstellung zu bewältigen ist. Für einen Tipp, wo man so etwas findet, würde ich Dir (falls sie frisch gewaschen sind) die Füße küssen.

mfg wohnwagen

Hallo Beverly,
Danke dass Du Dich bemühst. Von 60 Lesern eine einzige Antwort. Nicht sonderlich ergiebig dieses Forum!

Den folgenden Code möchte ich so umfriemeln, dass er auf die Z1S1-Schreibweise reagiert. Das würde es mir ermöglichen, mit flexiblen Zeilenzahlen zu arbeiten. Mit direkter und indirekter Adressierung lag meine Ausdrucksweise wohl ziemlich daneben. Ich meinte damit den Übergang von A1 auf Z1S1.
Die A1-Scheibweise halte ich -mit Verlaub - für idiotisch. Wenn man damit nicht täglich umgeht, verliert man innerhalb einer großen Tabelle ziemlich schnell die Orientierung, wenn als Spalte I oder AD oder BB angegeben wird. Wenn man mal eben fünf oder acht Spalten vor oder zurückspringen will, kann man anfangen, an den Fingern das Alphabet abzuzählen. Daher mein Wunsch.

' versuch Makro
'
 Range("A4:G1563").Select
    ActiveWorkbook.Worksheets("HDD-DRUCK").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("HDD-DRUCK").Sort.SortFields.Add Key:=Range( _
        "C4:C1563"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("HDD-DRUCK").Sort
        .SetRange Range("A4:G1563")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

mfg wohnwagen