Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema RefEdit
BildScreenshot zu RefEdit RefEdit-Seite mit Beispielarbeitsmappe aufrufen

Fehlermeldung bei angabe Bereich

Betrifft: Fehlermeldung bei angabe Bereich von: Kurt
Geschrieben am: 18.10.2014 10:59:28

Guten Morgen,
ich habe folgende Zeile:

If ActiveSheet.Range("A3:A10").Value > 0 Then

leider kommt Fehlermeldung,
Laufzeitfehler 13
Wieso ?

gruß kurt

  

Betrifft: AW: Fehlermeldung bei angabe Bereich von: Hajo_Zi
Geschrieben am: 18.10.2014 11:00:45

Hallo kurt,

Du kannst nur eine einzelne Zelle auf Inhalt prüfen.

GrußformelHomepage


  

Betrifft: Hallo Hajo von: Kurt
Geschrieben am: 18.10.2014 11:12:06

Hallo Hajo,
gibt es keinen Trick wie ich dies umgehen kann ?
gruß kurt


  

Betrifft: AW: Hallo Hajo von: Hajo_Zi
Geschrieben am: 18.10.2014 11:14:20

Hallo Kurt

If WorksheetFunction.CountIf(Range("a1:a3"), 0)) =3 Then

Gruß Hajo


  

Betrifft: AW: Hallo Hajo, leider keine Reaktion von: Kurt
Geschrieben am: 18.10.2014 11:37:50

Hallo Hajo,
leider keine Reaktion.

If WorksheetFunction.CountIf(Range("c10:c12"), 0) > 0 Then

ActiveSheet.OptionButton1.Caption = "Seite 1 aktiv"
ActiveSheet.OptionButton1.BackColor = RGB(0, 255, 0) 'grünf
gruß Kurt


  

Betrifft: AW: Die genaue Fragestellung ist? o.r.T. von: Gerd L
Geschrieben am: 18.10.2014 11:18:26

Gruß Gerd


  

Betrifft: AW: Die genaue Fragestellung ist? o.r.T. von: Kurt
Geschrieben am: 18.10.2014 11:28:33

Hallo Gerd,
ich möchte einen Bereich abfragen:
If ActiveSheet.Range("A3:A10").Value > 0 Then

gruß Kurt


  

Betrifft: AW: Die genaue Fragestellung ist? von: Gerd L
Geschrieben am: 18.10.2014 11:34:59

Hallo Kurt,

wenn deine acht Zellen > 0 sind :-),

ist dann die Summe der Inhalte/Werte dieser Zellen größer 0 oder einer der Zellenwerte positiv?

Also nochmal was genau möchtest du abfragen?


Gruß Gerd


  

Betrifft: AW: Die genaue Fragestellung ist? von: Kurt
Geschrieben am: 18.10.2014 11:39:02

Hallo Gerd,
wenn in irgendeiner Zelle ein Wert bzw. Text steht.

gruß kurt


  

Betrifft: ohne VBA: =Anzahl2(Bereich)>0........kwT von: Matthias L
Geschrieben am: 18.10.2014 11:47:24




  

Betrifft: Kann leider nur im Makro gebrauchen von: Kurt
Geschrieben am: 18.10.2014 11:51:40

Hallo Matthias,
kann dies leider nur im Makro gebrauchen,
Danke !
gruß kurt


  

Betrifft: Anzahl2() = in VBA -> CountA von: Matthias L
Geschrieben am: 18.10.2014 11:54:43

Hallo

Sub kurt()
 If WorksheetFunction.CountA(Range("A3:A10")) > 0 Then
  MsgBox "Yes"
 Else
  MsgBox "No"
 End If
End Sub
Gruß Matthias


  

Betrifft: Klappt !!!!! -) von: Kurt
Geschrieben am: 18.10.2014 11:58:09

Hallo Matthias,
klappt !
Danke !
gruß Kurt


  

Betrifft: AW: Die genaue Fragestellung ist? von: Gerd L
Geschrieben am: 18.10.2014 11:50:05

Hallo Kurt,

Entweder prüfst du jede Zelle einzeln - mit einer Schleife, z.B.

Dim Zell As Range,
For each Zell in ActiveSheet.Range("A3:A10")
If Not IsEmpty(Zell) Then Msgbox "etwas drin" :Exit For
Next

Oder du verwendest eine Methode über den Bereich, z.B.

Msgbox (8 - Worksheetfunction.CountBlank(ActiveSheet.Range("A3:A10")))

Gruß Gerd


  

Betrifft: AW: Die genaue Fragestellung ist? von: Kurt
Geschrieben am: 18.10.2014 11:56:20

Hallo Gerd,
klappt leider nicht:
Dim Zell As Range
For Each Zell In ActiveSheet.Range("c10:c12")
If Not IsEmpty(Zell) Then
'MsgBox "etwas drin":
ActiveSheet.OptionButton1.Caption = "Seite 1 aktiv"
ActiveSheet.OptionButton1.BackColor = RGB(0, 255, 0)
'grün
Exit For
Next

gruß kurt


  

Betrifft: Wo ist das erforderliche 'End If'? Gerd hat ... von: Luc:-?
Geschrieben am: 18.10.2014 12:05:37

…ein 1zeiliges KomplettKonstrukt If vergleich Then befehl benutzt, Kurt,
du aber nicht! Mehrzeilige Konstrukte erfordern stets einen End xxx-Abschluss, ansonsten müsstest du an geeigneten Stellen ZeilenTrennZeichen (' _') setzen!
Das ist VBA-Basiswissen! Außerdem sagt dir das auch der Compiler bei der SyntaxÜberprüfung!
Gruß, Luc :-?


  

Betrifft: MS bringt ja auch eine andere Fehlermeldung ... von: Matthias L
Geschrieben am: 18.10.2014 12:15:10

Hallo Luc

Kurt wird sicher nur die Fehlermeld. Next ohne For erhalten haben.
MS hat das seit Jahren nicht geschafft hier die richtige Fehlermeldung zurückzugeben.
Das ärgert mich schon lange.

Gruß Matthias


  

Betrifft: Stimmt, weil der Compiler vor dem 'Next' erst ... von: Luc:-?
Geschrieben am: 18.10.2014 12:23:47

…ein End If erwartet, Matti;
kam das bisher nicht, ist das Next für ihn verfrüht, was die F-Meldung zum Ausdruck bringt. In solchen Fällen muss klar sein, dass irgendwas fehlt. Vom Compiler kann man nun mal keine umfassende PgmAnalyse erwarten, denn er arbeitet den Code zeilenweise ab.
Gruß + schöWE, Luc :-?


 

Beiträge aus den Excel-Beispielen zum Thema "Fehlermeldung bei angabe Bereich"