letzte Zeile und Spalte färben
20.03.2015 17:41:19
Dieter
--Die Datei die ich hochgeladen habe, ist nur ein Auszug und nicht die Original Datei (sie ist auch stark vereinfacht)
https://www.herber.de/bbs/user/96524.zip
Mein Problem ist folgendes:
Es wird jetzt schwer zu erklären. Ich gebe mein bestes, aber ich hoffe ihr verstehet es.
In Tabelle1 habe ich Tabelle mit max. 45 Zeilen (siehe Datei)
Mit dem nachfolgenden Code (auf CommandButton1 ODER 2) markiert er mir diese 21 Zeilen (siehe bisher habe ich Tabelle 1)
Option Explicit
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim Zeile_letzte As Long
Dim Spalte_letzte As Long
If Range("A1").Value = "" Then
End
Else
Zeile_letzte = Cells(1, 1).End(xlDown).Row
Spalte_letzte = Cells(Zeile_letzte, 11).End(xlToLeft).
'färben
Range(Cells(1, 1), Cells(Zeile_letzte, 1)).Interior.ColorIndex = 37
Range(Cells(1, Spalte_letzte), Cells(Zeile_letzte, 3)).Interior.ColorIndex = _
37
Range("M11") = Application.Sum _
(Range(Cells(1, Spalte_letzte), Cells(Zeile_letzte, 3))) 'Summe in M11 _
berechnen
End If
End Sub
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim Zeile_letzte As Long
Dim Spalte_letzte As Long
If Range("A1").Value = "" Then
End
Else
Zeile_letzte = Cells(1, 1).End(xlDown).Row
Spalte_letzte = Cells(Zeile_letzte, 11).End(xlToLeft).
'färben
Range(Cells(1, 1), Cells(Zeile_letzte, 1)).Interior.ColorIndex = 40
Range(Cells(1, Spalte_letzte), Cells(Zeile_letzte, 3)).Interior.ColorIndex = _
40
Range("N11") = Application.Sum _
(Range(Cells(1, Spalte_letzte), Cells(Zeile_letzte, 3))) 'Summe in N11 _
berechnen
End If
End Sub
Mein Problem besteht darin, wenn ich die Tabelle nun weiterführe (siehe Tabelle 2 oder 3),
dann soll eine nächste Farbe den NÄCHSTEN Teil färben und NICHT alles (sie Tabelle 2 oder 3)
kann mir irgendjemand Helfen ich bekomme das nicht wirklich hin dafür reicht mein VBA Wissen nicht ganz :-(
Danke
Dieter