Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 09:53:18
Wartungsliste automatisch aktualisieren
24.04.2024 09:36:02
Wenn Wert x in Zelle a, dann Wert y in Zelle b
24.04.2024 09:24:20
Textketten erstellen mit unterschiedlichen Anzahl an Feldern
24.04.2024 09:04:14
Erfahrung Umstieg in Sharpoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
244to248
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
244to248
244to248
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

wenn..., dann...

wenn..., dann...
22.04.2003 10:51:06
mehmet 



hallo zusammen,

folgende wenn, dann frage zu einem makro:


wenn spalte d2 leer,

 dann

 wenn d3 leer dann                  'beginne mit mappe1 und zelle d3

 d2 bis d10 löschen,                'es sollen 10 reihen gelöscht werden 

 sonst gehe zu d3.                  'sonst eine reihe tiefer und von neu

                                    'bis zelle d30


ich hoffe, dass ich mich ausdrücken konnte
dank und gruss




7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: wenn..., dann...
22.04.2003 15:32:29
moe
Ne das war leider nichts Erklär es bitte nochmal kann dir bestimmt helfen

Gruss

moe

Re: wenn..., dann...
22.04.2003 16:33:57
Ingo
Hi ...

Wenn ich Deine Frage richtig verstanden habe, dann dies hier mal als Lösungsansatz:

Sub Test()
If Range("D2") = "" Then
If Range("D3") = "" Then
Range("D2:D10").ClearContents
Else
Range("D3").Select
End If
End If
End Sub

Gruß
Ingo

Re: wenn..., dann...
23.04.2003 00:40:47
mehmet
besten dank für dein forschlag ingo
allerdings passiert leider nichts!

wenn active.sheet "d2" leer, dann gucken ob
zelle "d3" auch leer ist
wenn ja, dann zehn reihen ab d2 nach unten löschen, sonst
offset eine zelle tiefer gehen und wieder scleife mit "d3" abfragen

moe, ich hoffe diesmal konnte ich es besser darstellen

dank an euch beide und hoffe,
eine lösung zu bekommen
gruss

Anzeige
Lösung
23.04.2003 03:07:09
moe
Hallo Mehmet

also mehmet wenn ich dich richtig werstanden habe sollte das funktionieren.

Konnte es leider nur excel XP testen
sollte aber trotzdem gehen.

Gruss
moe
Bitte sag beschei ob es funktioniert hat.

Sub Zellenlöschen()

'Erstell von moe3008@aol.com für das Herber Forum


Dim z As Integer
Range("d3").Activate
z = ActiveSheet.UsedRange.Rows.Count
For i = 1 To z
If IsEmpty(ActiveCell) = True And IsEmpty(ActiveCell.Value) = True Then
Range(ActiveCell, ActiveCell.Offset(10, 0)).ClearContents
ActiveCell.Offset(10, 0).Activate
End If
ActiveCell.Offset(1, 0).Activate
Next i
End Sub

Anzeige
Re: Lösung
26.04.2003 07:55:42
mehmet
dank dir moe
leider lauft es nicht
schade
aber es passiert was

es sollen also zellinhalte (10reihen nach unten) geloescht werden,
wenn die aktive zelle und dadrunterliegende zelle leer ist.

drotzdem dank und gruss

Re: Lösung
27.04.2003 02:09:08
moe
Wie es läuft nicht schreib mir mal eine Mail und sag mir was nicht funktioniert.

bei mir hatt es geklappt
Gruss
moe

Re: Lösung
27.04.2003 02:23:59
moe3008
Du hast recht da war ein Tippfehler drin hier nimm diesen code

Gruss

moe
sag bescheid ob es klappt

Sub Zellenlöschen()

'Erstell von moe3008@aol.com für das Herber Forum


Dim z As Integer
Range("d3").Activate
z = ActiveSheet.UsedRange.Rows.Count
For i = 1 To z
If IsEmpty(ActiveCell) = True And IsEmpty(ActiveCell.Offset(1, 0).Value) = True Then
Range(ActiveCell, ActiveCell.Offset(10, 0)).ClearContents
ActiveCell.Offset(10, 0).Activate
End If
ActiveCell.Offset(1, 0).Activate
Next i
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige