Visual Basic 3 objekten zum vergleich

Computer: Software & Programmierung Visual Basic
#1

Hallo Kluge Leute!

ich habe euch hier eine Bitte. Bitte unterstütze mich in dem Fall.

Else
if Anfonr=„7320“
Anfotxt=„PP“
Thresh=„0,3“
Threshoben=„300“
Thresh=„3“
Threshoben=„300“
Fileval=True
Else
if Anfonr=„7380“
Anfotxt=„PP“
Thresh=„0,3“
Threshoben=„300“
Thresh=„3“
Threshoben=„300“
Fileval=True
Else
if Anfonr=„7033“
Anfotxt=„TPP“
Thresh=„0,7“
Threshoben=„540“
Thresh=„7“
Threshoben=„540“
Fileval=True
End if

ich möchte die 2 obere zusammen mit werten schreiben und mit der letzten vergleichen.
wie bekomme ich hin?

#2

Hallo,

solche Vergleiche codiert man vieleiht etwas eleganter und uebersichtlicher mittels

Select Anfonr
case 7320
’ mache irgendwas
case 6795 , 7705
’ mach was anderes

…
end select

Schau mal in der VB/VBA Dokumnetation nach, dort wird dir bestimmt weitergeholfen.

Tschau
Peter