Office: Bestimmte Spalte finden

Hallo ich grüße euch. Ich habe folgende Frage: Ich möchte per VBA eine bestimmte Spalte finden, also ich möchte nach einem bestimmten Wort suchen und ermitteln in welcher Spalte es sich befindet. Ich komme in diesem Fall aber nicht so gut mit der Syntax von "Find" zurecht. So sieht es bei mir aktuell aus:
Code:

Das Wort "Monate" steht bei mir in der E-Spalte, also brauche ich als Rückgabewert eine 5.

:)

 

Hallo Ronny,

versuche es mal so:

Code:

 

Hallo,

kennt man(n) sich nicht aus, dann kann man(n) einfach mal den Cursor auf '.Find' stellen und F1 drücken.

Dann kommt man(n) auf die Hilfeseite und findet dort diesen Code ...

PHP:

         With Worksheets(1).Range("a1:a500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing
End If
End With


 

Hallo Ronny,

bei mir funktioniert das so: Code:

 

Hallo Hasso,

... aber nur solange, bis rngWortsuche Nothing ist ... falls mal nichts gefunden wird ... kriegt man eine wunderschöne Fehlermeldung um die Ohren gehauen. *tongue.gif*

 

Hallo Sabina,

ein paar Anmerkungen:
wenn ich den Cursor in Deinem Code auf .Find stelle und F1 drücke, kriege ich immer die Hilfe zu WorksheetFunction.Find-Methode
Als ich Deinen Code sah, wollte ich es garnicht glauben, daß das so in der Online-Hilfe steht, aber Tatsache, es ist so und es ist wieder mal total falsch!!!
Zu Excel 2003 steht es noch in der Hilfe: Code:

Damals habe ich bemängelt, daß das Schleifenende so lauten sollte: Code:

Denn einmal in der Schleife drin, ist c nicht Nothing und kann nie wieder Nothing werden, da der 1. Find-Befehl vor der Schleife ja eine gültige Zelle geliefert hat.
Vor ca. einem ½ Jahr hatte ich wieder mal einen Korrekturvorschlag an M$ geschickt und die jetzige Version ist eine Katastrophe, da die Schleife zur Endlos-Schleife geworden ist, wenn der 1. gültige Zellwert gefunden wurde.
Hast Du dich noch nicht gefragt, wozu in dieser verhunzten Version firstAddress überhaupt gut sein soll?

Gruß von Luschi
aus klein-Paris

 

Hallo Luschi,

ja, ja, ja, und nein.

Warum soll ich mir Gedanken machen, zu einem Code, den M$ in der Hilfe veröffentlicht ? Der muss doch absolut perfekt sein, sonst würde M$ den doch niiiiiemals in der Hilfe abdrucken ... oder siehst du das anders ?

Set c = .FindNext(c)

 

Hallo Sabina,

Ja-Ja-Ja & nochmals JA...
Wieviel M$ falsch machen kann, zeigen doch die halbjährlichen Zwangs-Updates von Windows 10:
- Ankündigen
- Veröffentlichen
- kurzfristig wieder Zurückziehen
- neu Herausbringen & weitere Zwischenupdates folgen
Mal sehen, was Update 19-03 so auf Lager hat, aber Office & Visual Studio sind ist ja da auch nicht besser; für das Letztere habe ich allein in 6 Monaten 5,5 GByte an Updates downloaden müssen - einfach Wahnsinn.
Ich befürchte, wenn Mobilfunkstandard G5 implementiert ist, dann gibt es Stunden-Updates, d.h. die neu gewonnene Downloadgeschwindigkeit wird mit Updates verplempert statt mit neuen Inovationen, die auch funktionieren ohne den Update-Wahnsinn.
Auch in Excel 2010 bleibt dieser Code so eine Endlosschleife!

Gruß von Luschi
aus klein-Paris

 

Vielen Dank, das hat funktioniert *Smilie