Zellen prüfen



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Zellen prüfen
von: Martin
Geschrieben am: 04.07.2002 - 14:20:53

Hallo!
Ich habe fogendes Problem:
Ich möchte eine Makro produzieren, der mir einen Bereich (z.B.: A1:C30) alle Zellen auf Inhalt überprüft, dabei sollte es keine Rolle spielen ob es sich dabei um ein Datum handelt oder um eine Wert.
Bei vorhandensein eines Inhaltes sollte der Makro diesen Speichern und in der Spalte D untereinander ausgeben.
Für ihre Unterstützung bedanke ic mich im Voraus.
mfg Martin
nach oben   nach unten

Re: Zellen prüfen
von: Max
Geschrieben am: 04.07.2002 - 14:33:20

Hallo Martin.

Vielleicht hilft dies:

Option Explicit

Sub FindeWerte()

Dim QuellBereich As Range
Dim ZielBereich As Range
Dim Element As Range
Dim ZielZeile As Long

Set QuellBereich = Range("Hugo")
Set ZielBereich = Range("Ziel")
ZielZeile = ZielBereich.Row

For Each Element In QuellBereich
If (Element <> "") Then
Cells(ZielZeile, ZielBereich.Column) = Element
ZielZeile = ZielZeile + 1
End If
Next Element

End Sub

nach oben   nach unten

Re: Zellen prüfen
von: Max
Geschrieben am: 04.07.2002 - 14:39:00

Nochmal Max.

Vielleicht noch einige Erläuterungen:

"Hugo" ist der im Sheet benamste Bereich "A1:C31".
"Ziel" ist der Name von D1.

Max

nach oben   nach unten

Re: Zellen prüfen
von: Martin
Geschrieben am: 04.07.2002 - 14:42:22

Hallo Max!
Danke, es hat funktioniert!
Martin

nach oben   nach unten

oder so
von: MikeS
Geschrieben am: 04.07.2002 - 14:50:44


Option Explicit

Sub SuchenUndÜbernehmen()
  Dim Zelle
  Dim Bereich
  Set Bereich = Range("A1:C30")
  Range("D1").Select
    For Each Zelle In Bereich
      If Not IsEmpty(Zelle) Then
      ActiveCell.Value = Zelle.Value
      ActiveCell.Offset(1, 0).Select
      End If
    Next
End Sub

Ciao MikeS

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Zellen prüfen"