Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
888to892
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
888to892
888to892
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Programmfehler

Programmfehler
27.07.2007 12:06:05
Ralf
Hallo ich habe folgenden Makro geschrieben:

Private Sub CommandButton1_Click()
[c2:e65536].Select
Selection.Clear
Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("C2"), Unique: _
=True
With Range("D2:D" & Range("C65536").End(xlUp).Row)
.FormulaLocal = "=ZÄHLENWENN(A:A;C2)"
.Value = .Value
End With
Range("C2:D2").Select
Selection.Delete Shift:=xlUp
Cells(7, 7).Select
Dim bereich As Range
Set bereich = Range("A:A")
MsgBox ("Der maximale Wert lautet " & WorksheetFunction.Max(bereich)) & _
(", der minimale Wert ist " & WorksheetFunction.Min(bereich)) & _
(" und der arithmetische Mittelwert lautet " & WorksheetFunction.Average(bereich)), , (" _
Auswertung")
End Sub


Die Aufgabe ist das ich Zahlen in Spalte A schreibe und dann auf einen Button drücke.
Dann schreibt mir der Makro die Zahlen in Spalte C und zählt in Spalte D die Anzahl der Zahlen...
Wenn ich aber jetzt in Spalte A nichts eintrage bringt er mir eine Fehlemeldung...
Was kann ich da machen?

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

Betreff
Datum
Anwender
Anzeige
AW: Programmfehler
27.07.2007 12:07:51
Simon
zur Fr. Amtmann gehen und abmelden lassen ;) :D

AW: Programmfehler
27.07.2007 12:50:15
Rudi
Hallo,

Private Sub CommandButton1_Click()
Dim bereich As Range
Set bereich = Range("A:A")
If WorksheetFunction.Count(bereich) = 0 Then
MsgBox "Keine Zahlen da."
Exit Sub
End If
[c2:e65536].Clear
Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("C2"), Unique: _
=True
With Range("D2:D" & Range("C65536").End(xlUp).Row)
.FormulaLocal = "=ZÄHLENWENN(A:A;C2)"
.Value = .Value
End With
Range("C2:D2").Delete Shift:=xlUp
MsgBox ("Der maximale Wert lautet " & WorksheetFunction.Max(bereich)) & _
", der minimale Wert ist " & WorksheetFunction.Min(bereich) & _
" und der arithmetische Mittelwert lautet " & WorksheetFunction.Average(bereich), , "  _
Auswertung "
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige