Visual Basic --> Wert zwischen zwei Zahlen

Hey Leute. Ich will ein Vergleich zwischen zwei Zahlen machen. Zum Beispiel

Wenn der Wert zwischen 10 und 15 liegt dann soll ein Text in Textbox1.text stehn. Ich habe es so versucht

If Wert >= 25 or <= 27 Then TextBox1.Text = ("BlaBla") End If

Dann kommt nur eine Fehlermeldung und es unterstreicht das zweite Gleichheitszeichen.

"Das Element hat keinen Endtag"
"XML Name erwartet"

Hat jemand eine Idee wie ich es noch machen könnte?

Danke im Vorraus

4 Antworten

Vom Beitragsersteller als hilfreich ausgezeichnet

MiH78

27.10.2010, 23:07

If Wert >= 25 AND WERT <= 27 Then TextBox1.Text = ("BlaBla") End If

NochEineFrage

27.10.2010, 23:08

so sollte es gehen... hatte das OR ganz übersehen

NochEineFrage

27.10.2010, 23:05

Versuchs mal mit: If Wert >= 25 or Wert <= 27 Then TextBox1.Text = ("BlaBla") End If

PalmBeach

Beitragsersteller

27.10.2010, 23:08

Okay das geht Danke :) aber wenn der Wert unter 25 ist dann kommt trotzdem der Text in der Textbox, weil vermutlich das durch <= alle Zahlen unter 27 den Text anzeigen lässt.

PalmBeach

Beitragsersteller

27.10.2010, 23:09

@PalmBeach

Hat sich erledigt. Hab das Or durch And ersetzt :)

frubi

27.10.2010, 23:06

If Wert >= 25 Or Wert <= 27 Then TextBox1.Text = ("BlaBla") End If

Du könntest ja nach dem Or auch eine andere Variable prüfen wollen

thufir1971

28.10.2010, 10:02

Das Problem ist, dass der Compiler in "<= 27" keinen booleschen Ausdruck erkennt, in "Wert <= 27" aber schon.

georgkremer6

08.10.2013, 20:47

Oder du setz einen Random. Bzw :

 Dim random_1 as new Random

Und beim Button schreibst du :
MsgBox(random_1.Next(25, 27))

Ähnliche Beiträge

Nicht alle Codepfade geben ein Wert zurück?

Ich bekomme den Fehler, dass nicht alle Codepfade einen Wert zurück geben "Form1.GetKugel()".

Wenn ich das in else stehende so hinstelle ohne else funktioniert es einwandfrei..

ich habe gerade erst angefangen zu lernen und es ist hoffe ich nur ein dämlicher Anfängerfehler :D

private struct Kugel
        {
            public double radius, sg;
        }
        private double gew;
        private Kugel GetKugel()
        {
            
            if (textBox1.Text == "")
            {
                MessageBox.Show("Bitte trage einen Wert ein", "Hinweis", MessageBoxButtons.OK, MessageBoxIcon.Asterisk);
            }
            else if (textBox1.Text.Length > 0)
            {
                MessageBox.Show("Bitte trage einen gültigen Wert ein", "Hinweis", MessageBoxButtons.OK, MessageBoxIcon.Asterisk);
                textBox1.Clear();
            }
            else
            {
                Kugel kug;
                kug.radius = Convert.ToDouble(textBox1.Text) / 2;
                if (radioButton1.Checked) kug.sg = 1.4D;
                else if (radioButton2.Checked) kug.sg = 2.7D;
                else if (radioButton3.Checked) kug.sg = 3.0D;
                else if (radioButton4.Checked) kug.sg = 7.87D;
                else kug.sg = 11.3D;
                return kug;  
            }
             
        }

...zum Beitrag

VBScript Zahlenspiel?

Hi,

Ich habe folgendes VBScript geschrieben:

Dim Untergrenze, Obergrenze, Wert, Zufallszahl, Counter

Randomize()

Wert = 0
Untergrenze = 1
Obergrenze = 5
Zufallszahl = Int((Obergrenze - Untergrenze + 1) * Rnd() + Untergrenze)
Counter = 0

Do

Counter=Counter+1

Wert = InputBox("Bitte geben Sie eine Zahl zwischen 1 und 5 ein", "Eingabe")

If Zufallszahl<Wert Then _
    WScript.Echo("Meine Zahl ist kleiner!")

If Zufallszahl>Wert Then _
    WScript.Echo("Meine Zahl ist größer!")

If Wert=Zufallszahl Then _
    WScript.Echo("Richtig. Versuche: " + CStr(Counter))

Loop while Wert<>Zufallszahl

nur will das ganze nicht wirklich funktionieren. Ich hab soweit schon herausgefunden, dass es an der InputBox liegen muss, da das ganze ohne InputBox funktioniert. Für jede Antwort bin ich dankbar.

...zum Beitrag

Wie kann man eine If schleife mit meheren bedingungen erstellen?

Hallo user,

ich habe ein kleines problem mit einer if schleife die 2 bedingungen Prüfen soll.

If TextBox1.Text = "2" And TextBox2.Text = "2" Then CommandButton3.Visible = False Else: CommandButton3.Visible = True End If

Leider funktioniert das ganze nicht so wie ich will. Ich hoffe es kann mir jemand weiter helfen.

...zum Beitrag

Die anweisung ist in einem Namespace ungültig?

Ich habe eine Anleitung aus dem Internet für ein Zahlen generator kopiert

Dim Zahl As Integer 'zufallsgenerierte Zahl Dim Counter As Integer 'Zähler der Versuche

Private Sub btn_click_Click()

Dim Eingabe As Integer 'Eingegebene Zahl

'Zufallszahl generieren If Zahl = 0 Then Zahl = Int((Rnd() * 100) + 1) End If

'geschätzte Zahl eingeben Eingabe = tb_eingabe.Value

'Gültigkeitsprüfung If Eingabe > 100 Or Eingabe < 1 Then MsgBox ("Bitte geben Sie eine Zahl zwischen 1 und 100 ein!") tb_eingabe.Value = "" Else 'Richtige Eingabe If Eingabe = Zahl Then Cells(Counter + 2, 1) = Eingabe Cells(Counter + 2, 2) = "geschätzte Zahl richtig!"

    'Abfrage zum erneuten Spielen
    Abfrage = MsgBox("Richtig! Gebrauchte Versuche: " & Counter + 1 & vbLf & "Wollen Sie noch einmal spielen?", vbYesNo)
    If Abfrage = vbNo Then
        Application.Quit
    Else
        Columns("A:B").Select
        Selection.ClearContents
        Range("A1").Select
        ActiveCell.FormulaR1C1 = "geschätzte Zahl"
        Range("B1").Select
        ActiveCell.FormulaR1C1 = "Tipp"
        Range("A2").Select
        Zahl = 0
        Counter = 0
        tb_eingabe.Value = ""
        Exit Sub
    End If
End If

'eingegebene Zahl ist größer
If Eingabe > Zahl Then
    Cells(Counter + 2, 1) = Eingabe
    Cells(Counter + 2, 2) = "geschätzte Zahl zu groß"
    tb_eingabe.Value = ""
    Counter = Counter + 1
End If

'eingegeben Zahl ist kleiner
If Zahl > Eingabe Then
    Cells(Counter + 2, 1) = Eingabe
    Cells(Counter + 2, 2) = "geschätzte Zahl zu klein"
    Counter = Counter + 1
    tb_eingabe.Value = ""
End If

End If

End Sub

als Fehler kommen Die anweisung ist in einem Namespace ungültig wenn ich rauf klicke markiert er

Dim Zahl As Integer Dim Counter As Integer

Private Sub btn_click_Click()

(ganz oben) kann mir wer den code richtig machen?

...zum Beitrag

Wie kann man in Excel-VBA mehrere If-bedingungen, die die selbse Reaktion auslösen sollen, zusammenfassen?

Ich habe in VBA eine Userform erstellt. Es handelt sich hierbei um eine Eingabemaske, die mehrere Textboxen enthält, die mit Werten ausgefüllt werden müssen. Das funktioniert soweit recht gut, aber ich möchte noch folgende Funktionalität ergänzen. Un zwar: Wird eines der Felder ausgelassen, soll die MsgBox erscheinen mit dem Hinweis, dass alle Felder ausgewählt werden müssen. Das ist bei einem Feld kein Problem:

If TextBox1.Value = "" Then MsgBox "Alle Felder müssen ausgefüllt werden" Exit Sub End If

Ich suche jetzt aber nach der Möglichkeit, wie ich die If-Then Struktur so umändern kann, dass die MsgBox erscheint, sobald eine oder mehrere der 10 Textboxen der Userform leergelassen werden.

...zum Beitrag

Excel VBA Userform: Textbox abhängig von Combobox machen?

Hallo,ich bin aktuell an einem Excel Projekt, in dem ich per VBA eine Userform erstellen möchte. Nun komme ich an folgender Prozedur nicht weiter.Ausgangssituation: Ich habe eine Userform mit Combobox (Combobox1) und Textbox (Textbox1) erstellt. Ich möchte nun, dass sobald in der Combobox ein bestimmter Wert ausgewählt wird, in der Textbox ebenso ein bestimmter Wert erscheint, der nur auf den einen Wert der Combobox passt. Die Combobox funktioniert einwandfrei, die Textbox macht nur nicht was sie soll. Bitte um Hilfe.Hier mein aktueller Code:

Private Sub UserForm_Initialize()

Me.ComboBox1.AddItem Range("A2")

Me.ComboBox1.AddItem Range("A3")

Me.ComboBox1.AddItem Range("A4")

Me.ComboBox1.AddItem Range("A5")

Me.ComboBox1.AddItem Range("A6")

If ComboBox1.Value = Range("A2") Then

TextBox1.Text = "5"

End If

End Sub

...zum Beitrag

VBA mehrere Textboxen außer XY auf Inhalt prüfen?

Hallo zusammen,

kann man für mehrere Textboxen bis auf Ausnahmen den gleichen Inhalt prüfen?

Zu Sache: Ich habe ein Userform mit einer Multiseite mit 10 Pages. Jeder Page hat 63 Textboxen, ergo 630 Textboxen im gesamten Userform.

Von diesen 630 Textboxen muss in 620 Textboxen geprüft werden, ob diese entweder leer sind oder eine Uhrzeit steht. Wenn dieses der Fall ist, dann ist alles Ok. Ansonsten soll entsprechend der Vorgang abgebrochen werden.

Die 620 Textboxen haben alle individuelle Namen wie (AN1t1a, AN1t1e, AN1t2a usw.) Dies ist nach einem bestimmten Muster.

Die restlichen Textboxen, die NICHT geprüft werden sollen haben Namen wie (AN_Name1, AN_Name2, AN_Name3 usw. bis 10).

Wie können nun alle 620 Textboxen auf folgendes Format geprüft werden:

Private Function CheckTime(ByVal txt As String) As Boolean

If txt.Length <> 5 or txt.Length <> 0 Then
Return False
End If

If txt(0) >= "3" Then
Return False
End If

If txt(0) = "2" AndAlso txt(1) >= "4" Then
Return False
End If

If txt(2) <> ":" Then
Return False
End If

If txt(3) = "0" AndAlso txt(4) <> "0" Then
Return False
End If

If txt(3) = "1" AndAlso txt(4) <> "5" Then
Return False
End If

If txt(3) = "2" Then
Return False
End If

If txt(3) = "3" AndAlso txt(4) <> "0" Then
Return False
End If

If txt(3) = "4" AndAlso txt(4) <> "5" Then
Return False
End If

If txt(3) > "4" Then
Return False
End If

Return True
End Function

Falls die Prüfung auf die korrekte Uhrzeit fehlerhaft ist oder auch einfacher geht, nehme ich die Hilfe auch gerne an :) Erlaubte Uhrzeiten sollen im Forma HH:MM sein und im Viertelstunden Takt (10:00, 10:15, 10:30, 10:45) erlaubt sein. Nur Zahlen sind nicht möglich, da es auch einen Doppelpunkt gibt ;)

Gruß

...zum Beitrag

VBA: Zwei Spalten mit Wert multiplizieren und dann addieren mit Hilfe von Makros

Hallöchen,

ich habe folgendes Problem Ich habe zwei Spalten die ich jeweils miteinander addieren möchte. Doch bevor ich diese addiere, möchte ich Spalte B mit dem Wert aus der TextBox1 multiplizieren und Spalte C mit dem Wert aus Textbox2. Danach sollen beide Spalten miteinander addiert und dann sortiert werden. Spalte D ist in diesem Fall die Ergebnisspalte. Das Programm hat auch schon funktioniert, jedoch habe ich vorher nur die spalten addiert und sortiert.

HIer mein bereits geschriebener Code:

Private Sub CommandButton1_Click()



' Prüfen ob Lastspitzen eingetragen wurden, ansonsten Fehlermeldung

        If TextBox1.Value = "" Or TextBox2.Value = "" Then
        MsgBox "Bitte geben Sie eine Lastspitze ein!"
     
Else
        
Dim wks As Excel.Worksheet
Dim lngLetzteZeile As Long
Dim Last1 As Integer
Dim Last2 As Integer
Last1 = TextBox1.Value
Last2 = TextBox2.Value  

Set wks = ActiveWorkbook.Worksheets("Vergleich")


With wks
 
lngLetzteZeile = .Cells(.Rows.Count, "B").End(xlUp).Row
If lngLetzteZeile < 15 Then Exit Sub

 With .Range("D15:D" & lngLetzteZeile)
 'berechne: D := B + C
 .FormulaR1C1 = "=RC[-2]*Last1+RC[-1]*Last2"
 'Formeln durch deren Ergebnis ersetzen
 .Value = .Value
 End With
 
With .Range("B15:D" & lngLetzteZeile)
 .Sort Key1:=.Cells(2), Order1:=xlDescending, _
 DataOption1:=xlSortTextAsNumbers, _
 SortMethod:=xlPinYin
End With

End With
End If


End Sub

...zum Beitrag

VBA Währungsrechner?

Ich dachte nicht, dass mir VBA Probleme machen würde, doch anscheinend doch. Ich programmiere seit gut drei Jahren und das, was am einfachsten ist, bringt mich gerade zum Verzweifeln. Es liegt aber auch daran, dass ich mich in VBA nicht gut auskenne.

Hier mein Problem:

Ich habe eine Userform mit zwei Textboxen. In die Textbox1 schreibe ich einen Wert hinein. Dieser Wert multipliziert sich dann mit dem Wert 61,7 aus der Spalte G2. Das Resultat erscheint anschließend in der Textbox2 mit der Währung CHF hintendran.

Das ist mein Code:

Private Sub CommandButton1_Click()
  Unload Me
End Sub

Private Sub TextBox1_Change()
  On Error Resume Next
  TextBox2.Value = TextBox1.Value * Tabelle1.Range("g2").Value
End Sub

Private Sub TextBox2_Change()
  On Error Resume Next
  If TextBox2 <> "" Then
    TextBox2 = Format(TextBox2, "##,##0.00 Fr.")
End Sub

Private Sub UserForm_Click()
End Sub

Nach meinen Erfahrungen her stimmt der Code. Es scheitert jedoch beim multiplizieren, denn für mein Programm ist 1 x 64,7 = 22’463.00 CHF.

...zum Beitrag

C# / Windows Forms: Ein if statement und zwei conditions?

Ich habe zwei if statements gebaut: Einmal für das Passwort und einmal für den Nutzername. Wenn ich den else-Befehl ausführe, startet das Programm trotz falschem Passwort aber korrektem Nutzername.

Beides muss passen, um eingeloggt zu werden und nicht eins.^^

if (textBox1.Text == "Username hier platzieren")
{
  this.Hide();
  Form2 f1 = new Form2();
  f1.ShowDialog();
  this.Close();
}

if (textBox2.Text == "Passwort hier platzieren")
{
  this.Hide();
  Form2 f1 = new Form2();
  f1.ShowDialog();
  this.Close();
}

Wie ihr seht ist das sehr umständlich gebaut.^^

Ich möchte es in etwa so haben:

if (textBox1.Text == "Username hier platzieren") (textBox2.Text == "Passwort hier platzieren")
{
  this.Hide();
  Form2 f1 = new Form2();
  f1.ShowDialog();
  this.Close();
}
else
{
  textBox1.Hide();
  textBox2.Hide();
  label1.Hide();
  label2.Hide();
  button1.Hide();
  label3.Show();
  label4.Show();
  label5.Show();
  
  Width = 414;
  Height = 155;

Leider klappt diese Methode nicht, weil ich anscheinend irgendetwas vergessen habe, um das if statement zu erweitern. Nur weiß ich nicht was.

Dieses Login-System ist nichts Wildes. Ich bin nur ein bisschen am Üben, wie alles so im Thema Programmierung funktioniert.

...zum Beitrag

VBA zu HTML Code umgewandelt - Zeilenumbrüche weg?

Hallo,

ich habe durch den unten beigefügten Code versucht eine E-Mail samt Signatur automatisch kommen zu lassen. Nun habe ich das Problem, dass die Absätze in der Mail weg sind und alles in einer Zeile ist. Wie behebe ich das?

Private Sub CommandButton2_Click()

Dim objOutlook As Object

Dim objMail As Object

Dim S As String

Dim body As String

Dim htbody As String

Set objOutlook = CreateObject("Outlook.Application")

Set objMail = objOutlook.CreateItem(0)

If TextBox2.text = "" Or TextBox2.text = TextBox1.text Then

body = "Sehr geehrte Frau x," & vbCrLf & _

vbCrLf & _

"Folgende/r Mitarbeiter/in ist erkrankt:" & vbCrLf & _

vbCrLf & _

ComboBox1.text & vbCrLf & _

vbCrLf & _

"Zeitraum: " + TextBox1.text

Else

body = "Sehr geehrte Frau x," & vbCrLf & _

vbCrLf & _

"Folgender Mitarbeiter ist erkrankt:" & vbCrLf & _

vbCrLf & _

ComboBox1.text & vbCrLf & _

vbCrLf & _

"Zeitraum: " + TextBox1.text + " bis " + TextBox2.text

End If

htbody = fnConvert2HTML(htbody)

S = Environ("appdata") & "\Microsoft\Signatures\autoE-Mailsenden.htm"

If Dir(S, vbDirectory) <> vbNullString Then

S = S

S = CreateObject("Scripting.FileSystemObject").GetFile(S).OpenAsTextStream(1, -2).readall

With objMail

.To = "x.de"

.Subject = "Krankmeldung " + ComboBox1.text + " x"

htbody = body & " " & S

.htmlbody = "" & htbody & ""

.Display 'Erstellt die Email und öffnet diese. Der Versand erfolgt anschließend manuell vom User!

End With

Else

' With objMail

' .To = Empfänger

' .Subject = Betreff

' htbody = body '& " " & S

' .htmlbody = "" & htbody & ""

' .Display

' ' .Display 'Erstellt die Email und öffnet diese. Der Versand erfolgt anschließend manuell vom User!

' End With

End If

End Sub

Zudem noch folgende Funktion:

Function fnConvert2HTML(myText As String) As String

Dim bldTagOn, itlTagOn, ulnTagOn, colTagOn As Boolean

Dim i, chrCount, n As Integer

Dim chrCol, chrLastCol, htmlTxt As String

Dim myChar As String

bldTagOn = False

itlTagOn = False

ulnTagOn = False

colTagOn = False

chrCol = "NONE"

htmlTxt = "<html>"

chrCount = Len(myText)

End Function

Danke im voraus!!!

...zum Beitrag

Kann man port.ReadLine(); schneller verarbeiten?(C#)?

Hallo

ich programmiere gerad etwas mit Seriellen Schnittstellen und bin auf den Befehl port.Readline gestoßen. Aber leider ist die Wartezeit zu lange und das Programm friert ein. Kann man die Lesezeit irgendwie abkürzen?

 public partial class Form1 : Form
    {




        string read;
        public Form1()
        {


            InitializeComponent();
            comboBox1.Items.AddRange(SerialPort.GetPortNames());
        }


        private void Connect_Click(object sender, EventArgs e)
        {


            try
            {




                SerialPort port = new SerialPort(comboBox1.SelectedItem.ToString(), 9600, Parity.None);
             
            if (port.IsOpen)
            {
                port.Close();


            }
            


                port.Open();
              
                port.WriteLine("1");


             
                textBox1.Text += port.ReadTimeout;
    
                textBox1.Text += port.BytesToRead;
                textBox1.Text += port.DataBits;
                textBox1.Text += port.ReadLine();


                port.Close();
            }


            catch (System.OperationCanceledException d)
            {
                MessageBox.Show(d.Message);
                MessageBox.Show("Nix");
            }
            catch (TimeoutException f)
            { MessageBox.Show(f.Message);


            }
            catch(NullReferenceException f)
            { MessageBox.Show(f.Message); }
            comboBox1.Items.Clear();
            comboBox1.Items.AddRange(SerialPort.GetPortNames());


        }




    }
}

...zum Beitrag

Wie kann man in Excel per VBA abhängig von einem Wert Spalten aus-/einblenden?

Hey. Ich weiß zu diesem Thema gibt es schon ein paar Einträge im Netz. jedoch habe ich es nie für mich umformuliert bekommen. Vielleicht kann mir hier jemand helfen?

In Zelle G6 steht ein Wert von 1-6. Abhängig davon sollen dann immer andere Spalten ausgeblendet werden. Mein Code zur Zeit:

Sub Ausblenden()
'
' Ausblenden Makro
'
' Tastenkombination: Strg+a
'
    If "G6" = "1" Then
                Columns("v:bn").EntireColumn.Hidden = False
                Columns("v:bn").EntireColumn.Hidden = True
            Else
                If "G6" = "2" Then
                    Columns("v:bn").EntireColumn.Hidden = False
                    Columns("ae:bn").EntireColumn.Hidden = True
                Else
                    If "G6" = "3" Then
                        Columns("v:bn").EntireColumn.Hidden = False
                        Columns("an:bn").EntireColumn.Hidden = True
                    Else
                        If "G6" = "4" Then
                            Columns("v:bn").EntireColumn.Hidden = False
                            Columns("aw:bn").EntireColumn.Hidden = True
                        Else
                            If "G6" = "5" Then
                                Columns("v:bn").EntireColumn.Hidden = False
                                Columns("bf:bn").EntireColumn.Hidden = True
                            Else
                                If "G6" = "6" Then
                                    Columns("v:bn").EntireColumn.Hidden = False
                                End If
                            End If
                        End If
                    End If
                End If
    End If
End Sub

Ich bin ein VBA anfänger, also bitte seit nachsichtig x). Danke schon einmal im voraus!

...zum Beitrag