AW:Klar melde ich mich- es geht weiter
07.03.2017 17:59:35
Leon
Hallo ihr lieben fleißigen Helfer,
Na klar melde ich mich. Habe ja das eine und andere bereits ausprobiert.
Also der ganze Sinn:
Ich Importiere aus einer Tabelle die Spalten A und B in eine Hilfstabelle. Im Grunde laufen die Makros .
Option Explicit
Sub Auffuellen() 'vor sortieren von B
' Vervollständige Spalte B
If MsgBox("Soll B vervollständigt werden?", vbQuestion + vbYesNo) = vbYes Then
Sheets("Bearbeiten").Columns("A:B").Copy
Sheets("Hilfstabelle").Columns("AQ:AQ").PasteSpecial Paste:=xlPasteValues
Sheets("Hilfstabelle").Columns("AS:AS").Copy
Sheets("Bearbeiten").Columns("B:B").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'Call Zellen_Einrahmen 'Zellen A-L Einrahmen vor Drucken in Blätter
'mal Auskommentiert 06.03.2017
MsgBox "Fertig"
End If
End Sub
In der "Hilfstabelle" wird eine Formel abgearbeitet, die mir nach folgenden Schema die leeren Zellen in der Spalte B vervollständigt. Diese Formel steht in AS
=WENN(UND(AQ2"";AR2="");AS1;AR2)
DIES IST FÜR DEN NÄCHSTEN SCHRITT >> DIE SORTIERUNG
ES wird die Spalte B sortiert.
ALLES klappt wunderbar.
ABER: Durch die Formel in der Hilfstabelle " Auffüllen in B " wird leider eine NULL 0 angezeigt, wenn Die Zelle AQ leer ist. Das ist dann der Fall wenn die laufende Nummerierung zu Ende ist- also auch der Bereich der Sortiert werden soll.
Jedoch wird die 0 mit in die Tabelle zuück übertragen und dadurch mit Sortiert.
Vielleicht kann das Makro angepasst werden, bevor der Schritt
Sheets("Hilfstabelle").Columns("AS:AS").Copy
abgearbeitet wird, das jetzt "Zellen mit einer NULL 0" entfernt werden.
Sheets("Bearbeiten").Columns("B:B").PasteSpecial Paste:=xlPasteValues
Deshalb der ganze WIRRWARR um die Formel. Habe Versucht mit Zusatzformeln die 0 zu verhindern.
Nun habe ich aber gemerkt: EXCEL interpretiert leere Zellen mit 0.
LG Leon