Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
264to268
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
264to268
264to268
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

InputBox Fehlermeldung in Excel 8.0

InputBox Fehlermeldung in Excel 8.0
05.06.2003 13:09:52
Rolf St
Hallo Excel Experten!
Bei folgenden Makro bekomme ich eine Fehlermeldung in Excel 8.0
Fehlerzeile
If Cells(i, 1).Value = a Then
Laufzeitfehler Typen unverträglich


Sub stammdatenpflege()
Sheets("Stammdaten").Select
Dim a As Integer
Dim i As Integer
a = InputBox("Zahl eingeben")
For i = 2 To 1000
If Cells(i, 1).Value = a Then
Cells(i, 1).Select
Exit For
End If
Next i
End Sub

Könnt ihr mir das helfen?

Vielen Dank!

Tschüß
Rolf


5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: InputBox Fehlermeldung in Excel 8.0
05.06.2003 13:15:05
TinoS

Hallo,

If CINT(Cells(i, 1).Value) = CINT(a) Then


Damit müsste es klappen ...

Gruß Tino S.

Re: InputBox Fehlermeldung in Excel 8.0
05.06.2003 13:15:29
Umbratus

Hallo Rolf

Die erste Zeile müsste komplett im Format Ganzzahl sein, sonst verträgt sich a (Integer) nicht damit.

Zur Not könntest du für a auch den Datentyp Variant wählen.


Gruß Umbratus

Re: InputBox Fehlermeldung in Excel 8.0
05.06.2003 13:22:17
Nike

Hi,
mal so:

Bye

Nike

Re: InputBox Fehlermeldung in Excel 8.0
06.06.2003 17:50:24
Rolf St.

Hallo Nike!

So funkt es! Danke!

Sub stammdatenpflege()
Dim a As Variant
Dim i As Integer
Sheets("Stammdaten").Activate
a = CInt(InputBox("Zahl eingeben"))
For i = 2 To 1000
Sheets("Stammdaten").Activate
If Sheets("Stammdaten").Cells(i, 1).Value = a Then
Sheets("Stammdaten").Cells(i, 1).Select
Exit For
End If
Next i
End Sub

Tschüß
Rolf


Anzeige
Re: InputBox Fehlermeldung in Excel 8.0
06.06.2003 17:51:43
Rolf St.

Hallo Tino!

So funkt es! Danke!

Sub stammdatenpflege()
Dim a As Variant
Dim i As Integer
Sheets("Stammdaten").Activate
a = CInt(InputBox("Zahl eingeben"))
For i = 2 To 1000
Sheets("Stammdaten").Activate
If Sheets("Stammdaten").Cells(i, 1).Value = a Then
Sheets("Stammdaten").Cells(i, 1).Select
Exit For
End If
Next i
End Sub

Tschüß
rolf

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige