Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1588to1592
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
1588to1592
1588to1592
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

per VBA wenn dann

per VBA wenn dann
09.11.2017 07:34:26
jonnygoo
  • Hallo, benötige Hilfe.
    Ich möchte per VBA , dass wenn in Zeile A1,A2,A3 usw bis unendlich ein "L" eingegeben wird, parallel 3 Spalten weiter in E1+F1+G1 ein "-" eingetragen wird.
    Und auch nur 3 Spalten weiter wo in A* ein "L" steht.
    Beispiel:
    In A1 steht ein "L", E1+F1+G1 steht ein "-"
    In A5 steht ein "L", E5+F5+G5 steht ein "-"
    In A257 steht ein "L", E257+F257+G257 steht ein "-"

    • 4
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    Das sind aber 4 Spalten
    09.11.2017 08:09:08
    Matthias
    Hi
    Das sind aber 4 Spalten von "A" bis "E" ! 
    
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Target = "L" Then Target.Offset(, 4) = "-"
If Target = "L" Then Target.Offset(, 5) = "-"
If Target = "L" Then Target.Offset(, 6) = "-"
End If
End Sub
    Gruß Matthias
    Definiere unendlich...
    09.11.2017 08:17:37
    EtoPHG
    Hallo jonny,
    Unendlich Zellen gibts weder im Universum, geschweige den in einer Arbeitsmappe.
    Kannst du Erläutern, was für eine Konzept dahintersteckt 1'048'576 Zellen mit einem "L" und 3'145'728 Zellen mit einem "-" zu füllen?
    Mit diesem Makro im entsprechenden Tabellenblatt, werden die Zellen der Spalte E:G jeweils mit einem "-" gefüllt, wenn in der gleichen Zeile in A ein "L" eingegeben wird: 
    Private Sub Worksheet_Change(ByVal Target As Range)
Dim rC
If Not Intersect(Target, Columns(1)) Is Nothing Then
For Each rC In Intersect(Target, Columns(1))
If IsEmpty(rC) Then
rC.Offset(, 4).ClearContents
rC.Offset(, 5).ClearContents
rC.Offset(, 6).ClearContents
End If
If rC = "L" Then
rC.Offset(, 4) = "-"
rC.Offset(, 5) = "-"
rC.Offset(, 6) = "-"
End If
Next rC
End If
End Sub
    Gruess Hansueli
    Anzeige
    AW: per VBA wenn dann
    09.11.2017 10:27:35
    jonnygoo
  • Vielen Dank Matthias
    der Code funktioniert perfekt !!
    Option Explicit 
    Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Target = "L" Then Target.Offset(, 4) = "-"
If Target = "L" Then Target.Offset(, 5) = "-"
If Target = "L" Then Target.Offset(, 6) = "-"
End If
End Sub

    • Perfekt? Füll mal mehre Zellen GLEICHZEITIG! (ow)
    09.11.2017 14:05:35
    EtoPHG

    307 Forumthreads zu ähnlichen Themen

    VBA Code: wenn B1 <> blank, dann I in A1 schreiben
    maxx_1985

    Hi mit'nander
    Braeuchte einen kleine Code dafuer:
    wenn B1 blank, dann schreibe ein I in A1.
    kann mir vielleicht jemand helfen? :-)
    vielen vielen dank
    denis
    18.11.2008 16:27:16
    Thread-ID: 1025694
    5 Beiträge
    Anzeige
    Ohne VBA: Wenn Autofilter, dann anderen Zellwert
    sunni

    Hallo alle zusammen,
    gibt es eine Möglichkeit über Excel (ohne VBA) zu sehen, ob ein Autofilter gesetzt ist?
    Hintergrund: ich habe eine Formel bei gesetztem Autofilter. Wenn aber kein Autofilter gesetzt ist, soll hier in der Zelle eine 0 oder "" erscheinen.
    Geht das?
    Vielen Dank...
    08.01.2010 12:35:47
    Thread-ID: 1128216
    8 Beiträge
    wenn(isfehler=wahr;dann;sonst in vba
    Joachim

    Hallo,
    ich wollte folgende Formel in vba schreiben:
    =WENN(ISTFEHLER(VERGLEICH(B1;Wasserdaten!A:A;0))=WAHR;VERGLEICH(B1;Wasserdaten!A:A;1);VERGLEICH(B1; Wasserdaten!A:A;0))
    Mein Code dazu geht auf Fehler:
    zeile_ws = WorksheetFunction.if(IsError _
    (Match(fdh_nr, Worksheets(...
    30.04.2010 13:31:27
    Thread-ID: 1154723
    4 Beiträge
    Anzeige
    VBA Formel wenn Uhrzeit dann
    Gonzer

    Hallo zusammen,
    habe folgendes Problem - ich will per VBA eine Formel in eine Zelle schreiben die überprüft ob ein Zellwert im Datumsformat vorliegt. Liegt dieses vor soll der Zellwert übernommen werden, wenn nicht soll die Zahl als Uhrzeit umgewandelt werden.
    Hier meine Code Zeile:
    ...
    16.09.2010 17:07:58
    Thread-ID: 1178158
    5 Beiträge
    wie war das... VBA wenn dann ?
    amintire

    Hallo alle zusammen,
    würde gerne in einem Label eine Auskunft geben wenn die UserForm geöffnet wird.
    Also Daten stehen in A:B
    'Wenn in der Spalte B größer als 1 vorhanden ist, dann soll die Zelle vor der Zahl mit angegeben werden.
    =If B > 1 then
    =?
    oder so ähnlich ? <...
    25.02.2011 11:37:33
    Thread-ID: 1202920
    16 Beiträge
    wenn fehler dann sonst mit vba
    Erik

    Hallo Leute ich versuche einen Forecast zu erstellen und habe folgendes Problem.
    Diese Formel:
    =WENN(ISTFEHLER(VERWEIS(C:C;Tabelle3!A:A;Tabelle3!B:B));"";VERWEIS(C:C;Tabelle3!A:A;Tabelle3!B:B))
    Steht in einer Zelle.
    Wenn die Leute jetzt in die zelle schreiben ist die formel weg....
    24.10.2011 23:00:40
    Thread-ID: 1235246
    3 Beiträge
    VBA Wenn dann
    WalterK

    Hallo,
    ich komme nicht drauf, was ich bei der Definition von ErsteZei angeben muss! ErsteZei soll, wenn E3 Leer ist die Zahl 4 sein, ansonsten die Zahl 3!
    So jedenfalls funktionert es nicht:
    Sub Test() Dim ErsteZei As Integer ErsteZei = If Range("$E$3") = "" Then 4 Else 3 End If Msg...
    11.07.2012 14:21:31
    Thread-ID: 1270637
    3 Beiträge
    VBA Wenn Zelle Leer dann
    Philipp

    Hallo,
    ich habe eine Tabelle und möchte daraus automatisch eine Liste generieren.
    Die Tabelle sieht in etwa so aus
    A B C
    1 XYZ ABC
    2 Bla 23%
    3 Blub 2% 7%
    4 ...
    Das Makro soll nun schauen ob in der Spalte A...
    12.07.2012 16:29:13
    Thread-ID: 1270809
    3 Beiträge

    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
    4
    8
    7
    3
    6
    4
    15
    2
    2
    2
    2
    3
    4
    1
    1
    10
    2
    1
    5
    1
    5
    1
    1
    6
    8