Löschen von Zellen im Case-Fall
28.01.2014 11:04:35
Zellen
ich habe unten aufgeführtes Makro, welches mir bei bestimmten Werten in Spalte B in eine andere Spalte etwas reinschreibt.
Nun habe ich das Problem, dass wenn ein bestimmtes Wort in Spalte B vorkommt
die Zellen von A-F in der entsprechenden Zeile geleert werden muss.
(Also wenn Wort XXXX in B, dann lösche den Inhalt A-F)
Ich hatte das Makro auch entsprechend erweitert, aber
mit meiner Idee, löscht er mir die Spalte A nicht.
Könntet ihr mal drauf schauen und mir einen Tipp geben bitte ?
Anbei das Makro, den neuen Teil mit der Idee habe ich fett makiert
Meine Idee löscht mir auch B-F, aber leider nicht die entsprechende Zelle in Spalte A
Sub Fiktive_Stapelbezeichnung_Gegenstandsart()
' Version ohne Formeln im Bereich B-E
Dim lngCalc As Long
Dim arr, i As Long
Sheets("Scan Tag alle").Select
With Application
lngCalc = .Calculation
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
arr = Range(Cells(1, 2), Cells(Rows.Count, 2).End(xlUp)).Resize(, 4)
For i = 1 To UBound(arr)
Select Case arr(i, 1)
Case "4700"
arr(i, 4) = "A47"
Case "6201"
arr(i, 4) = "A62"
Case "6850"
arr(i, 4) = "A68"
Case "4001
arr(i, 4) = "ARest"
End Select
Next i
' Meine Idee :
arr = Range(Cells(1, 2), Cells(Rows.Count, 2).End(xlUp)).Resize(, 4)
For i = 1 To UBound(arr)
Select Case arr(i, 1)
Case "XXXX"
arr(i, 0) = ClearContents
arr(i, 1) = ClearContents
arr(i, 2) = ClearContents
arr(i, 3) = ClearContents
arr(i, 4) = ClearContents
End Select
Next i
Cells(1, 2).Resize(UBound(arr), 4) = arr
Application.Calculation = lngCalc
End Sub
Danke im Voraus
Viele Grüße
Toumas