VBA – die besten Beiträge

Hallo,

ich habe folgenden Code in Excel VBA. Leider komme ich nicht weiter.

Ich suche einen Wert der Zelle E1 in Spalte A1.

Ist der Wert aus E1 vorhanden, soll ein Sub geöffnet werden.

Ist dieser Wert nicht vorhanden, soll eine MsgBox geöffnet werden und nach dem Schließen der Box die UserForm1.

Aktuell macht der Code folgendes: Egal ob der Wert vorhanden ist oder nicht, es wird die MsgBox geöffnet und der Code wird auch bei richtiger Zahl nicht ausgeführt.

Ich würde mich freuen, wenn mir einer helfen kann bei meiner Spielerei. Danke.

Sub suche()
Dim zelle As Range


For Each zelle In Sheets("Tabelle1").Range("A1:A1000").Cells
    If zelle.Value = Sheets("Tabelle1").Range("E1") Then
    'Sheets("Tabelle1").Activate
    zelle.Activate
    Call create
    Exit For
    Else

    MsgBox "Nr. ist nicht vorhanden!", vbExclamation
    UserForm1.Show
    Exit Sub
    End If
    'Call create
    Next
End Sub

Wie aktiviere ich Makros? Die Tutorials auf Youtube funktionieren nicht

LG

Liebe Community,

ich brauche eure Hilfe. Folgende Situation:

Excel holt sich aus einer geschlossenen Excel Datei alle Daten und kopiert diese in die offene Excel Datei in eine Tabelle. Das funktioniert soweit ganz gut, dank VBA.

Komischerweise macht er bei Zahlen die Formatierung als Text. Ergo, es kommt zum Fehler, siehe Bild unten. In der Kategorie "Fahrzeug" sind alle Einträge mit der Fehlermeldung bestückt.

Wenn ich nun die ganze Spalte markiere und oben die Formatierung ändern möchte, dann passiert leider nichts. Die Fehlermeldung bleibt. Text -> Zahl

Ich muss auf die Fehlermeldung klicken und dann dort den Befehl geben, den Wert in eine Zahl umzuwandeln. Dann funktioniert das alles einwandfrei.

Die Daten werden jedoch durch ein weiteres Makro auf Ihre nächste Reise geschickt, daher ist die Option die Spalte manuell anzuklicken und die Fehlermeldung zu beseitigen keine Option auf Dauer.

Des Weiteren arbeite ich noch mit der Funktion: „Bedingte Formatierung“ in anderen Tabellenblättern. Dort wird zwar die Zahl hineinkopiert, wenn diese jedoch nicht als "Zahl" deklariert ist, kann Excel die bedingte Formatierung wie z. B. farbliche Hervorhebung bestimmter Zahlengruppen nicht ordnungsgemäß ausführen.

Ich hoffe auf schnelle Hilfe. Danke :o)

Hallo zusammen

Ich würde gerne ein Makro ausführen, immer wenn ich das Tabellenblatt wechsle.

Also wenn ich bspw. von Tabelle1 in Tabelle2 wechsel, soll das Makro ausgeführt werden

Bis jetzt habe ich nur eine Möglichkeit gefunden, bei der bei jedem Zelleneintrag das Makroausgeführt wird. Das ist viel zu häufig und macht alles langsam. Super wäre es, wenn es erst beim WEchsel der Tabelle stattfindet.:

mein bisheriges:

Private Sub Worksheet_Change(ByVal Target As Range)

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

Wie mach ich n code das ich in Excel mit Makros unendlich viele Zahlen addieren kann also 3+3+3+3+3+3+3+3 z.B?

Hallo zusammen,

ich hoffe es kann mir jemand weiterhelfen, da ich mit meinem Latein langsam, aber sich am Ende bin.

Ich habe eine Mappe, wobei sich in der ersten Tabelle eine "Gesamtübersicht" aller Objekte befindet (Hardwarekomponenten). Tabelle 2 bis 5 sind jeweils die einzelnen Bestandstabellen - welche sich alle 6 Monate ändern, mit deren Inhalt die "Gesamttabelle" gefüllt werden soll (Bps. Tabelle 2 sind alle GPU's und CPU's, Tabelle 3 PU's... etc). (Siehe Bild)

Nun möchte ich letztlich ein Makro schreiben, welches vollautomatisch die Gesamttabelle aktualisiert, wenn ich eine neue Bestandstabelle einspiele.

Vielen Dank vorab für Lösungsvorschläge oder Denkanstöße zur Umsetzung !

LG

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:

Hallo!

Ich habe folgendes Problem:

Als Beispiel habe ich den Bereich A1 - A10. Wenn ich "RE" in Zelle A3 eintrage, soll sich A3 - A10 einfärben. Genauso wenn ich in A5 "RE" eintrage, soll sich A5 - A 10 einfärben. Oder wenn ich A4 nutze, dann A4 -A10.

Es soll sich quasi immer die Zelle selbst und die darauffolgenden Zellen bzw. die restliche Zeile einfärben, je nach dem welche Zelle ich ausfülle. Es kann also auch A1, A2, A7, etc. sein.

Ich kenne nur die Formatierungen mit denen ich entweder die Zelle selbst nur einfärbe und die ganze Zeile A1 - A10. Ich möchte aber nur teilweise einfärben.

Geht das?

Vielen Dank im Voraus!

Liebe Community,

vielleicht kann mir hier jemand weiterhelfen. Ich habe eine Planungs-Excel Datei, in welcher ich einen bestimmten Bereich (BB86:BH93) so hinterlegt habe, dass mir bestimmte Ergebnisse angezeigt werden.
Nun würde ich gerne diesen Bereich automatisch mittels Button in einen anderen Reiter kopieren. Jedoch liegt meine Schwierigkeit darin, dass Excel jedes Mal, wenn ich denn Button betätige, den Ausschnitt untereinander kopieren soll in dem gleichen Reiter. Er soll die alte Tabelle also nicht überschreiben, da ich die einzelnen Zwischenstände sehen möchte.
Weiß jemand hierfür einen geeigneten VBA Code?

Vielen Dank im Voraus und viele Grüße

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 hunderte Spalten. Manche von Ihnen sind gefüllt, manche leer. Gibt es eine Möglichkeit, die gefüllten Zellen, wie unten in Spalte G zu sehen, automatisiert zusammenzufassen? Manuell krieg ich das nicht hin, es ist zu viel.

Hallo,

Folgende Situation: ich habe ein Inhaltsverzeichnis in einer Tabelle eingefügt, jedoch sind einige Titel so lang das die Seitenzahl (+ Rest vom Titel) erst in der nächsten Zeile zu finden sind. Ich meine nicht den Zeilenumbruch, sondern es wurde im PDF vom Inhaltsverzeichnis in der nächsten Zeile weiter geschrieben und so fügt auch Excel den Inhalt in einer neue Zeile ein.

Folgendes möchte ich automatisieren: Fehler suchen --> Inhalt Ausschneiden --> zum Inhalt in darüberliegenden Zelle hinzufügen --> Fehlerzeile löschen

Gerne auch Lösungen für VBA.

Hallo,

ich möchte gerne bei Excel ein Eingabefeld in einer Tabelle erstellen. Heißt: Ich habe in der ersten Zeile meine Überschriften und als zweite Zeile ein leeres Eingabefeld. Wenn ich in das leere Eingabefeld etwas eintrage soll es automatisch in die nächstmögliche freie Zeile darunter eingetragen werden.

Gibt es dafür eine Formel oder Funktion?

Hallo, ich möchte in excel eine Passwortsbfrage machen mit userform.

In Tabelle 1 stehen in Spalte A2 bis A30 Mitarbeiter usernamen.

in Spalte B2 bis B30 die dazugehörigen Passwörter.

userform mit Textfeldern wurde bereits erstellt.

wie kann ich jetzt die Zellen vergleichen wenn ich auf Einloggen gehen z.b A2 und B2 und wenn übereinstimmend, dann userform schließen ansonsten msg Box falsch

Hallo zusammen,

ich möchte in Excel mithilfe eines Buttons und VBA bestimmte Zeilen ausblenden.

Das ganze soll wie folgt wirken:

Klickt man auf den Button sucht Excel nach Zeilen die in Spalte C den Inhalt "ohne Angaben" enthalten und blendet alle Zeilen aus welche diesen Text in Zelle C enthalten.

Wie kann man das realisieren?

Dirk

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:

Guten Morgen Allseits,

ich suche nach einem Schema, Erklärung Schritt für Schritt für Excel VBA Programmierung:

Habe von dem Prof. eine Anleitung dazu bekommen, aber das ist mehr so eine Märchengeschichte.

Nun seid IHR gefragt, habt ihr eine gute Quelle für mich wo das kurz und bündig, aber effizient erklärt wird?

Vielen Dankeschön Euch!

Hallo ich bin's nochmal. Wie kann ich den Optionen die ich in der Userform erstellt habe programmieren? also, dass bei Option1 zb. die Zelle ...grau gefärbt wird?

Halloo,

ich hoffe ihr könnt mir helfen.

ich muss für meine Arbeit eine Excel Tabelle mit Formular erstellen. Die Daten die in das Formular eingetragen wurden sollen sortiert nach Spalte in die vorgefertigte Excel Tabelle eingefügt werden. Wie kann ich das Programmieren?

ich danke im Voraus!