Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1380to1384
1380to1384
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Reihenindex einer bestimmten Zell auslesen

Forumthread: Reihenindex einer bestimmten Zell auslesen

Reihenindex einer bestimmten Zell auslesen
15.09.2014 18:55:25
Oliver
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

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Reihenindex einer bestimmten Zell auslesen
15.09.2014 18:56:18
Oliver
der Titel ist falsch. Es sollte eigentlich "Spaltenindex einer..." heißen.

AW: Reihenindex einer bestimmten Zell auslesen
15.09.2014 19:09:08
Oliver
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!

Anzeige
AW: Reihenindex einer bestimmten Zell auslesen
15.09.2014 19:12:59
Mullit
Hallo,
top:: zu schnell für mich....
Gruß,

AW: Reihenindex einer bestimmten Zell auslesen
15.09.2014 23:54:44
Adis
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

Anzeige
AW: Reihenindex einer bestimmten Zell auslesen
15.09.2014 19:10:10
Mullit
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ß,
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.05.2026 13:47:03
Laufende Uhrzeit in einer Zelle
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum