HERBERS Excel-Forum - die Beispiele

Thema: Spalten bedingt summieren und Zellen formatieren

Home

Gruppe

Format

Problem

Wenn in eine Zelle der ersten Zeile einer Spalte eine 12 eingegeben wird, soll eine Addition der Spalte erfolgen.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
ClassModule: Tabelle1

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
   Dim iRow As Integer, iCol As Integer
   If IsEmpty(Target) Then Exit Sub
   If Target.Row = 1 And Target.Value = 12 Then
      Application.EnableEvents = False
      On Error GoTo ERRORHANDLER
      iCol = Target.Column
      iRow = Cells(Rows.Count, iCol).End(xlUp).Row
      Range(Cells(2, iCol), Cells(iRow, iCol)) _
         .NumberFormat = "#,##0.00"
      Cells(iRow + 1, iCol).Formula = _
         "=sum(R2C" & iCol & ":R" & iRow & "C" & iCol & ")"
   End If
ERRORHANDLER:
   Application.EnableEvents = True
End Sub

Beiträge aus dem Excel-Forum zu den Themen Format und Bereich

Bedingte Formatierung vor Copy/Paste schützen Bed. Formatierung, wenn alle Beding. erfüllt.
Dynamischer Datenbereich im Diagramm Telefonnummer automatisch per VBA formatieren
Komplettes Excel Sheet kopieren mit Formaten Bedingte Formatierung per VBA mit Schleife
Kartendiagramm per VBA erstellen und formatieren Bereich als Bild speichern.
bedingte Formatierung Zellfarbe per Cond Formatting nach Zellfarbe änder
1. freie Zelle in nicht zusammenhängenden Bereich Bestimmtheitsmass nach vorgegebenen Bereich
UserForm im Querformat drucken Bedingte Formatierung
Teilstringabfrage bei bedingter Formatierung Bestimmten Bereich anhand Zeilenabgabe kopieren
Bedingte Formatierung mit UND Verknüpfung Bereich löschen
Array - Index außerhalb des gültigen Bereichs Textformat (VBA)
zoom auf Druckbereichsbreite anpassen Bedingte Formatierung Frage
Array in Tabelle kopieren, Verlust von Format Übernahme in Word Format wird nicht übernommen
VBA, 4 Informationen in 4 Zellen schreiben bedingte Formatierung mit mehreren Bedingungen
Datum aus Oracle-Abfrage als Datum formatieren Bereich syncronisieren II
Bedingte Formattierung Bedingte Formatierung - kleiner als Fehler
Zahlenformat Handynr. Diagramme und ihr Format
Zeilenbereich auf Tabelle übertragen Druchbereiche auf eine Seite
bedingte formatierung per VBA Bedingte Formatierung bezogen auf 2. Zelle
Formatgleichheit von Zeichenfolgen für SVERWEIS bedingte Formatierung
Bedingte Formatierung Tabellen - Zellen - Formatieren -
Definitionsbereich Bereich von rechts nach links auslesen?
Format übertragen Datumsformatierung
Formatierung anderer Diagramme Namen definieren für bestimmten Bereich
Nur einen Eintrag im Bereich zulassen Kommentar in erste zelle einess Bereiches
Zellenformatierung speichern