AW: Zelle mit Text befüllen, wenn andere Zelle gefüllt
21.07.2011 15:13:10
fcs
Hallo Günther,
Hausaufgaben sollte man schon mal versuchen selber zu lösen.
Soll die Aufgabe so lauten, oder lautet sie so?
Den letzten Satz, den du mit "..." bendet hast kann ich natürlich nicht nachvollziehen. Welche Zeile(n) sollen gelöscht werden?
Gruß
Franz
Sub Pruefe_Spalte_F()
Dim wks As Worksheet, Zeile As Long, ZeileLetzte As Long, bLoeschen As Boolean
Const Marke = "X"
Const Spalte As Long = 6 'Nummer der Spalte F
Set wks = ActiveSheet
With wks
'Letzte Zeile in Spalte F mit Daten
ZeileLetzte = .Cells.SpecialCells(xlCellTypeLastCell).Row
'Zellen in Spalte G markieren, die in F nicht leer sind
For Zeile = ZeileLetzte To 1 Step -1
If IsEmpty(.Cells(Zeile, Spalte)) Then
.Cells(Zeile, Spalte).Offset(0, 1).ClearContents
bLoeschen = True
Else
.Cells(Zeile, Spalte).Offset(0, 1).Value = Marke
End If
Next Zeile
'Zeilen löschen, aber welcher? , Löschen kann man natürlich auch in der Schleife. _
geht aber ggf. wesentlich langsamer
If bLoeschen = True Then
'Zeilen, die in F bzw. G leer sind, löschen ?
.Range(.Cells(1, Spalte + 1), _
.Cells(ZeileLetzte, Spalte + 1)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End If
End With
End Sub