Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Reihenindex einer bestimmten Zell auslesen

Betrifft: Reihenindex einer bestimmten Zell auslesen von: Oliver
Geschrieben am: 15.09.2014 16:55:25

Hi Leute,

ich habe eine Tabelle, in der es irgendwo eine Zelle gibt, deren Inhalt "Gewinn" lautet. Was ich nun brauche, ist ein Makro, das diese Zelle findet und ihren Spaltenindex in die Variable "SpalteGewinn" schreibt. Wer kann mir helfen? Ich stehe auf dem Schlauch.

Herzlichen Dank!

Lieben Gruß Oliver

  

Betrifft: AW: Reihenindex einer bestimmten Zell auslesen von: Oliver
Geschrieben am: 15.09.2014 16:56:18

der Titel ist falsch. Es sollte eigentlich "Spaltenindex einer..." heißen.


  

Betrifft: AW: Reihenindex einer bestimmten Zell auslesen von: Oliver
Geschrieben am: 15.09.2014 17:09:08

ok, hab jetzt folgende Lösung gefunden:

Dim Gewinn as Range
Set Gewinn = ThisWorkbook.Range("A1:Z100").Find("Gewinn")

Dim SpalteGewinn as Long
SpalteGewinn = Gewinn.Column
vielleicht hilft's ja wem ;-)

Oliver!


  

Betrifft: AW: Reihenindex einer bestimmten Zell auslesen von: Mullit
Geschrieben am: 15.09.2014 17:12:59

Hallo,

top:: zu schnell für mich....

Gruß,


  

Betrifft: AW: Reihenindex einer bestimmten Zell auslesen von: Adis
Geschrieben am: 15.09.2014 21:54:44

Hallo

ich habe das Makro mal getestet. Fehlermeldung völlig korrekt. Es fehlt das Tabellenblatt!
Ohne Tabellenblatt wird auf die Mappe zugegriffen. Aber das ist keine Tabelle mit Werten!

Set Gewinn = ThisWorkbook.Sheets("Tabelle1").Range("A1:Z100").Find("Gewinn")

Gruss Adis


  

Betrifft: AW: Reihenindex einer bestimmten Zell auslesen von: Mullit
Geschrieben am: 15.09.2014 17:10:10

Hallo,

null Problemo:

Option Explicit

Public Sub test()
Dim lngSpalteGewinn As Long
On Error Resume Next
lngSpalteGewinn = Cells(1, 1).Resize(Rows.Count, Columns.Count).Find(What:="Gewinn", LookIn:= _
xlValues, LookAt:=xlWhole).Column
If Err.Number = 0 Then MsgBox lngSpalteGewinn
End Sub

Gruß,


 

Beiträge aus den Excel-Beispielen zum Thema "Reihenindex einer bestimmten Zell auslesen"