Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Arnold74 vom 04.06.2022, 11:24 Options

Zellen nach Inhalt per Makro auswählen

Ich habe folgendes Problem in Excel. Ich möchte per Makro in einer Excel Datei, also in allen darin enthaltenen Tabelle, alle Zelle finden und markieren, die eine bestimme Formel (Benutzerdefiniert, nicht Excel Standard) enthalten. Also alle Zellen, in denen eine Formel steht die mit =xx. anfängt.

Da die Excel Dateien nicht immer besonders gut aufgebaut sind (stammen nicht von mir), kann ich leider nicht mit Ranges oder Namen arbeiten, sondern muss auf den Zellinhalt selber zugreifen.

Antwort schreiben

Antwort 1 von Hajo_Zi vom 04.06.2022, 13:29 Options

Hallo Arnold,

nicht Zellinhalt sondern


Option Explicit

Sub Arnold()
    MsgBox Range("A1").HasFormula
End Sub

Gruß Hajo

Antwort 2 von Arnold74 vom 04.06.2022, 13:42 Options

Das Beispiel sagt mir, ob eine Zelle eine Formel enthält, ich möchte aber nicht generell prüfen ob eine Formel da ist, sondern ob eine bestimmte Formel da ist.

Also, sagen wir mal ich hätte folgende Excel Tabelle:

a1: 50
b1 : 100
c1: 200
a2: =maximum(a1:c1)
b2: =minimum(a1:c1)
c2: =summe(a1:c1)

mein Makro soll nun alle Zellen markieren, in denen eine Summe berechnet wird, oder noch besser, in denen eine Formel steht, die mit =s beginnt.

Antwort 3 von Hajo_Zi vom 04.06.2022, 13:46 Options

Halo Arnold,

das ist doch nur eine kleine Ergänzung.
MsgBox Mid(Range("A1").HasFormula,2,1)="S"

Gruß Hajo

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken