Nachhilfe für leihe und noch darunter
27.07.2015 10:33:28
Thomas
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