WAHR/FALSCH bzw. FALSE/TRUE Problem mit deutsch/englisch in Excel VBA?

Guten Morgen,

habe eine Userform (6 Textfelder + 1 Checkbox) zur einfachen Eingabe von Datensätzen

die Checkbox legt korrekt den jeweiligen Wert WAHR/FALSCH (in deutsch) in der Tabelle ab

sobald man speichert ist die Checkbox ausgegraut (nutzen könnte man die Checkbox schon)

ich bin jetzt draugekommen, das die Checkbox den Wert TRUE/FALSE (englisch!!) erwartet, damit der Haken der Checkbox angezeigt wird

das Ganze funktioniert also nur, wenn ich die Werte in der Spalte der Checkbox selbst auf enlisch ändere

getestet mit verschiedenen Office-Versionen (2010 - 365)

hat jemand vielleicht eine Idee woran das liegen könnte ?

und bitte Nachsichtig sein, ich bin Anfänger in VBA

2 Antworten

sebastianla

16.01.2018, 07:49

VBA ist nicht lokalisiert. Das sind Programmiersprachen nie, weil sonst die Portierung von Programmen (also z.B. ein Programm schreiben, das bei einem User mit deutschem und einem mit englischem Windows funktioniert und noch problemlos Dateien des einen beim anderen weiterbearbeiten kann) ein einziger Krampf wäre.

In Tabellenkalkulationen wie Excel ist abweichend von diesem Grundsatz aber die Formelsprache (und nur die) lokalisiert.

gabrixl

16.01.2018, 07:51

Ist von hier aus schwer festzustellen, aber du könntest für die Checkbox eine Boolean Variable festlegen, da spielt es keine Rolle ob es Deutsch oder Englisch ist.

Wenn du es in eine Zelle speichern willst, kannst du es trotzdem auf Deutsch in der Zelle stehen lassen. Du musst einfach beim öffnen der Form überprüfen ob die Zelle XY den Text "WAHR" oder "FALSCH" beinhaltet.

Ähnliche Beiträge

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

"Frame" mit "CheckBox" als Überschrift?

Ich möchte in einem Formular (UserForm) in Excel VBA einen Rahmen (Frame) erstellen, den ich mit einem Auswahlkästchen (CheckBox) in der Überschrift (Caption) als aktiv markieren kann.

Und dieser Link beweist, dass es einen Weg geben muss...

...zum Beitrag

Wie kann ich in VBA-Excel einen Filter setzen über einer CheckBox?

Hi,

ich suche eine einfachere Lösung für meine UserForm um über CheckBoxen meine Tabelle zu Filtern.

Im grunde möchte ich also, wenn ich einen Wert ankreuze soll dieser Gefiltert werden.

Wie im Beispiel (unten):

FKEP und KKEP angekreuzt = FKEP und KKEP angezeigt.

Nur KKEP angekreuzt = nur KKEP angezeigt

"Wert" der gefiltert werden soll | CheckBox Name
 FKEP                              CBFilterFKEP
 KKEP                              CBFilterKKEP
 KfB                               CBFilterKfB
 ausgesch.                         CBFilterausgesch
 beendet                           CBFilterbeendet
 EQ - KfB                          CBFilterEQKfB
 EQ - FKEP                         CBFilterEQFKEP

Mein momentaner Code schaut wiefolgt aus:

    Private Sub CBFilterFKEP_Click()

If CBFilterFKEP = True Then

    Sheets("Gesamtdaten").Range("$A$2:$EQ$502").AutoFilter Field:=3, Criteria1:=Array( _
    "FKEP"), Operator:=xlFilterValues

If CBFilterKKEP = True Then

    Sheets("Gesamtdaten").Range("$A$2:$EQ$502").AutoFilter Field:=3, Criteria1:=Array( _
    "FKEP", "KKEP"), Operator:=xlFilterValues

End If
End If
End Sub

Private Sub CBFilterKKEP_Click()

    If CBFilterKKEP = True Then

        Sheets("Gesamtdaten").Range("$A$2:$EQ$502").AutoFilter Field:=3, Criteria1:=Array( _
        "KKEP"), Operator:=xlFilterValues

    If CBFilterFKEP = True Then

        Sheets("Gesamtdaten").Range("$A$2:$EQ$502").AutoFilter Field:=3, Criteria1:=Array( _
        "KKEP", "FKEP"), Operator:=xlFilterValues

    End If
    End If
    End Sub

Soweit so gut ... nun habe ich aber nur FKEP und KKEP "abgestimmt" ... muss ich nun alle 5 Werte auch "abstimmen" ? Das wird nämlich ein SEHR langer code ... und ich könnte wetten das es in VBA viel leichter geht ...

Hat wer eine Idee von euch?

MfG Tim

...zum Beitrag

Wie kann ich einen Excel VBA Code Wert in eine vorhandene UserForm einfügen, bearbeiten und zurück übertragen?

Wie kann ich die Werte der Zellen einer Spalte in ein die Textboxen einer UserForm übergeben sodass ich die Werte im Formular bearbeiten und bearbeitet wieder in die Tabelle eintragen kann. Also ich suche einen Code den ich in VBA eingeben kann.

...zum Beitrag

Excel VBA Button per doppelklick?

Moinsen,

Ich würde gerne einen versteckten Button erstelln, der folgendes Kann:

Sub CommandButton1_Click()

If ActiveSheet.ProtectContents = False Then

ActiveSheet.Protect Password:="+1516", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingRows:=True

Else

ActiveSheet.Unprotect

End If

Jedoch würde ich ihn gerne nur per Doppelklick aktivieren lassen, da man sonst evt ausversehen drauf kommt.

...zum Beitrag

In Excel Spaltenbreite mittel VBA Code?

Hallo, ich habe einen VBA Code wo ich Spalten aus einer Excel- Datei nach Word kopiere. Jetzt möchte ich den Spalten unterschiedliche Längen vorgeben.

Den Code zum kopieren ist folgender:

    With liO.Range
      .Columns.Hidden = True                'jetzt werden erst mal alle Spalten ausgeblendet
      .Columns(2).Hidden = False    'Nummer           'und hier die Spalten die du brauchst wieder eingeblendet
      .Columns(4).Hidden = False    'Name
      .Columns(5).Hidden = False    'Vorname
      .Columns(13).Hidden = False   'gen_bis
      .Columns(14).Hidden = False   'Gruppe
      .Columns(19).Hidden = False 'Krankenkasse
      .Columns(21).Hidden = False  'Bemerkung
      
       '.Columns("B:O").EntireColumn.AutoFit 'geht so nicht
      
    End With

Wie muss ich den Code veräandern/ergänzen um für jede Zelle eine individuelle länge der Zelle zu erhalten? Gruß

...zum Beitrag

Excel Kontrollkästchen (checkbox) in VBA ohne zellenzuweisung?

Ist es in Excel möglich mit Visual Basic (Makro) den wert einer Checkbox abzurufen ohne diese mit einer Zelle zu verlinken? zB. Über den Namen der Checkbox welcher ja einzigartig sein muss? Ich habe den Namen in dem Feld oben links umbenannt, er beinhaltet Bindestrich, das scheint VBA auch nicht zu gefallen, gibt's da ne Lösung? Es sollte eine If Then Funktion sein «If RM-CKB1 = True Then..... » Vielen Dank im Voraus

...zum Beitrag

Excel VBA, Userform an Zelle binden / in Zelle anzeigen?

Ich habe in Excel eine kleine Userform erstellt, mit 4 Textboxen, in 3 werden Werte eingetragen und in der 4. ein Ergebnis ausgegeben.

Diese Userform wird jetzt als eigenständiges Fenster über dem eigenlichen Arbeitsblatt angezeigt.

Was ich gerne hätte ist, dass die Userform in einer Zelle angezeigt wird, so dass ich sie in mein Arbeitsblatt integrieren kann und zB in der Zelle A4 dann die Userform angezeigt wird.

Ist soetwas realisierbar?

...zum Beitrag

VBA Dateiauswahl - Bei Abbruch Laufzeitfehler 5, jemand Ideen?

Hallo zusammen,

was müsste ich hinzufügen, um den Laufzeitfehler 5 zu umgehen? Wenn ich den VBA-Code ausführe, öffnet sich das Fenster für den Import von DAT-Dateien. Drücke ich auf Abbrechen, erscheint der Laufzeitfehler 5. Vermerkt wird der Code "Set F = fs.GetFolder(strPfad)". Wo und welchen Code müsste ich hinzufügen, um den Fehler zu beheben? Vielen Dank im Voraus. :)

Sub Schaltfläche1_Klicken()
'
'
'*** Öffnen von DAT-Dateien
Dim strText As String, strFilter As String

strText = "Bitte eine Auswertung Auswählen"
strFilter = "DAT-Dateien (*.DAT), *.DAT"""
strAuswahl = Application.GetOpenFilename(strFilter, 1, strText)
strPfad = Pfad_ermitteln(strAuswahl)
'
Set fs = CreateObject("Scripting.FileSystemObject")
Set F = fs.GetFolder(strPfad)
Set fc = F.Files

If ActiveSheet Is Nothing Then Workbooks.Add
For Each File In fc
    Zeile = Cells(65000, 1).End(xlUp).Row + 2
    strEinfügen = Cells(Zeile, 1).Address
    strAuswahl = File.Path

    'Einfügen
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & strAuswahl _
        , Destination:=Range(strEinfügen))
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileDecimalSeparator = "."
        .TextFileThousandsSeparator = ","
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
  End With
  Range(strEinfügen).QueryTable.Delete
Next
End Sub
_______________________________

 Function Pfad_ermitteln(ByVal strAuswahl As String) As String
 
 For i = Len(strAuswahl) To 1 Step -1
    If Mid(strAuswahl, i, 1) = "\" Then
        Pfad_ermitteln = Left(strAuswahl, i - 1)
        Exit Function
    End If
Next
End Function

...zum Beitrag

VBA | UserForm öffnen, sobald Excel-Zelle (die eine Formel enthält) = 2?

Hallo,

Excel-VBA....

ich benötige Hilfe beim Thema UserForm öffnen und ständige Abfrage.

Ich habe eine Zelle mit einer Formel, der Wert, welcher raus kommt soll verglichen werden und bei z.b höher als 2 soll eine User Form geöffnet werden.

Kann mir da wer helfen? Ich bin komplett auf dem Holzweg..

Der Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$T$6" Then
If UCase(Target.Value) > 2 Then NewUserForm.Show
End If

End Sub

Devo

...zum Beitrag

VBA Counter Problem?

Hallo Zusammen,

ich hab ein Problem in VBA. Ich muss bei jedem klicken auf Raten den counter +1 erhöht werden. Leider ergibt sich bei mir eine Endlos-Schleife. Brauche Hilfe.

Private Sub btnRaten_Click()
Dim Userzahl As Integer 'Eingegebene Zahl
Dim PCzahl As Integer 'Zufallszahl
Dim anzahl As Integer
Dim Ende As Boolean


anzahl = 0


PCzahl = Int((Rnd() * 100) + 1)


Userzahl = Val(tbxEingabe.Value)


Ende = False


Do Until Ende = True


anzahl = anzahl + 1


If Userzahl < PCzahl Then
lblAusgabe = "Die Zahl " & Userzahl & " ist zu klein"
Ende = False


ElseIf Userzahl > PCzahl Then
lblAusgabe = "Die Zahl " & Userzahl & " ist zu groß"
Ende = False


ElseIf Userzahl = PCzahl Then
lblAusgabe = "Gewonnen!"
Ende = True


End If


lblCounter.Caption = anzahl
Loop


End Sub

Danke für eure Hilfe.

...zum Beitrag

VBA userform textbox inhalt ändern?

Ich bin am verzweifeln. seit längerer zeit verzweifle ich an einem absoluten basic.

ich habe eine userform angelegt. auf dieser eine textbox gezeichnet.

in einem anderen modul schreibe ich, dass der wert/Value geändert werden soll. aber es passiert nichts.....

in modul3:

sub test()

UserForm1.Show

UserForm1.TextBox1.Value= "test"

end sub

der inhalt bleibt gleich und wird nicht auf "test" geändert...

...zum Beitrag

VBA | Tabellen-PDF auch mit Datum speichern?

Hallo zusammen,

ich speichere mein Tabellenblatt als PDF,

Trotz Recherche und Tests kommt bei mir eine Fehlermeldung, wenn ich ein Datum in den Namen einfügen möchte.

Dim DateiName As String

Sheets("rec").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

DateiName = "Testseite01.pdf"

...zum Beitrag

Microsoft office excel VBA Makro zum Drucken versch Druckbereiche?

Hallo,

ich schreibe gerade an einem Drucker Makro mit UserForm.

Auf der UserForm sind mehrere CheckBoxen, und ein Durck-Button.

Das Ziel ist es: Z.b. dass man CheckBox1 und CheckBox3 anklickt und so die beiden Druckbereiche ausgewählt werden. Beim drücken des "Drucken" Buttons sollen dann die beiden druckbereiche jeweils auf eine seite gedruckt werden.

Ich habs soweit hinbekommen, dass sich über die checkboxen die richtigen druckbereiche auswählen lassen. JEDOCH lassen sich zwar mehrere checkboxen ankreuzen, jedoch druckt es letzendlich immer nur eine seite mit dem Druckbereich des letzt gedrückten checkbox.

Also prinzipiell könnte man wenn man z.b. Checkbox1 und checkbox 3 gedruckt haben will. Nacheinander die 1 anwählen drucken drücken und dann die 3 anwählen drucken drücken.

Das Ziel ist es aber dass beide gleichzeitig angewählt sein können und dann auch beide gedruckt werden auf jeweils eine seite.

Welchen code muss ich ergänzen? und vorallem wo?

Vielen dank

...zum Beitrag

Was möchtest Du wissen?

Deine Frage stellen