Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
392to396
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
392to396
392to396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

IsNumeric Abfrage

IsNumeric Abfrage
04.03.2004 10:13:06
Micha
Hallo Leute,
ich summiere Zahlen auf und möchte die Zellen wo keine Zahlen, sondern Zeichen stehen anzeigen und mit nach einer Aufforderung löschen oder überschreiben.
Ich hänge zur Zeit schon an der numeric abfrage von den Zellen.
Bin für Denkanstöße dankbar.

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: IsNumeric Abfrage
04.03.2004 10:17:57
Andi_H
Hi Micha,
summiert die ersten 100 Zellen der Spalte
dim i as byte
dim sum
for i = 1 to 100
if isnumeric(cells(i,1)) then
sum = sum + cells(i,1)
end if
next

gruß
andi
AW: IsNumeric Abfrage
04.03.2004 10:39:27
Micha
Danke Andi
gibs nicht sowas wie
if not isnumeric(cells(i,1)) then msgbox("bla") and (delete diese Zelle)
end if
next i
AW: IsNumeric Abfrage
04.03.2004 10:45:36
Andi_H
klar gibts das, wo in welcher Spalte/Zeilen stehen denn deine Daten.
for i = 100 to 1 step -1
if not isnumeric(cells(i,1)) then
msgbox "keine Zahl"
rows(i).delete
else
sum = sum + cells(i,1)
end if
next
AW: IsNumeric Abfrage
04.03.2004 10:55:05
Micha
Danke
Kann mir die msgbox auch angeben welche Zelle(n) das sind.
Anzeige
AW: IsNumeric Abfrage
04.03.2004 10:58:03
Andi_H
dim antw
for i = 100 to 1 step -1
if not isnumeric(cells(i,1)) then
antw = msgbox "keine Zahl in Zeile: " & i & "Zeile löschen?",vbyesno)
if antw = vbyes then
rows(i).delete
end if
else
sum = sum + cells(i,1)
end if
next
Zeilen Spalten??
AW: IsNumeric Abfrage
04.03.2004 11:15:42
Micha
der halt probleme mit dem = da will er ne anweisung
AW: IsNumeric Abfrage
04.03.2004 11:22:34
Micha
Siehst Du den Fehler?
Dim summe As Double
Dim i As Integer
Dim antw
For i = 1 To 10
If Not IsNumeric(Cells(i, 1)) Then
antw = MsgBox "keine Zahl in Zeile: " & i & "Zeile löschen?",vbyesno)
If antw = vbYes Then
Rows(i).Delete
Else
summe = Cells(i, 1).Count
If Cells(i, 1).Value > 0 Then
Cells(i, 2).Value = summe
'summe = 0

End If
End If
End If
Next i
Anzeige
AW: IsNumeric Abfrage
04.03.2004 11:41:37
Micha
habs gefunden, Danke
AW: IsNumeric Abfrage
04.03.2004 12:10:27
Andi_H
hatte gerade Mittagspause, deshalb hats länger gedauert. Klappt das jetzt?
AW: IsNumeric Abfrage
04.03.2004 12:13:01
Micha
alles wunderbar. hab nun noch ne inputbox rangehangen.
danke
AW: IsNumeric Abfrage
04.03.2004 12:19:33
Micha
doch noch was.
isNumeric(Tabelle6.(Cells(i, 242)))
wie weise ich die Tabelle zu. so klapps nicht
AW: IsNumeric Abfrage
04.03.2004 12:22:51
Micha
hat sich geklärt

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige