Vba Code Makrorekorder

[Gast 123]

Nachtrag   ein normales Makro gehört bitte in ein normales Modul.  In Tabellen gehören nur Makros die durch ein Tabellen Ereignis aufgerufen werden, z.B. Pivate Sub Worksheet_Change oder Workbbok_OPen, usw.

[snb]

@Gast

Das mache ich anders:
Jedes Makro das angreift auf eine Tabelle, oder von etwas im Arbeitsblatt gestartet wird (z.B. Shape), setze ich im Makromodul des Arbeitsblattes.
Nur die Makros die von mehrere Arbeitsblätter getriggert werden (und natürlich diejenigen die ein Public Varable brauchen) setze ich in ein Algemeines Modul. Und davon brauch ich nur1 pro Exceldatei. Die meisten Exceldateien haben hier überhaupt kein algemeines Makro Modul.

[Gast 123]

Hallo  

@snb  interessante Idee, da bin ich noch nicht drauf gekommen. Hat sogar einen grossen Vorteil. 
Verschiebt man diese Blätter in eine andere Mappe verschiebt man die Makros gleich mit.  Sehr Clever!

mfg Gast 123

[johammer]

Moinmoin,

erst mal vielen Dank an Alle für die rege Beteiligung,

Konnte erst heute Morgen mal die zwei Makro's  von Gast123 testen.

@Gast 123
Das erste Makro läuft einwandfrei, findet den gesuchten Namen aus A1 und springt zur gefundenen Zeile.
Das zweite Makro gibt eine Debuggen Meldung aus und markiert

die Codezeile:   Adr1 = rngSuche.Address_

Wie ich schon erwähnte kenne ich mich mit VBA-Code schreiben nicht aus, somit weiss ich jetzt nicht wo der Fehler liegt. Ich hänge die Datei mit den Makros noch mal an. Wenn du Lust, Zeit und gute Laune hast, schau einmal drüber.

Danke schonmal im Voraus und ein schöns Wochenende

Gruß Jo

[Klaus-Dieter]

Hallo Jo,

nimm mal in dieser Zeile: Adr1 = rngSuche.Address_  den rot markierten Unterstrich raus, dann funktioniert es.

Code:

Sub Mehrfachsuche_MitReturn2()
Dim AcAdr As String, n As Integer
Dim rngSuche As Range, Adr1 As String
AcAdr = ActiveCell.Address
Set rngSuche = Range("A2:K500").Find(What:=Range("A1"), After:=[a2], LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
If rngSuche Is Nothing Then MsgBox "Nicht gefunden!"
'Mehrfach Einträge suchen
Adr1 = rngSuche.Address_
Do
    rngSuche.Activate: n = n + 1
    MsgBox n & "x  gefunden"
    Set rngSuche = Range("A2:K500").FindNext(rngSuche)
Loop Until rngSuche.Address = Adr1
Range(AcAdr).Select
End Sub

[RPP63]

Moin!
[oops, zu spät]
Entferne den Unterstrich _
Dieser ist "eigentlich" ein Zeilenumbruch, der hier aber keinen Sinn macht.

Gruß Ralf

[johammer]

Hallo

@Klaus-Dieter und @RPP 63
ja genau das wars, so einfach kann es sein, wenn man's weiss. 

 

Wünsche Euch noch einen schönen 2. Advent

Gruß

Jo

[Klaus-Dieter]

Hallo Jo,

immer gerne, aber ich sage mal so: wenn man in den beim Auftreten des Fehlers auf Debuggen klickt, wird die Zeile mit dem Fehler gelb markiert. Dann weiß man schon mal, wo man suchen muss. Wir kochen auch nur mit Wasser.