Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
248to252
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
248to252
248to252
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA Schleifenanweisung oder anders ?

VBA Schleifenanweisung oder anders ?
25.04.2003 07:58:44
udo
Schönen guten Morgen an alle Helfer,

wüsste mir Jemand bitte einen Rat wie ich Folgendes lösen könnte.

Beim auslösen eines Makros ( unten ) werden Daten in einem Tabellenblatt
Sortiert nach Spalte 48 ( AV ). Jetzt stehen dann also in dieser Spalte zB. einige
mal die Zahl 10, dann nach x-beliebigen Reihen kommt 11 usw.
( Diese Zahlen stehen für eine Arbeitsplatzbez. )

Nun drucke ich mir diesen Datensatz dieser Tabelle aus, und hätte gerne
eine visuelle Abtrennung in dieser Spalte wenn er vom einen Zahlenwert zum Anderen wechselt,
um den Ausdruck nachher zu verdeutlichen ( in Richtung abwärts, der Spalte entlang ),
da sonst alles so gleich aussieht und somit etwas unübersichtlich ist.

Diese optische Abtrennnung stelle ich mir so vor, ( mit ActiveRow , da es immer unterschiedliche
Mengen der Reihen sind die 10, 11 usw enthalten, und der Wechsel somit variiert ).
…
Cells(ActiveCell.Row, 48).Activate

With Range(Cells(ActiveCell.Row, 44).Address & "," _
& Cells(ActiveCell.Row, 45).Address & "," _
& Cells(ActiveCell.Row, 46).Address & "," _
& Cells(ActiveCell.Row, 47).Address & "," _
& Cells(ActiveCell.Row, 48).Address)
.Interior.ColorIndex = 2
.Font.ColorIndex = 56
End With

…dieses Formatiermakro funkt. so genau richtig.
Das Sortiermakro sieht wie folgt aus :

Sub sortieren( )

Application.ScreenUpdating = False

Range("AR36:AW200").Select
Selection.Sort Key1:=Range("AV36"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Application.ScreenUpdating = True

End Sub

Nun müsste man beides miteinander kombinieren, sodass er gleich nachdem sortieren
damit anfängt, dann ab Reihe 36 nach den sich wechselnden Werten in der Spalte 48 (AV),
die auch immer unterschdl. sein können, den Wechsel entspr. zu formatieren.
( mit dem obigen Formatiermakro ).
Ich bräucht nun eure Unterstützung bei der Anweisung. Ich denke es fehlt hier noch eine
Anweisung die ihm sagt, das er nun nach dem sortieren damit anfängt die Spalte 48 ab Reihe 36
Hinunter abwärts zu laufen, und sobald sich der Wert in der Zelle in einen anderen Wert nun
Wechselt, das er dann die Formatierung ( oben ) ausführt, und automatisch dann aufhört bei
Reihe 200.

Ich kenn die hierzu nötige Anweisung leider nicht, weshalb ich euch bitten würde mir dabei zu helfen wenn möglich.
Mit Schleife ??? ohne ??? usw…

Schon mal vielen Dank im Voraus an alle Helfer,

Gruß udo

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: VBA Schleifenanweisung oder anders ?
25.04.2003 10:11:30
Andreas Walter

Hier ein Ansatz
wobei sicherlich habe ich etwas nicht verstanden

for hilf=37 to 200
' wir fangen bei zeile 37 an, weil wir
' vergleichen wollen immer 'die jetztige Zeile'
' mit der letzten Zeile

' wir testen in Zeile Hilf und Zeilf (hilf-1)
' und vergleich, was in Spalte 48 jeweils ist
' wenn unterschiedlich wird alles zwischen
' then und end if gemacht
if cells(hilf,48).value <>cells(hilf-1,48).value then
'
' jetzt soll was passieren
' villeicht dieses
With Range(Cells(hilf, 44).Address & "," _
& Cells(hilf, 45).Address & "," _
& Cells(hilf, 46).Address & "," _
& Cells(hilf, 47).Address & "," _
& Cells(hilf, 48).Address)
.Interior.ColorIndex = 2
.Font.ColorIndex = 56
End With

'
' oder vielleicht sollte es überall nicht hilf
' sondern hilf-1


end if
' ende der bedingung

next hilf
' ende der Schleife


Anzeige
@ Andreas, du hast mich leider falsch verstanden
25.04.2003 13:40:03
udo

Hallo Andreas, ganz herzlichen Dank , funkt. aberleider nicht so.
habe es mal mit eingebaut, will aber noch nicht so richtig funkt.

ich zeigt dir mal in etwa wie die tabelle nachher auusehen sollte:
...................................................................

Spalte 44 45 46 47 48

xxxxx xxx xxx xxx xxxx 10
xxxxx xxx xxx xxx xxxx 10
xxxxx xxx xxx xxx xxxx 10
xxxxx xxx xxx xxx xxxx 10
xxxxx xxx xxx xxx xxxx 10
xxxxx xxx xxx xxx xxxx 10
----------------------------- ( hier erster Wechsel in Spalte 48 )
xxxxx xxx xxx xxx xxxx 11
xxxxx xxx xxx xxx xxxx 11
xxxxx xxx xxx xxx xxxx 11
----------------------------- ( hier nächster W. ...usw.)
xxxxx xxx xxx xxx xxxx 12
xxxxx xxx xxx xxx xxxx 12
xxxxx xxx xxx xxx xxxx 12

so in etwa ist der Gedankengang, dass beim Wechsel in Spalte 48, vom einen Wert in einen Anderen sich eine Formatierung dazwischenstellt, sodass die ganze Tabelle beim Ausdruck besser
visuell zu erfassen/ übersichtlicher ist

vielleicht hast du noch eine Idee

vielen Dank einstweilen
Gruß udo



Anzeige

311 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige