Nachhilfe für leihe und noch darunter

Bild

Betrifft: Nachhilfe für leihe und noch darunter
von: Thomas
Geschrieben am: 27.07.2015 10:33:28

Hallo,
ich kriege es einfach nicht raus?
hilfe wie kann ich dem Macro sagen das
"intArtS = Sheets("auswertung").Cells.Find("Vorname").Column"
es das Wort in diesem Fall "Vorname", in der zelle b5 findet?
"intArtS = Sheets("auswertung").Cells.Find(wert steht in zelle b5).Column" geht wohl nicht
kann jemand helfen?
liebe grüsse thomas
Private Sub Tabell_ordnen_Click()
'Sub Tabelle_ordnen_Modul()
Dim lz, lz_einf, lngDatR, intLetzteZauswertung As Long
Dim intDatS, intArtS, intRang As Integer
Dim intSpalte1, intSpalte2 As Integer
Dim intLetzteS, intI, intMaxRang As Integer
On Error GoTo ErrExit
lz = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
lngDatR = Sheets("auswertung").Cells.Find("Datum").Row
intDatS = Sheets("auswertung").Cells.Find("Datum").Column
intArtS = Sheets("auswertung").Cells.Find("Vorname").Column

Bild

Betrifft: AW: Nachhilfe für Laie und noch darunter
von: Rudi Maintaire
Geschrieben am: 27.07.2015 10:37:47
Hallo,
intArtS = Sheets("auswertung").Cells.Find(Range("B5")).Column
Gruß
Rudi

Bild

Betrifft: besten dank funktioniert super
von: Thomas
Geschrieben am: 27.07.2015 10:48:34
Hallo Rudi,
besten dank funktioniert super.
Wenn ich mal gross bin kann ich das vielleicht auch mal ( die Hoffnung stirbt zu Letzt )
Du hast mir super geholfen und genau zur richtigen Zeit. hatte schon blasen vom googeln.
vielen Dank auch für die Geschwindigkeit.
liebe grüsse thomas

Bild

Betrifft: besten dank funktioniert super
von: Thomas
Geschrieben am: 27.07.2015 10:48:37
Hallo Rudi,
besten dank funktioniert super.
Wenn ich mal gross bin kann ich das vielleicht auch mal ( die Hoffnung stirbt zu Letzt )
Du hast mir super geholfen und genau zur richtigen Zeit. hatte schon blasen vom googeln.
vielen Dank auch für die Geschwindigkeit.
liebe grüsse thomas

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Excel Matrix, Anzeige gleiche Höchstwerte"