PDA

Vollständige Version anzeigen : Zeilenpostion ermitteln


CreatorX
19.03.2009, 07:51
Hallo, wie kann ich die Position einer Zeile ermitteln? Also von A2 bis A100 stehen bestimmte Worte. Jetzt möchte ich, das mir die Nummer der A-Spalte ausgegeben wird, in der ein bestimmtes Suchwort gefunden wurde. Danke.

Case_Germany
19.03.2009, 10:22
Hallo, :)

per Formel so:

<table border='1' cellspacing='0' cellpadding='2' valign='middle' colspan='5' style='font-family:Calibri; color:#000000; background-color:#FFFFFF; font-size:11px; font-weight:normal; font-style:normal; '><colgroup><col width='28pt'><col width='198pt'><col width='60pt'><col width='60pt'><col width='60pt'></colgroup><tr style='background-color:#FAFAFA'><td align='middle' colspan='5'>Arbeitsblatt mit dem Namen 'Tabelle1'</td></tr><tr style='background-color:#cacaca'><td>*</td><td align='middle'>A</td><td align='middle'>B</td><td align='middle'>C</td><td align='middle'>D</td></tr><tr><td style='background-color:#cacaca' align='middle'>1</td><td align='right' style='font-family:Arial; font-size:10px; ' >12</td><td align='right' style='font-family:Arial; font-size:10px; ' >*</td><td align='right' style='font-family:Arial; font-size:10px; ' >*</td><td align='right' style='font-family:Arial; font-size:10px; ' >3</td></tr><tr><td style='background-color:#cacaca' align='middle'>2</td><td align='right' style='font-family:Arial; font-size:10px; ' >14</td><td align='right' style='font-family:Arial; font-size:10px; ' >*</td><td align='right' style='font-family:Arial; font-size:10px; ' >*</td><td align='right' style='font-family:Arial; font-size:10px; ' >*</td></tr><tr><td style='background-color:#cacaca' align='middle'>3</td><td align='left' style='font-family:Arial; font-size:10px; ' >Donaudampfschifffahrtsgesellschaftskapitän</td><td align='right' style='font-family:Arial; font-size:10px; ' >*</td><td align='right' style='font-family:Arial; font-size:10px; ' >*</td><td align='right' style='font-family:Arial; font-size:10px; ' >*</td></tr><tr><td style='background-color:#cacaca' align='middle'>4</td><td align='right' style='font-family:Arial; font-size:10px; ' >1445</td><td align='right' style='font-family:Arial; font-size:10px; ' >*</td><td align='right' style='font-family:Arial; font-size:10px; ' >*</td><td align='right' style='font-family:Arial; font-size:10px; ' >*</td></tr><tr><td style='background-color:#cacaca' align='middle'>5</td><td align='right' style='font-family:Arial; font-size:10px; ' >1255</td><td align='right' style='font-family:Arial; font-size:10px; ' >*</td><td align='right' style='font-family:Arial; font-size:10px; ' >*</td><td align='right' style='font-family:Arial; font-size:10px; ' >*</td></tr></table><br><table border='3' cellspacing='0' cellpadding='2' valign='middle' colspan='2' style='table-layout:auto; color:#000000; background-color:#FFFFFF; font-family:Calibri; font-size:10px;'><colgroup><col width='40pt'><col></colgroup><tr style='background-color:#eeaaaa'><td>Zelle</td><td>Formel</td></tr><tr><td>D1</td><td><Span style='color:#222222'>=VERGLEICH</Span><Span style='color:#0000DD'>("Donaudampfschifffahrtsgesellschaftskapitän";A:A;0)</Span><Span style='color:#222222'></Span></td></tr></table>

per VBA so:

Option Explicit

Public Sub Zeile_Ausgeben()
Dim strSearch As String
Dim lngRow As Long
strSearch = "Donaudampfschifffahrtsgesellschaftskapitän" ' anpassen
On Error Resume Next
lngRow = Worksheets("Tabelle1").Range("A2:A100").Find _
(strSearch, LookIn:=xlFormulas, LookAt:=xlWhole).Row
If Err.Number = 0 Then
MsgBox "Suchbegriff: " & strSearch & " in Zeile " & lngRow & " gefunden!"
Else
MsgBox "Keine Fundstelle!"
End If
End Sub

Servus
Case

CreatorX
19.03.2009, 11:41
Ok, danke erstmal. Ja die VBA-Lösung ist gesucht. Also deine Lösung funktioniert leider nur wenn das Wort direkt in der Zelle steht, aber leider nicht bei einem Verweis ala "=F36" .Geht das auch irgendwie mit solchen Verweisen?

IngGi
19.03.2009, 11:49
Hallo CreatorX,

ersetze beim Parameter LookIn xlFormulas durch xlValues.

Gruß Ingolf

CreatorX
22.03.2009, 16:38
Danke, jetzt funktionierts wie es soll!