Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
860to864
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
860to864
860to864
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

bestimmten Bereich durchsuchen (einfach)

bestimmten Bereich durchsuchen (einfach)
18.04.2007 17:22:00
Vroni
Hallo!
Ich hab ein kleines Problem mit einem einfachen Makro und komm aber nicht dahinter!
Ich will mit einem Makro die Zellen von bspw. G15 - G35 durchgehen und sobald in einer der Zellen "x" drin steht, in eine andere Zelle (bspw. F40) einen festen Wert eintragen.
Ich habe gedacht, dass es mit
If Sheets("Tabelle1").Range("G15:G35").Value = "x" Then
Sheets("Tabelle1").Cells(40, 6).Value = "irgendwas"
End If
funktioniert. Aber irgendwie bekomme ich immer einen Fehler und ich glaube, dass es an dem Range("...:...") liegt!?
Aber allzu falsch kann ich von der Lösung doch nicht weg sein, oder?
Danke für eure Hilfe,
Vroni

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: bestimmten Bereich durchsuchen (einfach)
18.04.2007 17:31:03
Oberschlumpf
Hi Vroni
Könntest du nicht in Zelle F40 diese Formel schreiben:
=WENN(ZÄHLENWENN(G15:G35;"x") > 1;"fester Wert";"")
Für "fester Wert" musst du natürlich deinen festen Wert eintragen.
Konnte ich helfen?
Ciao
Thorsten

AW: bestimmten Bereich durchsuchen (einfach)
18.04.2007 17:42:14
Vroni
Hallo Thorsten!
Hm, deine Lösung funktioniert nicht ganz, da beim Aufruf des Makros zuerst alle Zellen(-inhalte) gelöscht werden. Im zweiten Schritt werden die Zellen dann gefüllt und dann will ich schauen, wo "x" drin steht.
Daher sollte dies im Makro passieren, da sonst die Formel ja gelöscht wird.
Hast noch ne andere Lösung?
Danke und Grüße
Vroni

Anzeige
AW: bestimmten Bereich durchsuchen (einfach)
18.04.2007 17:37:36
Kurt

Sub x()
With Sheets("Tabelle1")
If Application.CountIf(.[G15:G35], "x") > 0 Then
.Cells(40, 6) = "irgendwas"
End If
End With
End Sub


mfg Kurt

AW: bestimmten Bereich durchsuchen (einfach)
18.04.2007 17:49:00
Vroni
Ah, so geht das!
Jetzt funktioniert es! Oh man, und ich bin beinahe verzweifelt!
Klasse Forum, ging ja rasend schnell!
Danke, danke!!
Vroni

AW: bestimmten Bereich durchsuchen (einfach)
18.04.2007 17:50:18
Vroni
Ups, vergessen Frage zu schließen! :)

wegen erledigt! oT
18.04.2007 17:53:00
zu
zu

209 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige