Thema Datum  Von Nutzer Rating
Antwort
12.05.2014 15:53:27 QuarkTasche
NotSolved
12.05.2014 18:36:19 Gast3560
NotSolved
Rot Leere Zelle ist trotzdem nicht leer
 12.05.2014 19:49:24 Gast18117
NotSolved

Ansicht des Beitrags:
Von:
Gast18117		 Datum:
12.05.2014 19:49:24		 Views:
700		 Rating:
     
Antwort:
  Ja
Thema:
Leere Zelle ist trotzdem nicht leer		 
Rem Versuch macht klu.....
Sub TestThis()
Dim strLookAt As String
Dim rngUsed As Range, c As Range
Dim lngx As Long


'fill it - use a clean sheet !!!
  Sheets.Add
  Range("A1").Select
  Range("A2").Value = "a a"
  Range("B3").Value = "b       b"

  Range("C400").Value = Chr(32)
  Range("DD500").Value = " " 'as same character
  'and so on

'test it
  MsgBox "UsedRange " & ActiveSheet.UsedRange.Address
  strLookAt = " "
  MsgBox "found at " & Cells.Find(What:=strLookAt, LookAt:=xlWhole).Address
  MsgBox "found next " & Cells.FindPrevious.Address
'
  Set rngUsed = ActiveSheet.UsedRange
'
'doit
  Application.Calculation = xlCalculationManual
  Application.ScreenUpdating = False
'
  Set rngUsed = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, 23)
    For Each c In rngUsed
        c.Value = WorksheetFunction.Clean(c.Value)
        c.Value = Trim(c.Value)
        'c.Value = WorksheetFunction.Trim(WorksheetFunction.Clean(c.Value))
    Next
'
  Application.Calculation = xlCalculationAutomatic
  Application.ScreenUpdating = True
'
'test again
  MsgBox "UsedRange " & ActiveSheet.UsedRange.Address
  If Not Cells.Find(What:=strLookAt, LookAt:=xlWhole) Is Nothing Then _
    MsgBox "found !"
  If Not Cells.FindPrevious Is Nothing Then _
    MsgBox "found next  !"
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
12.05.2014 15:53:27 QuarkTasche
NotSolved
12.05.2014 18:36:19 Gast3560
NotSolved
Rot Leere Zelle ist trotzdem nicht leer
 12.05.2014 19:49:24 Gast18117
NotSolved