Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 14:29:30
Matrixkonstanten als Quelle für Gültigkeit und Steuerelement
16.04.2024 13:54:06
Multiplikation
16.04.2024 12:41:11
Vielleicht Onur ? Leider werden nicht alle Monate
16.04.2024 12:08:33
Zelle/Spalte bestimmten Wert in Kopfzeile zuordnen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1152to1156
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
1152to1156
1152to1156
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Formel in Abhängigkeit von anderem Wert

VBA Formel in Abhängigkeit von anderem Wert
anderem
Hallo,
ich suche nach der entsprechenden VBA-Formel für die Berechnung:
=WENN(M385="Herr";"geehrter";"geehrte")
ListBox1 eines Userforms enthält den Wert "Frau" oder "Herr". Dieser Wert wird in Spalte M eingetragen.
Die oben stehende Formel soll gelöscht und stattdessen in den VBA-Code des Userforms eingetragen werden. Ich kriege das nicht hin.
Danke für Eur Hilfe!
AW: VBA Formel in Abhängigkeit von anderem Wert
21.04.2010 14:38:27
anderem
Hallo,
so wie ich es verstanden habe müsste es so gehen.
If ListBox1.ListIndex > -1 Then
With Sheets("Tabelle1") 'Name der Tabelle anpassen
If .Range("M385") = ListBox1 Then
.Range("N385") = "geehrter" 'Ergebnis Zelle anpassen
Else
.Range("N385") = "geehrte"  'Ergebnis Zelle anpassen
End If
End With
End If
Gruß Tino
AW: VBA Formel in Abhängigkeit von anderem Wert
21.04.2010 14:53:55
anderem
Hallo,
ich glaube ich habe mich etwas holprig ausgedrückt.
Die Spalte M soll mit dem Wert der Listbox1 gefüllt werden. Die Zeile ist variabel und wird durch
Dim z As Integer
z = Range("A65536").End(xlUp).Row + 1
bestimmt.
Wenn also in Listbox "Herr" steht, soll in Spalte M der gleichen zeile "geehrter", wenn "Frau" dort steht dann in Spalte M "geehrte" eingetragen werden.
Danke!
Anzeige
AW: VBA Formel in Abhängigkeit von anderem Wert
21.04.2010 15:18:42
anderem
Hallo,
versuchen wir es nochmal
Dim MeAr()
Dim nCount&, MaxRow&
Dim sInhalt$


With Sheets("Tabelle1") 'Tabelle anpassen 
    'Tabellenbereich wo Herr oder Frau steht 
    MaxRow = .Cells(.Rows.Count, 1).End(xlUp).Row
    If MaxRow > 1 Then 'ohne Überschrift 
        
        If MaxRow = 2 Then
            MeAr = .Range("A2", .Cells(MaxRow, 1)).Resize(, 2).Value2
            Redim Preserve MeAr(1 To Ubound(MeAr), 1 To 1)
        Else
            MeAr = .Range("A2", .Cells(MaxRow, 1)).Value2
        End If
        
            For nCount = 1 To Ubound(MeAr)
                sInhalt = MeAr(nCount, 1)
                MeAr(nCount, 1) = Empty
                If sInhalt = "Herr" Then
                    MeAr(nCount, 1) = "geehrter"
                Else
                    MeAr(nCount, 1) = "geehrte"
                End If
            Next nCount
            'Ausgabebereich hier ab M2 
            .Range("M2").Resize(Ubound(MeAr)) = MeAr
     
     End If
End With
Ergebnis sieht danach so aus.
 ABCDEFGHIJKLM
2Herr           geehrter
3Frau           geehrte
4Herr           geehrter
5Frau           geehrte
6Herr           geehrter
7Frau           geehrte
8Herr           geehrter
9Frau           geehrte
10Herr           geehrter
11Frau           geehrte
12Herr           geehrter
13Frau           geehrte
14Herr           geehrter
15Frau           geehrte
16Herr           geehrter

Gruß Tino
Anzeige
besser so, sollte es leere Zellen geben...
21.04.2010 15:23:39
Tino
Hallo,
Dim MeAr()
Dim nCount&, MaxRow&
Dim sInhalt$


With Sheets("Tabelle1") 'Tabelle anpassen 
    'Tabellenbereich wo Herr oder Frau steht 
    MaxRow = .Cells(.Rows.Count, 1).End(xlUp).Row
    If MaxRow > 1 Then 'ohne Überschrift 
        
        If MaxRow = 2 Then
            MeAr = .Range("A2", .Cells(MaxRow, 1)).Resize(, 2).Value2
            Redim Preserve MeAr(1 To Ubound(MeAr), 1 To 1)
        Else
            MeAr = .Range("A2", .Cells(MaxRow, 1)).Value2
        End If
        
            For nCount = 1 To Ubound(MeAr)
                sInhalt = MeAr(nCount, 1)
                MeAr(nCount, 1) = Empty
                If sInhalt = "Herr" Then
                    MeAr(nCount, 1) = "geehrter"
                ElseIf sInhalt = "Frau" Then
                    MeAr(nCount, 1) = "geehrte"
                End If
            Next nCount
            'Ausgabebereich hier ab M2 
            .Range("M2").Resize(Ubound(MeAr)) = MeAr
     
     End If
End With
Gruß Tino
Anzeige
AW: besser so, sollte es leere Zellen geben...
21.04.2010 15:49:14
onkelbobby
Hm,
wenn ich das richtiv verstehe wird die ganze Tabelle hier immer wieder neu berechnet.
Da die Datensätze recht umfangreich sein können, hatte ich mir das anders vorgestellt.
Zur Veranschaulichung noch mal der bisherige Code:
Private Sub CommandButton1_Click()
Dim z As Integer
z = Range("A65536").End(xlUp).Row + 1
Cells(z, 1) = TextBox1
Cells(z, 2) = TextBox2
Cells(z, 4) = TextBox3
Cells(z, 5) = TextBox4
Cells(z, 6) = TextBox5
Cells(z, 13) = ListBox1
Cells(z, 29) = Month(CDate(TextBox10))
Cells(z, 30) = Day(CDate(TextBox10))
...
Also: Durch das Userform trage ich Daten in die Tabelle ein. In Spalte 13 der Eintrag der Listbox entweder "Frau" oder "Herr". Jetzt möchte ich in Spalte 31 abhängig von der Listbox1 (= Spalte 13) den Eintrag "geehrte" oder "geehrter". Und zwar immer nur die Berechnung für die aktuelle Zeile.
Also irgendwie so:
Cells(z, 31)= .... Hier dann die Formel (also so ähnlich wie die Berechnung von Monat und Tag in Spalte 29 und 30).
Geht das?
Danke
Anzeige
AW: besser so, sollte es leere Zellen geben...
21.04.2010 16:06:15
Tino
Hallo,
verstehe zwar nicht, einmal in Spalte M nun in Spalte 31.
Egal, müsste gehen.
If ListBox1.ListIndex > -1 Then
Cells(z, 31) = IIf(ListBox1 = "Herr", "geehrter", "geehrte")
Else
Cells(z, 31) = Empty
End If
Gruß Tino
AW: besser so, sollte es leere Zellen geben...
21.04.2010 16:19:42
onkelbobby
Thats it.
Vielen Dank!
Ich sagte ja ich hatte mich anfangs wohl ein bisschen holprig ausgedrückt. Spalte M = Spalte 13 (dort steht Herr oder Frau). Spalte 31 dann "geehrte" oder "geehrter"
Danke!

337 Forumthreads zu ähnlichen Themen

Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
Anzeige
Letzter Wert einer Spalte (Matrixformel)
{mskro}

Hallo Excelaner,
ich benötige mal wieder eine Hilfestellung.
Es soll der Wert in einer Spalte angezeigt werde, der in der untersten Zeile steht.
Mittels der Recherche habe ich nun folgende MatrixFormel erstellt:
=INDEX(Z1:Z5000;MAX(WENN(Z1:Z5000"";ZEILE(1:5000)));1)
Nur wird...
28.08.2008 09:59:21
Thread-ID: 1005303
9 Beiträge
Array-Formel in VBA-Code umwandeln?
Robert

Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ic...
26.10.2008 10:56:28
Thread-ID: 1019326
13 Beiträge
Anzeige
Formel in Makro umwandeln?
Josef_T

Guten Abend zusammen.
Habe mal wieder ein Problem, dass ich alleine nicht gelöst bekomme.
Es geht darum, einen Ausdruck zu machen wobei nur Zeilen gedruckt werden sollen, die in C einen Wert haben, der grösser Null ist.
Habe mal ein Muster hochgeladen, weil meine Fragen und Erklärun...
29.11.2008 19:08:00
Thread-ID: 1028896
6 Beiträge
Formel einfügen wenn in A:A Werte stehen
Micha

Hallo zusammen,
ich bastle mal wieder an meinen Münzdateien und komme nicht so richtig weiter.
Mein Problem:
In Spalte A stehen Werte (z.B. 5 Pf), diese möchte ich nun trennen [in B2 soll per VBA die Funktion =Links(A2;1) / FormulaR1C1 = "=LEFT(RC[-53],1) ].
Diese Formel sollte...
14.01.2009 21:28:00
Thread-ID: 1039822
13 Beiträge
Formel wird nicht ausgeführt
Andy

Hallo Leute,
Guten Abend. Ich habe ein ganz großes Problem.
Ich habe eine Exceldatei mit vielen Datensätzen (ca. 8000). In Spalte C habe ich eine Formel, die auf Spalte A und B Bezug nimmt und aus einer Matrix den entsprechenden Wert sucht. Das ganze hat bis jetzt super funktioniert. W...
19.02.2009 16:47:00
Thread-ID: 1052226
8 Beiträge
Datum in Textbox in eine Zahl umwandeln
TCO99

Hallo zusammen,
ich habe folgendes Problem.
In einer Spalte einer Tabelle befinden sich Datumsangaben. Ich filtere diese Liste nach einem Datum. Dieses Datum wird vor der Filterung in eine Textbox eingegeben. Als richtiges Datum fuktioniert die Filterung aber nicht mehr. Da habe ich ei...
26.02.2009 23:31:12
Thread-ID: 1054555
15 Beiträge
Kann Formel nicht in Makro umwandeln. mit bsp xls
Julia


Gestern habe ich hier tolle Hilfe zu einer Berechnung bekommen. Dank der Tipps hab ich die Formeln bekommen
Jetzt hat sich die Ausgangstabelle geändert. Ich hab zwar die Formeln bekomme das aber nicht als Makro hin.
Habe eine Bsp.xls hochgeladen:
https://www.herber.de/bbs/user/...
13.03.2009 11:11:25
Thread-ID: 1059789
4 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
3
8
12
2
5
12
7
14
3
3
2
15
5
4
2
2
2
10
4
6
1
4
1
17