nervi versteht es einfach nicht
03.08.2015 20:12:53
Thomas
ich nerve euch bestimmt langsam, aber ich verstehe es einfach nicht.
Warum geht das nicht. Ich möcht dem macro sagen das intxt im Tabellenblatt Filtereinstellungen steht mit intTxt = Worksheets("Filtereinstellung").Cells(10, 2).Column oder value oder oder keine Ahnung
und dann hier auslesen intArtS = Sheets("Auswertung").Cells.Find(intTxt).Column
aber ich bekomme immer ein denkste von excel. Ohne dem kann ich dies super Macro nicht nutzen oder nur sehr eingeschränkt.
Ich habe bestimmt schon 1000 versuche gestartet nix da. Selbst mit der hilfe von Matthias kriege ich es nicht hin. Aber es muss doch gehen? Habe mir auch schon ein Buch gekauft aber da steht auch nichts.
kann mir dies jemand kurz erklären was ich falsch mache?
liebe grüsse thomas
Kann jemand helfen?
Dim intTxt As String
On Error GoTo ErrExit
intTxt = Worksheets("Filtereinstellung").Cells(10, 2).Column '
intDatS = 10
lngDatR = 10
intArtS = 10
'Txt = Worksheets("Filtereinstellung").Range("B10") ' Cells.Find(Range("B5")).Column
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(intTxt).Column ' alt Cells.Find("Datum).Column
intLetzteS = Sheets("auswertung").Cells(lngDatR, Columns.Count).End(xlToLeft).Column
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
Dim intTxt As String
On Error GoTo ErrExit
intTxt = Worksheets("Filtereinstellung").Cells(10, 2).Column
intDatS = 10
lngDatR = 10
intArtS = 10
'Txt = Worksheets("Filtereinstellung").Range("B10") ' Cells.Find(Range("B5")).Column
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(intTxt).Column ' alt Cells.Find("Datum).Column
intLetzteS = Sheets("auswertung").Cells(lngDatR, Columns.Count).End(xlToLeft).Column
intLetzteZauswertung = Sheets("Filtereinstellungen").Cells(lngDatR, Columns.Count).End(xlToLeft) _
.Row
lz_einf = Sheets("auswertung").Cells(Rows.Count, intDatS).End(xlUp).Offset(1, 0).Row
intRang = 2
intMaxRang = Application.WorksheetFunction.Max(Sheets("Filtereinstellungen").Range("C1:C9"))
Application.ScreenUpdating = False
For intI = 2 To intLetzteZauswertung
If Sheets("Filtereinstellungen").Cells(intI, 3).Value = intRang Then
intSpalte1 = Sheets("Filtereinstellungen").Cells(intI, 2).Value
End If
Next intI
If intRang 0 Then
MsgBox "Fehler in Prozedur:" & vbTab & "'daten'" & vbLf & String(60, "_") & vbLf & vbLf & _
_
IIf(Erl, "Fehler in Zeile:" & vbTab & Erl & vbLf & vbLf, "") & "Fehlernummer:" & vbTab & _
_
.Number & vbLf & vbLf & "Beschreibung:" & vbTab & .Description & vbLf, vbExclamation + _
_
vbMsgBoxSetForeground, "VBA - Fehler in Prozedur - daten"
.Clear
End If
End With
On Error GoTo 0
End Sub