title image


Smiley Leere Zeilen automatisch löschen ...
Hallo,ich zwar nicht der grosse Excel-Profi, aber vielleicht hilft dir folgendes: Const xlUp = -4162 '(&HFFFFEFBE) Dim objExcel As Object Dim sSheet As String Dim sRange As String Dim sMsg As String Dim lRows As Long Dim lRCount As Long Set objExcel = CreateObject("Excel.Application") objExcel.Workbooks.Open FileName:="C:\MySheet.xls" If Not objExcel.ActiveSheet Is Nothing Then sSheet = objExcel.ActiveSheet.Name sMsg = "Sollen die Zelleninhalte jetzt überprüft werden?" If MsgBox(sMsg, vbYesNo, sSheet) = vbNo Then Exit Sub Else MsgBox "Es wurde kein aktives Arbeitsblatt gefunden!", vbExclamation Exit Sub End If lRows = objExcel.ActiveSheet.UsedRange.Rows.Count 'Zeilenanzahl If Not lRows > 1 Then MsgBox "Es wurden keine Daten gefunden!", vbExclamation Exit Sub End If ' For lRCount = 2 To lRows 'Überschrift auslassen For lRCount = 1 To lRows 'keine Überschrift vorhanden If IsEmpty(objExcel.ActiveSheet.Cells(lRCount, 3).Value) Then sRange = CStr(lRCount) & ":" & CStr(lRCount) objExcel.Rows(sRange).Select objExcel.Selection.Delete Shift:=xlUp End If Next lRCount objExcel.ActiveWorkbook.Save objExcel.Quit Set objExcel = NothingGruß, Stefan

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: