VBA-COde falsch Korrigiert
31.05.2013 09:15:25
Jackd
So sah es ursprünglich aus und funktionierte (das ganze select-gedöns wollt ich allerdings rauswerfen)
Sheets("Fallalt").Select
C = "Entgeltbereich"
If Not WorksheetFunction.CountIf(Sheets("Fallalt").Rows(1), C) = 0 Then
cHeader = WorksheetFunction.Match(C, Rows(1), 0)
Range(Cells(1, cHeader), Cells(I, cHeader)).Select
Selection.Copy
Sheets("Fall_mod").Select
Range("C1").Select
ActiveSheet.Paste
Else
Sheets("Fall_mod").Select
Range("C1").Select
ActiveCell.FormulaR1C1 = "Entgeltbereich"
Sheets("Fall_mod").Select
Range("C2").Select
ActiveCell.FormulaR1C1 = "keine Werte"
End If
Jetzt der geänderte Code der bei der .match Funktion hängen bleibt (Fehler 1004)With Worksheets("Fallalt")
I = .UsedRange.Rows.count
'Spalte A
A = "IK"
If Not WorksheetFunction.CountIf(Sheets("Fallalt").Rows(1), A) = 0 Then
aHeader = WorksheetFunction.Match(A, Rows(1), 0)
Sheets("Fall_mod").Range(Cells(1, aHeader), Cells(I, aHeader)) = _
.Range(Cells(1, aHeader), Cells(I, aHeader))
Else
Worksheets("Fall_mod").Range("A1") = "IK"
Worksheets("Fall_mod").Range("A2") = "keine Werte"
End If
End with
Und ja, ich weiss das es um verschiedene Bereiche dabei geht, dass ist auch egal, es geht um die Syntax nicht um die Konkreten Bereiche Wenn jemand Rat weiss wär ich durchaus dankbar =)
Grüße