Zeilenvergleich VBA Excel 2003 ?

[Angelina]

hallo


habe ich dich verärgert?

Wenn ja - sorry.

Aber gerade auch der Einbau der Abfrage was die letzte Zeile Range DW:FS
ist tue ich mir sehr schwer.

Weil nicht bekannt ist welche Zelle im Bereich DW:FS noch einen Wert hat.

Desweiteren verliere ich die bedingte Formatierung wenn der Bereich
mit CUT ausgeschnitten wird. Ist ein kopieren der Werte nicht besser?
Und dann anschließend den Bereich löschen?

Sorry - wenn ich dich nochmals um Hilfe bitten muß.

LG
Angelina

[BoskoBiati]

Hallo,

ich habe heute leider keine Zeit mehr, um mich darum zu kümmern.

[Rabe]

Hallo Angelina,

...

Du mußt nicht immer den kompletten Beitrag zitieren, der steht doch direkt darüber!

[WiK]

Hallo Angelina,

Nur zur INFO:
Deinen Beitrag kannst Du eine Stunde lang bearbeiten, siehe in deinen Beitrag rechts unten den linken Button "Bearbeiten".

Gruß Willy

[Angelina]

hallo BoskoBiati,

findest du heute evenetuell noch die Zeit um diese Optimierung einzubauen?

Aber gerade auch der Einbau der Abfrage was die letzte Zeile Range DW:FS

ist tue ich mir sehr schwer.

Weil nicht bekannt ist welche Zelle im Bereich DW:FS noch einen Wert hat.

Desweiteren verliere ich die bedingte Formatierung wenn der Bereich
mit CUT ausgeschnitten wird. Ist ein kopieren der Werte nicht besser?
Und dann anschließend den Bereich löschen?

nochmals vielen lieben Dank für deine Zeit/Mühe

LG
Angelina

[BoskoBiati]

Hallo,

bin zur Zeit in einer Schulung und habe kein Excel. Mal so aus dem hohlen Bauch:

For loco=65535 to 1 step -1
If application.worksheetfunction. count(range("DW" & loco & ":FS" & loco))>0 then 
    loletzte=loco
    Exit for
End if
Next

Dann überall, wo die Zeile 10 steht loletzte einsetzen.

Welche bedingten Formatierungen gibt es denn?

[Angelina]

hallo hallo BoskoBiati,


ich muß dann warten bis du Zeit bekommst.

Bekomme den Umbau alleine nicht richtig hin.


Zu deiner Frage:
Bedingte Formatierung sind wie folgt:

=ZÄHLENWENN($FU42:$FZ42;EA42)
=UND(ZÄHLENWENN($GA42;EA42);DW>0)


LG
Angelina

[BoskoBiati]

Hallo,

hier erst einmal der normale Code:

Code:

Option Explicit


Private Sub CommandButton1_Click()

Dim rng As Range
Dim loZeile As Long
Dim loSpalte As Long
Dim loZeile2 As Long
Dim loZiel As Long
Dim loCo As Long
Dim loLetzte As Long
Dim loEnd As Long
For loCo = 65535 To 1 Step -1
If Application.WorksheetFunction.Count(Range("DW" & loCo & ":FS" & loCo)) > 0 Then
    loLetzte = loCo
    Exit For
End If
Next
loZiel = loLetzte + 2
Application.ScreenUpdating = False
Set rng = Range("DW1")
For loZeile = 0 To loLetzte
   loZiel = loZiel - 1
  For loZeile2 = loZeile + 1 To 10
      For loSpalte = 0 To 48
          If rng.Offset(loZeile, loSpalte) <> "" Then
              If Application.WorksheetFunction.CountIf(Range(rng.Offset(loZeile2, 0), rng.Offset(loZeile2, 48)), rng.Offset(loZeile, loSpalte)) > 0 Then rng.Offset(loZiel, loSpalte) = rng.Offset(loZeile, loSpalte)
          End If
      Next
      loZiel = loZiel + 1
  Next
Next
For loCo = 65535 To 1 Step -1
If Application.WorksheetFunction.Count(Range("DW" & loCo & ":FS" & loCo)) > 0 Then
    loEnd = loCo
    Exit For
End If
Next
Range("DW" & loLetzte + 2 & ":FS" & loEnd).Cut Range("DW1")
Application.ScreenUpdating = True
     
End Sub

Dann würde mich interessieren, was die bedingte Formatierung soll und wo sie eingerichtet ist. Zumindest die Zweite ist Quatsch.

[Angelina]

hallo nochmals,

vielen lieben dank das du an der Sache dranbleibst

Dann würde mich interessieren, was die bedingte Formatierung soll und wo sie eingerichtet ist. Zumindest die Zweite ist Quatsch.

Sie ist eingerichtet im Bereich DW:FS alle Zellen und alle Spalten


In den Spalten FU:GA stehen Zahlen

die Bedingte Formatierung
=ZÄHLENWENN($FU1:$FZ1;DW1)
wird dann auf alle Spalten/Zellen im Berich DW:FS runtergezogen
Vergleicht die Zahlen FU bis FZ
und ist mit einer Farbe hinterlegt

=UND(ZÄHLENWENN($GA1;DW1);DW>0)
Vergleicht die Zahlen mit nur der FZ
ist FZ > 0 dann gibt es eine andere Farbe

ohhhhh hier sehe ich das ich in der zweiten B.Formatierung hinten die DW>0 stehen habe
dies ändere ich dann noch in FZ>0

aber wie gesagt, wenn im Tabellenblatt mit Cut ausgeschnitten wird dann fehlen in diesem Bereich die
Bedingte Formatierung.

Ich hoffe du hast mich verstanden

LG
Angelina

[BoskoBiati]

Hallo,

egal ob DW>0 oder FZ>0, das ist beides Quatsch!