Hi ich habe ein VBA geschrieben, welches immer wenn in Spalte 14 "Topic" steht, dort eine Leerzeile einfügen soll und alles um eine Zeile weiter nach unten schieben soll.

Dies funktioniert aber nur, wenn ich genau diese Zeile eingeben. Kann mir jemand daraus eine Schleife bauen.. ich bekomme es nicht hin.

If ActiveSheet.Cells(4, 14).Value = Tabelle11.Cells(2, 2) Then
'Die 4 hier ist von mir eingegeben, müsste wahrscheinlich durch eine Variable getauscht werden
'Tabelle11.Cells(2,2) ist der Begriff "Topic"

ActiveSheet.Rows(4).Insert

End If

Vorher-Nachher Bilder:

Vorher:

Nachher:

Ich habe ein Problem, welches ich alleine nicht schaffe zu lösen.

Ich habe eine Exceltabelle mit einem Button "Closed ausblenden".
Bisher funktioniert es soweit, dass er alle in Spalte N "Closed" ausblendet.

Code ist bis jetzt so:

Private Sub ToggleButton4_Click()  

 If Me.ToggleButton4.Value = True Then

Dim Liste As Range

Dim lngCriteriaCount As Long

Dim arrCriteria() As String

Dim oLO As ListObject

Application.EnableEvents = True

For r = 3 To ActiveSheet.UsedRange.Rows.Count

     If InStr(Cells(r, 14).Value, "CLOSED") Then

      Rows(r).RowHeight = 0

      End If

      Next

Me.ToggleButton4.Caption = "'CLOSED' ausgeblendet"

 Else

For l = 3 To ActiveSheet.UsedRange.Rows.Count

     If InStr(Cells(l, 14).Value, "CLOSED") Then

      Rows(l).RowHeight = 12

      End If

      Next

  Me.ToggleButton4.Caption = "'closed' ausblenden"

 End If

End Sub

Nun soll es erweitert werden:
Es soll nicht nur die Zeile sondern auch alle nachfolgenden Zeilen ausgeblendet werden - bis das Wort "Topic" oder "Topic ll" erreicht wird.

In diesem Beispiel also das gelb markierte mit ausblenden.

Kann mir jemand helfen?

Ich habe eine Excel mit zwei Blättern (Para & Testseite).
Ich habe auf der Para Seite definiert, welcher Status welche Farbe bekommen soll.

Nun möchte ich dass Wenn auf der Testseite in Spalte "N" der Status "TOPIC" ausgewählt wurde, die komplette Zeile automatisch die Farbe annimmt, welche in Blatt "Para" ist.

So ungefähr.
Ich hoffe man versteht was ich meine.

Mir ist egal ob es über bedingte Formatierung, Makros oder VBA ist. Aber bräuchte eine genaue Erklärung dazu

Ich habe eine riesige Exceldatei, welche ich momentan übersetze.

Nun bin ich auf das Problem gestoßen: das Dropdowns nicht so leicht zu übersetzen sind, wie der Rest der Datei.

Aufbau der Excel: Ich habe ein Feld in dem ich zwischen Deutsch und Englisch auswählen kann und dann übersetzt sich die ganze Excel in die jeweilige Sprache.
Zusätzlich hab ich viele Dropdowns bei denen Formeln hinterlegt sind.

Das übersetzen habe ich geschafft indem ich in die Datenüberprüfung in der Liste eine Dropdownfunktion hinterlegt habe.

Wenn ich nun auf Englisch switche dann werden mir die Englischen Begriffe im Dropdown angezeigt!

Nun sind aber hinter "ET" und "ZT" Formeln hinterlegt. Also ändern sich andere Zellen / Berechnungen, je nach dem ob ET oder ZT ausgewählt ist.

Wenn es jetzt auf Englisch eingestellt ist und ich "single deep" auswähle werden keine Berechnungen mehr durchgeführt. --> Logisch, da in meinen Formeln steht: "WENN "ET" dann...."
PROBLEM: Es sind sooooo viele Formeln, dass es ein riesen Aufwand wäre überall "WENN "ET" oder "single deep" dann..." hinzuschreiben.

Gibt es eine Möglichkeit, dass Excel von alleine von single deep zu ET schließen kann und ich nicht jede einzelne Formel in die Hand nehmen muss?

Vielen Dank schonmal im vorraus!

Ich habe eine Exceltabelle in der ich durch Zahleneingabe, bestimmte Zellen in den Indexfarben einfärben kann. Ich gebe eine Zahl ein und die Zelle und alle damit verbunden Zellen oder Zellen, welche die gleiche Funktion vorweisen müssen färben sich.

Nun gibt es nur 56 Indexfarben, welche zudem auch noch ziemlich grelle Farben sind. Ich hätte gerne ein größeres Spektrum an Farben, welches ich durch die RGB Farben bekommen kann. Nur weis ich nicht wie ich dies jetzt in meine Funktion einsetzen soll.

Ich habe nur ein Feld um eine Zahl reinzuschreiben und nicht 3, also ein Feld für R, eins für G und eins für B ist nicht umsetzbar.

Anbei meine VBA Programmierung:

Sub Farbe_Topic()

' Farbe_Topic Makro: Hier wird jetzt das "Status-Feld" in der gleichen Farbe formatiert, wie die, die auch in den ARbeitsblättern gewünscht ist

' Tastenkombination: Strg+w

  Range("B2:C2").Select

  With Selection.Interior

    .Pattern = xlSolid

    .PatternColorIndex = xlAutomatic

    .ColorIndex = Tabelle11.Cells(2, 3) ' In dieser Zelle steht zum Beispiel eine 3 --> somit Farbe rot

    .TintAndShade = 0

    .PatternTintAndShade = 0

  Selection.Font.ColorIndex = Tabelle11.Cells(2, 11)

  End With

  Range("B3:C3").Select

  With Selection.Interior

    .Pattern = xlSolid

    .PatternColorIndex = xlAutomatic

    .ColorIndex = Tabelle11.Cells(3, 3)

    .TintAndShade = 0

    .PatternTintAndShade = 0

  Selection.Font.ColorIndex = Tabelle11.Cells(3, 11)

  End With

  Range("B4:C4").Select

  With Selection.Interior

    .Pattern = xlSolid

    .PatternColorIndex = xlAutomatic

    .ColorIndex = Tabelle11.Cells(4, 3)

    .TintAndShade = 0

    .PatternTintAndShade = 0

  Selection.Font.ColorIndex = Tabelle11.Cells(4, 11)

  End With

  Range("B5:C5").Select

  With Selection.Interior

    .Pattern = xlSolid

    .PatternColorIndex = xlAutomatic

    .ColorIndex = Tabelle11.Cells(5, 3)

    .TintAndShade = 0

    .PatternTintAndShade = 0

  Selection.Font.ColorIndex = Tabelle11.Cells(5, 11)

  End With

  Range("B6:C6").Select

  With Selection.Interior

    .Pattern = xlSolid

    .PatternColorIndex = xlAutomatic

    .ColorIndex = Tabelle11.Cells(6, 3)

    .TintAndShade = 0

    .PatternTintAndShade = 0

  Selection.Font.ColorIndex = Tabelle11.Cells(6, 11)

  End With

  Range("B7:C7").Select

  With Selection.Interior

    .Pattern = xlSolid

    .PatternColorIndex = xlAutomatic

    .ColorIndex = Tabelle11.Cells(7, 3)

    .TintAndShade = 0

    .PatternTintAndShade = 0

  Selection.Font.ColorIndex = Tabelle11.Cells(7, 11)

  End With

  Range("B8:C8").Select

  With Selection.Interior

    .Pattern = xlSolid

    .PatternColorIndex = xlAutomatic

    .ColorIndex = Tabelle11.Cells(8, 3)

    .TintAndShade = 0

    .PatternTintAndShade = 0

  Selection.Font.ColorIndex = Tabelle11.Cells(8, 11)

  End With

Vielleicht hilft dieses Bild noch dabei: