Artikel ohne Ar

Forumthread: Artikel ohne Ar

Artikel ohne Ar

08.11.2006 08:41:57

thomas

Hallo Profis,
ich hab folgendes Problem,
da ich nicht gut mit VBA bin brauch ich Eure Hilfe.
Ich habe in Tabelle 1eine Liste mit Artikeln.
In Tabelle 2 wir die gleiche Liste kopiert nur jetzt
möchte ich alle die keine Artikelnr. haben löschen.
Die Artikelnr steht in E
Wie kriegt ich das als Makro hin?
Guß
Thomas

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Artikel ohne Ar

08.11.2006 08:49:23

heikoS
AW: Artikel ohne Ar

08.11.2006 08:54:26

Thomas
AW: Artikel ohne Ar

08.11.2006 09:09:39

Erich
AW: Artikel ohne Ar

08.11.2006 10:16:20

Thomas
AW: Artikel ohne Ar

08.11.2006 10:56:45

IngGi
AW: Artikel ohne Ar

08.11.2006 11:13:34

Thomas

AW: Artikel ohne Ar

08.11.2006 08:49:23

heikoS

Hallo Thomas,
Rückfrage: muß es per Makro sein?
Denn das geht ganz einfach per Spezialfilter.
Gruß Heiko

AW: Artikel ohne Ar

08.11.2006 08:54:26

Thomas

Hallo Heiko
wär mir schon lieber,
hab natürlich nicht die ganze Situation aufgeschrieben.
Die Liste soll auch automatisch kopiert und sortiert werden, aber das krieg ich hin.
Es wird ja in der Liste in tabelle 1 gearbeitet, es kommen neue Artikel dazu, bei manchen wird die Artikelnr. gelöscht.
Und der Mensch der die bearbeitet ist nicht umbedingt ein PC Profi, soll heißen mit Spezialfilter brauch ich dem nicht zu kommen.
Deshalb wollte ich ein Makro an einen Button hängen.
Der Kopiert, sortiert und die leeren rausschmeißt.
Deshalb sollte es ein makro sein.
Gruß
Thomas

AW: Artikel ohne Ar

08.11.2006 09:09:39

Erich

Hallo Thomas,
schau mal in
https://www.herber.de/forum/archiv/816to820/t816533.htm
Die Anpassung kannst du mit Makroaufzeichnung hinkriegen.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

AW: Artikel ohne Ar

08.11.2006 10:16:20

Thomas

Hallo Erich,
ich hab folgendne Code verwendet und für meine Tabelle verädert.
Allerdings geht das nur in E5 also der Startzelle.
Weiter macht er nicht.


Sub Makro1()
Dim Zelle As Range
Set Zelle = Range("e5") 'Startzelle
Do
If Len(Zelle.Value) = 0 Then Range(Zelle.Offset(0, -4), Zelle.Offset(0, 6)).ClearContents
Set Zelle = Zelle.Offset(10, 0)
Loop Until Zelle.Value = ""
End Sub

Was mach ich da?
Ich hätte da auch noch ne weitere Frage.
Vielleicht kannst du mir da auch helfen.
Ist im Grunde das gleiche, er soll nur auch dann die Zellen löschen wenn in "E" Text steht.
Gruß
Thomas

AW: Artikel ohne Ar

08.11.2006 10:56:45

IngGi

Hallo Thomas,
versuch's mal so:

Sub Makro1()
Dim Zelle As Range
Set Zelle = Range("e5") 'Startzelle
Do
   If Len(Zelle.Value) = 0 Or Not IsNumeric(Zelle) Then
      Range(Zelle.Offset(0, -4), Zelle.Offset(0, 6)).ClearContents
   End If
   Set Zelle = Zelle.Offset(10, 0)
Loop Until Zelle.Row > Range("A65536").End(xlUp).Row
End Sub

Gruß Ingolf

AW: Artikel ohne Ar

08.11.2006 11:13:34

Thomas

Hallo Ingolf
vielen Dank,
das läuft wie geschmiert.
Gruß
Thomas

Beliebteste Forumthreads (12 Monate)

Forumthread: Artikel ohne Ar

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread