VBA/XLS: Leere Zeilen gem. Filterergebnis

Computer: Software & Programmierung Office Software
1

ahoi zusammen,

ich habe eine frage zu makros in xls:

folgende situation:
eine xls datei mit 3 mappen M1, M2, M3
M1: liste von Herstellernamen mit email adressen
M2: liste von allen Produkten von allen Herstellern
M3: diese mappe dient zur email anlage als pdf
und beinhaltet knöpf/schaltflächen mit Makros zur individualisieren
des Inhaltes/ Auflistung der daten aus M2 in M3

bislang nutze ich folgendes makro um die werte zu generieren,
die in einem festgelegten Bereich in M3 aufgelistet werden sollen.

Sub Makro6()
’
’ Makro6 Makro
’
Range(„B15:smiley:40“).Select
Sheets(„M2“).Range(„Q20:T100“).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range(„I7:I8“), CopyToRange:=Range(„B15:smiley:40“), Unique:= _
False
End Sub

gerne möchte ich diesen bislang festgelegten fixen zeilenbereich Range(„B15:smiley:40“) nun variabel haben,
da sich je nach hersteller Range(„I7:I8“) stellenweise nur 1 produkt in der liste/zeilenbereich wiederfindet und somit ein großer, unnötig leerer Bereich bleibt, der lieber von den nachfolgenden texten/ zellen zu verwenden wäre…

also irgendwie eine dynamische zeilenerstellung in M3 nach anzahl der zeilen, die das filterergebnis aus M2 ergibt und es wieder zum layoutursprung zurückkehrt.

der ziel zeilenbereich in M3 wäre ab zeile x
bsp: Hersteller a hat 20 Produkte => 20 zeilen müssten in M3 ab zeile x erstellt werden
hersteller b hat 2 Produkte => 2 zeilen müssten in M3 ab zeile x erstellt werden

das layout reset könnte man voher oder nacher machen… vorher wäre aber glaub ich sinnvoller…

ja… das wärs… sicher ein klax für euch… für mich imo unmöglich… daher wäre eure hilfe echt suuper !!

lg, tanja

2

Hallo Tanja
ich bin leider nur Access-VBA Spezialist, ich bin sicher, ein Excel Freek kann dir da helfen

Freundliche Grüsse
fonti46

3

Hallo,

mit Makros habe ich mich schon sehr lange nicht mehr beschäftigt.

Momentan kann ich Dir darum nicht helfen.

LG

4

Servus,

vielleicht hilft Dir das weiter:
Sub test()

Dim m3 As Excel.Range
Set m3 = Sheets(„m3“).UsedRange
m3.Clear

Dim m2 As Excel.Range
Set m2 = Sheets(„m2“).Range(„Q20:T100“)

Dim foundRange As Excel.Range
Set foundRange = m2.Find(what:=m2.Range(„I7“).Value)
findAdr = foundRange.Address

startRow = 15

If foundRange Is Nothing = False Then
Do Until findAdr = lastfindAdr

ro = foundRange.Row
m3.Cells(startRow, 2) = foundRange.Cells(1, 1)
m3.Cells(startRow, 3) = foundRange.Cells(1, 2)
m3.Cells(startRow, 4) = foundRange.Cells(1, 2)
startRow = startRow + 1
Set foundRange = m2.FindNext(foundRange)
lastfindAdr = foundRange.Address
Loop
End If

End Sub

5

Servus Tanja,

da kann ich Dir leider nicht weiterhelfen.

Gruß
Werner

6

Hallo,
tut mir leid, ich kann nicht helfen.
Gruß
Brandis

ahoi zusammen,

ich habe eine frage zu makros in xls:

folgende situation:
eine xls datei mit 3 mappen M1, M2, M3
M1: liste von Herstellernamen mit email adressen
M2: liste von allen Produkten von allen Herstellern
M3: diese mappe dient zur email anlage als pdf
und beinhaltet knöpf/schaltflächen mit Makros zur
individualisieren
des Inhaltes/ Auflistung der daten aus M2 in M3

lg, tanja

7

Hallo Tanja,

da ja unter den eingefügten Zeilen noch ein Text folgen soll, ist es wohl am einfachsten, die leeren Zeilen nur auszublenden. Dazu muss dein Code wie folgt ergänzt werden:

Sub Makro6()
’
’ Makro6 Makro
’
Range(„B15:smiley:40“).Select
Selection.EntireRow.Hidden = False 'Stellt Ursprungslayout wieder her
Sheets(„M2“).Range(„Q20:T100“).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range(„I7:I8“), CopyToRange:=Range(„B15:smiley:40“), Unique:= _
False
For Each zelle In Range(„B15:B40“)
If zelle.Value = „“ Then zelle.EntireRow.Hidden = True
Next
End Sub

Gruß
Natator

8

Hallo Tanja,

leider kann ich bei der Beantwortung der Frage nicht weiterhelfen, da ich nur ueber einfache Grundkenntnisse im Bereich Excel verfuege.

Gruss

Chris

9

Hallo,

da muss ich passen.

Frank Seiler