Hallo Zusammen, ich bin absoluter VBA neuling, bräuchte aber ein einfaches Makro zu folgendem Fall: In den Zellen der Spalte R (R6:R150) steht entweder: "STATUS1=grün" oder "STATUS2=gelb" oder "STATUS3=rot". Wenn zum Beispiel Zelle R6 = "STATUS1=grün" dann sollen die Zellen (I6:J6) und die Zellen (L6:N6) geleert werden Wenn R6 = "STATUS2=gelb" dann sollen die Zellen (I6:J6) geleert werden Wenn R6 = "STATUS3=rot" dann soll nichts gelöscht werden. Wenn R6 = "" (also leer) soll auch nicht gelöscht werden. --> Gleiches soll für alle Zelle im Bereich (R6:R150) gelten --> Die Spalten I,J,L,M und N müssen aber befüllbar sein, daher lässt sich das ja nicht über eine Formel machen. Das ist alles was ich bis jetzt zusammen gebastelt habe: leider funktioniert es nicht: Private Sub Worksheet_Change(ByVal Target As Range) 'Abfrage, ob Änderung in Zelle A1 erfolgt ist If Target.Address = "$R$6" Then If IsValue(STATUS1 = grün) Then Range("4:F14").Select Selection.ClearContents End Select End If End Sub Vielen Dank für eure Hilfe.

VBA Makro gesucht: Inhalt von Zellen löschen wenn eine andere Zelle bestimmten "TEXT" beinhalted?

Hallo Zusammen,

ich bin absoluter VBA neuling, bräuchte aber ein einfaches Makro zu folgendem Fall:

In den Zellen der Spalte R (R6:R150) steht entweder: "STATUS1=grün" oder "STATUS2=gelb" oder "STATUS3=rot".

Wenn zum Beispiel Zelle R6 = "STATUS1=grün" dann sollen die Zellen (I6:J6) und die Zellen (L6:N6) geleert werden
Wenn R6 = "STATUS2=gelb" dann sollen die Zellen (I6:J6) geleert werden
Wenn R6 = "STATUS3=rot" dann soll nichts gelöscht werden.
Wenn R6 = "" (also leer) soll auch nicht gelöscht werden.

--> Gleiches soll für alle Zelle im Bereich (R6:R150) gelten

--> Die Spalten I,J,L,M und N müssen aber befüllbar sein, daher lässt sich das ja nicht über eine Formel machen.

Das ist alles was ich bis jetzt zusammen gebastelt habe: leider funktioniert es nicht:

Private Sub Worksheet_Change(ByVal Target As Range)
'Abfrage, ob Änderung in Zelle A1 erfolgt ist
If Target.Address = "$R$6" Then
    If IsValue(STATUS1 = grün) Then
    
            Range("4:F14").Select
            Selection.ClearContents
    End Select
End If
End Sub

Vielen Dank für eure Hilfe.

4 Antworten

nobytree2

08.03.2016, 13:02

Probiere mal das hier:

Sub NobyTree2()

Dim x, y As Integer

   For x = 1 To 150
        If Cells(x, 18).Value = "STATUS1=grün" Then

            For y = 9 To 10
                Cells(x, y).Value = ""
            Next y

            For y = 12 To 14
                Cells(x, y).Value = ""
            Next y

        End If

        If Cells(x, 18).Value = "STATUS2=gelb" Then

            For y = 9 To 10
                Cells(x, y).Value = ""
            Next y

        End If

    Next x

End Sub

nobytree2

08.03.2016, 13:09

Sorry, einfacher mit Range.Clear

Sub NobyTree2()
Dim x, y As Integer

    For x = 1 To 150
        If Cells(x, 18).Value = "STATUS1=grün" Then

            Range(Cells(x, 9), Cells(x, 10)).Clear
            Range(Cells(x, 12), Cells(x, 14)).Clear

        End If

        If Cells(x, 18).Value = "STATUS2=gelb" Then

            Range(Cells(x, 9), Cells(x, 10)).Clear

        End If

    Next x

End Sub

molekuelx

Beitragsersteller

08.03.2016, 13:23

Wenn ich den Befehl ausführe friert mein Excel ein ... :D

Suboptimierer

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

08.03.2016, 12:28

Mit IsValue habe ich keine Erfahrung. Ich würde herkömmlich If Target.Value = "STATUS1 = grün" Then abfragen.

Das .Select kannst du dir schenken. Anstelle dessen kannst du schreiben:

Range("I6:J6").ClearContents
Range("L6:N6").ClearContents

Die letzte Herausforderung besteht darin, das über alle Zeilen von 6 bis 150 laufen zu lassen.

Baue eine For Schleife darum:

Dim i As Integer
For i=6 To 150
...
Next

Deine Befehle, in denen du dich auf Zeile 6 beziehst, änderst du so ab. Beispiel:

Range("I" & i & ":J" & i).ClearContents

molekuelx

Beitragsersteller

08.03.2016, 12:59

Vielen Dank schonmal für die schnelle Antwort.

Habe jetzt versucht schonmal das erste umzusetzen, um ersmal nur die Zelle R6 aubzuprüfen:

Private Sub Worksheet_Change(ByVal Target As Range)
'Abfrage, ob Änderung in Zelle A1 erfolgt ist
If Target.Address = "$R$6" Then
    If Target.Value = "STATUS1=grün" Then
        Range("I6:J6").ClearContents
        Range("L6:N6").ClearContents
    End If
End Sub

Leider passiert gar nichts :( Müsste doch eigentlich für die Zeile 6 schon funktionieren oder ?

Suboptimierer

08.03.2016, 13:11

@molekuelx

Normalerweise müsste ein Fehler kommen "If Block ohne End If".

Du hast zwei Ifs, aber nur ein End If.

Ansonsten müsste es laufen. Hast du das Ereignis auch am richtigen Sheet stehen?

PS: Der Kommentar passt längst nicht mehr ;)

molekuelx

Beitragsersteller

08.03.2016, 13:15

@Suboptimierer

Ja richtig! Hat doch funktioniert!!! Jetzt muss ich nur noch die anderen bedinungen integrieren.

Private Sub Worksheet_Change(ByVal Target As Range)
'Abfrage, ob Änderung in Zelle A1 erfolgt ist
Dim i As Integer
For i = 6 To 150
If Target.Address = "$R$6" Then
    If Target.Value = "STATUS1=grün" Then
        Range("I6:J6").ClearContents
        Range("L6:N6").ClearContents
    End If
    ElseIf Target.Value = "STATUS2=gelb" Then
        Range("L6:N6").ClearContents
    End If
Next
End Sub

Er meldet aber: Laufzeitfehler '13': Typen unverträglichkeit.

Suboptimierer

08.03.2016, 13:23

@molekuelx

Mach das Else mal weg.

(Else ergibt zwar Sinn, aber nicht so)

Suboptimierer

08.03.2016, 13:26

@molekuelx

Du hast immer noch ein End If zuwenig. 3 Ifs, 2 End Ifs.

nobytree2

08.03.2016, 13:27

@molekuelx

Am Ende vor Next muss noch ein End if hin

Suboptimierer

08.03.2016, 13:28

@molekuelx

Probier mal folgendes:

Private Sub Worksheet_Change(ByVal Target As Range)
  'Abfrage, ob Änderung in Spalte R erfolgt ist
  Dim i As Integer
  For i = 6 To 150
    If Target.Address = "$R$" & i Then
        If Target.Value = "STATUS1=grün" Then
            Range("I" & i & ":J" & i).ClearContents
            Range("L" & i & ":N" & i).ClearContents
        End If
        If Target.Value = "STATUS2=gelb" Then
            Range("L" & i & ":N" & i).ClearContents
        End If
    End If
  Next
End Sub

nobytree2

08.03.2016, 13:30

@Suboptimierer

Das müsste klappen

molekuelx

Beitragsersteller

08.03.2016, 13:36

@Suboptimierer

Perfekt TAUSEND DANK !!!! ES FUNKTIONIERT!!! :-

Suboptimierer

08.03.2016, 13:37

@molekuelx

Bitteschön!

Suboptimierer

08.03.2016, 13:39

@Suboptimierer

Kommando zurück. ElseIf hättest du auch so lassen können.

molekuelx

Beitragsersteller

09.03.2016, 07:03

@Suboptimierer

Ich müsste nochmal revidieren ...Wieso oft zeigen sich einige Probleme erst bei der Anwendung.

Beispiel: Ich möchte nur dass die Felder I10:J10 und L10:N10 geleert werden, wenn in Feld R10 vorher STATUS2=gelb stand und durch STATUS1=grün ersetzt wurde.

--> wenn R10allt = R10neu dann soll nichts passieren.

--> dabei muss das makro aber jedes Feld in spalte R für sich checken und dann entscheiden ob es eine löschung durchführt

Ist sowas einfach möglich oder ist das eine größere operation? :-)

Vielen Dank für die Unterstützung!

Suboptimierer

09.03.2016, 07:47

@molekuelx

Beim Öffnen der Arbeitsmappe und nach jedem Ändern einer Zelle der Spalte R könntest du die Werte der Spalte R in einen versteckten Bereich kopieren.

Beim Ändern einer Zelle vergleichst du den aktuellen Inhalt dann mit dem Wert in der versteckten Spalte.

Garfield0001

08.03.2016, 13:05

Nur auf Papier geschrieben und nicht getestet:

For Ze = 6 To 150
Inh=Cells (Ze, 18).Value
If InStr (1, Inh, "grün") <>0 Then
Range("I6:J6").ClearContent
Cells (Ze, 12).ClearContent
Cells (Ze, 14).ClearContent
ElseIf InStr (1, Inh, "gelb") <>0 Then
Range("I6:J6").ClearContent
End If
Next

Garfield0001

08.03.2016, 13:09

das Cells ist falsch ... ersetze es durch Range(Cells (Ze,12), Cells (Ze,14)).ClearContent und für das andere Range (in beiden Fällen) Range(Cells (Ze,9), Cells (Ze,10)).ClearContent

Ähnliche Beiträge

Problem mit VBA Excel: Wert Finden und Zeilen daneben ersetzen.

Hallo zusammen,

Ich versuch mich grade mit VBA und stoß so langsam an meine Grenzen.

Ich möchte mit mit einem Formular einen Wert aus Tabelle1 nehmen, diesen in Tabelle2 suchen und markieren. Außerdem soll zusätzlich in den Zeilen daneben Werte aus Tabelle1 eingetragen werden.

Das switchen zwischen den Tabellen, das Finden und Markieren klappt soweit, nur funktioniert das Kopieren aus den Zellen in Tabelle1 in die neben den gefundenen Wert aus Tabelle2 befindlichen Zellen nicht. Anscheinend selektiert mein Makro die Markierte Zelle nicht, weshalb ich mit "ActiveCell" nicht weiter komme.

Wäre cool wenn jemand mir da weiterhelfen könnte :)

Sheets("Tabelle2").Select
Cells.Find(What:=Worksheets("Tabelle1").Cells(1, 1), LookIn:=xlFormulas, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Interior.Color = vbRed                 

    If ActiveSheet.Name = "Tabelle2" Then                             Sheets("Tabelle1").Select                                           Else                                                                Sheets("Tabelle2").Select                                             End If

...zum Beitrag

For Steuervariabel wird bereits verwendet! was bedeutet das?

Hallo nochmals,

ich habe mit hilfe con einigen "gutefrage.net" usern einen code geschrieben und versuche jzt durch "Copy-Paste" es für jede Zelle anzuwenden.

Beim For-Befehl kommt immer folgende Meldung "For Steuervariabel wird bereits verwendet"

was bedeutet das ? heißt es, das man das "For" nur einmal in einem code gebrauchen kann ? wäre vielleicht ein "GoTo" befehl angebrachter? ( sprich: go to next cell, wenn die bedingung erfüllt ist )

hier ist der code:

sub kopieren( )

Dim Zelle As Range Dim Wert As Variant

Wert = ActiveSheet.Range("J16:j29")

With Sheets("Tabelle2") For Each Zelle In .Range("F6:G6")

If ((Range("J16").EntireRow.Hidden = True)

Or (Range("J16").EntireColumn.Hidden = True))

Or (Range("J16").Font.Strikethrough = True) Then

Zelle.Value = ActiveSheet.Range("J17")

Else

Zelle.Value = ActiveSheet.Range("J16")

With Sheets("tabelle2")

For Each Zelle In .Range("H6:I6")

If ((Range("J17").EntireRow.Hidden = True)

Or (Range("J17").EntireColumn.Hidden = True))

Or (Range("J17").Font.Strikethrough = True) Then

Zelle.Value = ActiveSheet.Range("J18")

Else

Zelle.Value = ActiveSheet.Range("J17")

End If End With End If Next Zelle End With End Sub

Danke schonmal für eure Tatkräftigen Hilfen :)))

Gruß Newb

...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 Aktive Zelle auslesen VBA?

Ich habe eine Tabelle in Excel erstellt. Nun ist dort ein Button, der auf Knopfdruck ein Makro ausführt, das, wenn die aktuelle entweder B2 oder C6 oder D10 ist, in diese Zelle eine 5 einträgt. Wie kann ich das mit einer If-Anweisung umsetzen (mithilfe von Or-Operatoren)?

Also ich meine so in die Richtung

If ActiveCell = B2 Or C6 Or D10 Then

Active Cell.Value = 5

Else

MsgBox("Das Argument ("5") ist nicht mit der aktuellen Zelle kompatibel.")

End If

Nur dass das oben nie funktioniert, weil ich nicht weiß, wie ich mehrere Zellen als richtig ansehen lassen kann.

Kann mir jemand das richtige Makro zeigen?

...zum Beitrag

VBA Input-Eingabe in Zelle eintragen?

Guten Abend,

ich möchte gerne den Inhalt aus einer Inputbox in Zelle D28 schreiben, nur leider funktioniert es nicht.

Folgendes Makro: (sicherlich nicht schön geschrieben aber es bis auf die Zelle D28)

Sub erstellen()
   Dim NeuerTabellenName As String
   Dim TabellenName As Boolean
   Dim myInput As String
   Dim WsTabelle As Worksheet
   
   myInput = InputBox("Bitte geben Sie den Namen des neuen Monates an", "Monat anlegen")
   
   For Each WsTabelle In Worksheets
   If WsTabelle.Name = myInput Then
   TabellenName = True
   Exit For
   End If
   Next WsTabelle
   If TabellenName Then
   MsgBox ("Der Monat existiert bereits. Der Vorgang wurde abgebrochen. Bitte ueberpruefen Sie Ihre Eingabe.")
   Worksheets("Admin").Select
   Else
   NeuerTabellenName = myInput
   Worksheets("Muster").Copy After:=Sheets(Sheets.Count)
   Sheets(Sheets.Count).Name = NeuerTabellenName
   Worksheets("Admin").Range(D28).Value = myInput
   Worksheets("Admin").Select
   End If
End Sub

Der Fehler muss ja hier liegen:

Worksheets("Admin").Range(D28).Value = myInput

Über eine Lösung wäre ich sehr dankbar.

Gruß

...zum Beitrag

Werte abgleichen und ggf Fehlermeldung ausgeben, VBA?

Hallo zusammen,

ich möchte in meinem Excel Sheet einrichten, dass wenn der Nutzer einen Wert in Zelle A2 eingibt, welcher keinem der Werte in Spalte V entspricht eine Fehlermeldung ausgegeben wird. Bisher habe ich den Code unten.


Sub Worksheet_Change(ByVal Target As Excel.Range)



If Target.Address = "$A$2" And Cells(2, 1).Value <> Range("V:V").Select Then
MsgBox "Sie haben gerade Zelle A2 verändert!"
End If
End Sub

Das Problem ist, dass mein Code durchläuft als würde es die zweite If-Bedingung (unten) nicht geben

And Cells(2, 1).Value <> Range("V:V").Select

Kann mir jemand helfen das Problem zu fixen / eine Alternative vorschlagen?

...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

EXCEL VBA Frage?

Hallo,

ich habe ein problem mit Excel VBA, unzwar würde ich gerne die Abfrage der Leeren zellen erweitern um ein paar andere zeilen... leider habe ich immer irgendwie ein syntax problem. Kann mir jemand helfen

For Each Zellen_auf_Inhalt_prüfen In Range("B7:J7") __HIER SOLL MEHR ABGEFRAGT WERDEN

If Zellen_auf_Inhalt_prüfen.Value = "" Then

MsgBox "Bitte alle Zellen ausfüllen."

GoTo MacroEnde

End If

Next Zellen_auf_Inhalt_prüfen

...zum Beitrag

Kopieren und auf andere Tabelle einfügen per VBA

Hei Leute, habe in Tabelle 3 im Bereich B5:C30 Texte stehen die ich ab der ersten freien Zelle in der Tabelle 1 der Spalte A einfügen muss. Dies muss ich ca. 100 mal machen, daher möchte ich es nicht von Hand machen. Habe schon selber probiert aber irgend etwas ist falsch, das Makro kopiert geht in die freie Zelle Tabelle1 Spalte A , aber fügt nicht ein. Kommt der Fehler Laufzeitfehler.

Sub umwechseln()

' umwechseln Makro

Dim s As String Dim i As Long

Range("A5:A29").Select
Application.CutCopyMode = False
Selection.Copy
Range("C5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B5:C30").Select
 Sheets("Tabelle1").Select
    With ActiveSheet
i = 0
Do
    i = i + 1
    s = Cells(i, "A")
    If Len(s) = 0 Then
        Cells(i, "A").Select
        
        Exit Do
    End If
Loop While i < 65535End With   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False Sheets("Tabelle3").Select
Range("E10").Select

End Sub

Sorry wenn das nicht gut dargestellt ist...weis nicht wie man aus VBA kopiert und hier in welchen Format einfügt.

Gruß Monkee

...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

VBA Intersect Bereich in Bereich überprüfen statt Zelle in Bereich?

Hallo,

wie kann ich mit der Methode Application.Intersect zwei Bereiche miteinander Vergleichen?

Normalerweise kann ich ja z.b. mit :

If Not Application.Intersect(Target, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

Überprüfen ob eine Zelle in einem benannten Bereich ausgewählt oder sontiges ist.

Das klappt mit:

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

leider nur mittelmäßig.

Beispiel:

'''''''''''''''''''''''''''''''''''''1.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle B1 bis B2 

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = Keine MsgBox - richtig

'''''''''''''''''''''''''''''''''''''2.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis A10  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = MsgBox erscheint - richtig

'''''''''''''''''''''''''''''''''''''3.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis B1  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

'''''''''''''''''''''''''''''''''''''4.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis C1  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

'''''''''''''''''''''''''''''''''''''4.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle B1 bis B15  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

Wie schaff ich es, dass die MsgBox immer dann auftaucht, wenn mindestens eine Zelle nicht im Bereich ist?
Also der Markierte Bereich MUSS mit jeder Zelle im Definierten Bereich liegen.

Und eine Lösung ohne 'Split' oder Umwege wäre mir lieb, außer es gibt halt keine andere xD

...zum Beitrag

Excel: VBA - Zellen per Button-Klick nacheinander füllen?

Schönen guten Tag,

Ich würde gern in einer Excel-Tabelle eine Spalte nacheinandern (begrenzter Bereich), bei Button-Klick, füllen.

Es sollen auf einer Excel-Oberfläche verschiedene Buttons erstellt werden, die alle die selben Zellen füllen (Bsp: G3 bis O3). Wenn eine Zeile leer ist, soll diese gefüllt werden, wenn die nächste gefüllt ist, soll zur nächsten "leeren" gegangen werden. Dies jedoch nicht sofort für alle, sondern per Mausklick auf einen Button. ButtonA füllt G3 mit "asdf", ButtonB beginnt bei G3 findet dort "nicht leer" und geht auf H3 und schreibt "wasd", erneut ButtonA beginnt bei G3, findet G3 "nicht leer" und H3 "nicht leer" und schreibt in I3 "asdf".

Ich hoffe mein Idee und mein Ansatz ist verschändlich.

Ich habe auch eine Möglichkeit gefunden, jedoch müsste ich den Code für jede weitere Variante anpassen. Kann man daraus eine "einfachere" Schleife generieren? Bin leider noch VBA-Neuling.

Ich danke für die Hilfe! Ich wünsche euch einen schönen Tag!

Grüße

Private Sub CommandButton1_Click()
If Range("G3") = "" Then
    Range("G3").Value = "Test - 1"
Else
    If Range("H3") = "" Then
        Range("H3").Value = "Test - 1"
    Else
        If Range("I3") = "" Then
            Range("I3").Value = "Test - 1"
        Else
            If Range("J3") = "" Then
                Range("J3").Value = "Test - 1"
            Else
                If Range("K3") = "" Then
                    Range("K3").Value = "Test - 1"
                Else
                    If Range("L3") = "" Then
                        Range("L3").Value = "Test - 1"
                    Else
                        If Range("M3") = "" Then
                            Range("M3").Value = "Test - 1"
                        End If
                    End If
                End If
            End If
        End If
    End If
End If

End Sub

...zum Beitrag

VBA Zellen verbinden mit schleife?

Hallo,

ich möchte mit Visual Basic in der Spalte A jeweils die 4 aufeinander folgenden Zellen miteinander verbinden. Also A4 - A7, A8 - A11 usw. In der Zeile mit range spuckt er einen Fehler und ich komme nicht drauf warum. Wäre super, wenn jemand mir helfen könnte 😁

Quellcode:

Option Explicit
Sub Merge()
Dim Counter1 As Integer
Dim Counter2 As Integer
Counter1 = 3
Counter2 = 7
Worksheets(„Tabelle1“).Activate
Do While Counter1 <= 1000
Range(Cells(Counter1,1), Cells(Counter2,1)).Select = True
Selection.Merge
Counter1 = Counter1 + 4
Counter2 = Counter2 + 4
Loop
End Sub

...zum Beitrag

Wie ermittelt man in Excel (VBA) den Zelleninhalt bei verbundenen Zellen?

Ich durchlaufe in meinem Excel VBA-Script die Zellen einer Spalte, um den Zelleninhalt auszuwerten. Nun kann es passieren daß Zellen "verbunden" sind. In diesem Fall liefert mir das Script nur jeweils für die linke oberste Zelle der verbundenen Zellen den Wert zurück. In den anderen Zellen kommt Blank zurück. Ich würde in allen Zellen den gleichen Wert zurückerwarten?
Wie könnte man das bewerkstelligen?
Hardcopy/Beispiel: In den grünen Spalten steht was ich erwarten würde. In den gelben die tatsächliche VBA-Ausgabe.

Private Sub Worksheet_Activate()
  Dim iRow As Integer
  iRow = 4
  Do
    Worksheets("Test").Cells(iRow, 5) = Worksheets("Test").Cells(iRow, 1)
    Worksheets("Test").Cells(iRow, 7) = Worksheets("Test").Cells(iRow, 2)
    iRow = iRow + 1
    If iRow > Worksheets("Test").UsedRange.Rows.Count Then Exit Do
  Loop
End Sub

...zum Beitrag

Was möchtest Du wissen?

Deine Frage stellen