VBA – die besten Beiträge

Hallo zusammen,

Ausgangssituation:

Beruflich werden mir von Kunden Excel Listen mit zeitlich sortierten Jira Tickets (also Issue Type, Datum, Beschreibung) zur Verfügung gestellt.

Ziel:

Ich möchte daraus Gruppen erstellen und in Graphen auswerten (zB. histogram (wie häufig kommt ein spezielles Schlagwort vor), Gantt Chart (wie lange dauert die Bearbeitung von einem übergeordneten Schlagwort), etc).

Ansatz:

Ich habe mir überlegt, die Häufigkeit der verwendeten Schlagwörter ausgeben zu lassen, dann Füllwörter (“und“, “bei“, u.s.w.) raus zu nehmen und darauf aufbauend die restlichen Schlagwörter als Grundlage für die nachfolgende Auswertung zu nehmen. Hierzu sollen die Tickets 1) entsprechend nach Schlagwort gruppiert werden (problematisch wenn mehrere Schlagwörter bei Tickets vorkommen) und 2) ein Gantt Chart zu den übergeordneten Schlagwörtern auf Basis der verfügbaren Daten zu erstellen.

Frage:

Gibt es hierfür eine verfügbare Excel Funktion, die ich in einem Template abspeichern könnte? Bzw kann mir jemand helfen, den Fuß hierfür in die Tür zu bekommen? Ich bin mir zwecks der Umsetzung etwas unsicher.

Vielen Dank im voraus für Eure Hilfe.

Viele Grüße

Michael

Hallo zusammen,

ich möchte per Makro alle A1-Zellen in der Arbeitsmappe ( 8 Tabellenblätter) kopieren und über eine Messagebox ausgeben lassen.

In jeder A1 Zelle steht ein Wort. Die MSG Box soll alle Strings hintereinander ausgeben, sodass ein Satz entsteht.

Habt ihr Ideen ? Bisher scheitern meine Ansätze alle..

Danke euch

Hallo,

Ich habe einen Excel Makro erstellt der in einer ansonsten leeren Excel Datei Sitzt. Wenn man diese Datei öffnet und den Makro startet passiert folgendes:

1. Datei 1 (Tolle Daten.xlsx) wird geöffnet
2. Datei 2 (Template.xlsx) wird geöffnet
3. Daten aus Datei 1 werden in Datei 2 kopiert und teilweise formatiert
4. Datei 1 wird geschlossen und gelöscht
5. Datei 2 wird als UTF-8 .csv Datei in einem anderen Ordner gespeichert
6. Datei 2 wird geschlossen ohne zu speichern

Dieser Makro funktioniert einwandfrei.

Wenn ich allerdings den Makro automatisch starten lasse, wenn ich die Excel Datei öffne rennt er in einen Fehler.

Jetzt Fragt ihr euch wahrscheinlich: "Wo ist die Fehlermeldung?"

Die würde ich euch ja schicken aber wirklich bei jedem Versuch bleibt der Code an einer anderen Stelle hängen.

Fehler:

• unbekannte Variable
• ActiveSheet.Copy -> unbekannt
• Datei 2 konnte nicht gespeichert werden
• objektvariable oder with-blockvariable nicht festgelegt

usw...

Wenn jemand eine Idee hat warum der Makro aufhört zu funktionieren wenn man ihn automatisch starten lässt wäre ich sehr Froh von euch zu hören :-)

Hay zusammen,

meine Frage ist wie kann ich die Werte Links in der Tabelle rechts untereinander einfügen? Es muss eine Abfrage erfolgen ob die Zeile leer ist und wenn nicht, dann darunter einfügen.

Habe da ein Makro gefunden aber vielleicht kann mir jemand sagen wie der funktioniert. Kenne mich damit nicht aus. Habe die Werte geändert (Zellenangaben) und trotzdem fügt er die Daten untereinander ein.

Sub Makro2()
'
' Makro2 Makro
'
' Tastenkombination: Strg+e
'
Dim Zelle As Range
Dim Bereich As Range
Set Bereich = Range("J3:N3")
For Each Zelle In Bereich
    If IsEmpty(Zelle) Then Exit For
Next Zelle
With ActiveSheet
    .Range("A3:E3").Copy
    Zelle.PasteSpecial Paste:=xlPasteAll, Transpose:=True
    .Range("A3:E3").ClearContents
End With
Application.CutCopyMode = False
End Sub

Verstehe das System nicht ganz.

Kurz: Durch Klick auf Buchen sollen die Werte rechts eingefügt werde. Untereinander bei jeder weiteren Buchung.

Hallo, sobald ich auf die Schaltfläche "Hinzufügen" klicke, möchte ich gerne das überprüft wird, ob alle Felder ausgefüllt sind und eine der Optionen angewählt ist.

Alles klappt bisher nur die Überprüfung der Optionsfelder nicht.

Mein Ansatz war:

'Prüfung_2: Wahl zwischen Einnahme oder Ausgabe

If EinnahmenOption.Value = "False" Or AusgabenOption.Value = "False" Then

MsgBox Prompt:="Wähle Einnahme oder Ausgabe.", Title:="Option wählen"

Else

Prüfung_2 = "True"

End If

Problem ist, dass selbst wenn ich nichts auswähle keine Meldung kommt und einfach immer Prüfung_2 auf true gesetzt wird.

Hallo, wie kann ich eine Variable in einer Msg Box integrieren.

Folgendermaßen sieht der Code aus:

'Sollte eins der Felder (Monat.Text, Referenz.Text, Wert.Text) unausgefüllt sein, so soll die Variable den folgenden Wert annehmen

Dim Fehlendes_Feld As String

If Monat.Text = "" Then Fehlendes_Feld = Monat

If Referenz.Text = "" Then Fehlendes_Feld = Referenz

If Wert.Text = "" Then Fehlendes_Feld = Wert

MsgBox Prompt:="Bitte folgendes Feld ausfüllen: Fehlendes_Feld ", Title:="Fehler"

Die Msg Box zeigt mir halt den Text an und passt die Variable leider nicht an. Wie ändere ich das?

Hallo zusammen,

meine VBA Kenntnisse sind leider etwas eingerostet und ich komme bei folgendem Problem nicht weiter.

Wie in der angehängten Grafik zu sehen, gibt es eine Tabelle mit verschiedenen Projekten. Ich würde gerne bei Ausführen des Makros jeweils eine neue Zeile darunter einfügen, sobald sich die Projektnummer in Zeile A ändert. Da dies bislang noch nicht so geklappt hat, arbeite ich aktuell mit folgendem Makro und füge eine neue Zeile ein, wenn ich Spalte C das Datum des vorherigen Monats gefunden wird. Das sieht folgendermaßen aus:

Sub ZeilenEinfuegen()

Dim ze As Long, zeL As Long

zeL = 1000 'Letzte Zeile bis zu der gesucht werden soll

For ze = 1 To zeL

  If ActiveSheet.Cells(ze, 3).Value = "31.10.2022" Then

    ActiveSheet.Rows(ze + 1).Insert

    ze = ze + 1

    zeL = zeL + 1

  End If

Next ze

End Sub

Auf Dauer würde ich jedoch gerne mit der Projekt-Nr. aus Spalte A als Bezug arbeiten und auch automatisiert die Projekt-Nr. sowie Bezeichnung aus der Zeile darüber in die neue Leerzeile einfügen.

Es wäre super, wenn mir jemand bei der Verbesserung helfen könnte!

Danke und viele liebe Grüße

Judith

Hallo Zusammen,

Ich bräuchte eine VBA Code, vielleicht kann mir da ein Experte weiter helfen. Ich möchte, wenn ich auf die Schaltfläche klicke in Tabelle2 (Siehe Bilder), dass Exel mir die Werte die ich gelb markiert habe, kopiert und anschließend in Tabelle1 immer in die leere Zeile die jeweiligen Werte einfügt. Ich hoffe ich habe es ausreichend erklärt.

Würde mich freuen wenn mir jemand da helfen könnte :)

Hallo,

ich habe angefangen mit VBA in Excel zu programmieren. Ich habe einen 4K Monitor.

Leider ist die Schrift im Editor sehr klein. Jegliche Versuche dies zu ändern sind gescheitert. Weder wirkt sich die Windows Skalierung noch die Windows Schriftgrößen-Einstellung darauf aus. Ganz zu schweigen von den eigenen Einstellungen unter Excel VBA. Die Schriftgröße stellt sich automatisch auf 6, nachdem ich OK gedrückt habe. Siehe Screenshot. Egal welche Schriftart.

Wäre echt Super, wenn jemand eine Lösung parat hätte. Mit der Windowslupe ständig zu arbeiten ist echt nervig.

Gruß

gnuma

Moin.

Ich erstelle aktuell ein Wordformular, in dem der Hintergrund ein Bild sein soll. Über ändern der Hintergrundfarbe und da Grafik geht das zwar, aber beim zoomen im Dokument, ändert sich auch der Bildausschnit (Why Word?!). Über Wasserzeichen einfügen geht leider nicht, da das Dokument nur am PC geöffnet und nicht gedruckt wird (das Ausgeblichene sieht einfach nicht schön aus). Hat jemand eine andere Idee? Vielleicht über VBA?

Vielen Dank und liebe Grüße

Kathrin

Hey,

ich arbeite aktuell an einem Word Dokument, in dem ich mit ActiveX-Steuerelementen arbeite. Habe bereits zwei Dropdownlisten eingefügt und diese über VBA voneinander abhängig gemacht.

Jetzt würde ich gerne bei der Auswahl eines Dropdownelementes den dazu passenden Text in mein Dokument anzeigt bekommen. In Word über Strg+F9 habe ich das bereits hinbekommen, da es aber am Ende einige Dropdownelemente werden, hätte ich das gerne in VBA sortiert angezeigt.

Bsp.

Dropdowliste zeigt "A" an, dann kommt als Text "Banane"

Dropdownliste zeigt "B" an, dann kommt als Text "Apfel"

Über Strg+F9 sah das in etwa folgendermaßen aus:

{IF {REF Benchmarkdropdownliste}="A" "Banane"}...

Ich bin leider absoluter VBA Neuling und kann mit den ganzen VBA Begriffen, wie Sub und Co. nichts anfangen :D Außerdem wäre eine weitere Frage, wie ich definiere, wo dann der IF then Teil im Dokument angezeigt wird?!

Vielleicht kann mir hier ja Jemand helfen :D

LG Kathrin

Hallo an alle!

Ich arbeite an einer Excel Tabelle und möchte das sobald der Wert auf 0 gesetzt wird, das in einer nächsten Spalte das heutige Datum erscheint und auch bestehen bleibt.

(Das Datum soll erscheinen wenn der Wert auf 0 gesetzt wurde)

Wie (und ist) das möglich?

Danke im voraus!

Hallo zusammen,

ich habe eine Excel-Liste mit Personen. In Spalte A sind die Personalnummern, in Spalte T wird ausgegeben, ob eine Schwerbehinderung vorliegt. Dies bezieht sich auf ein separates Arbeitsblatt, in welchem Personaldaten mit schwerbehinderten Beschäftigten enthalten sind (Spalte A = Personalnummer). Diese Rückmeldung klappt; hierbei wird einfach geschaut ob die Personalnummer aus Spalte A auch in Spalte A in dem separaten Arbeitsblatt vorkommt. Wenn jemand eine Schwerbehinderung hat, so erscheint "WAHR" in der jeweiligen Zelle in Spalte T.

In Spalte U soll nun ausgegeben werden, ob eine Erwerbsminderungsrente vorliegt. Dies ist i.d.R. nur bei Schwerbehinderten der Fall, sodass hier wieder auf das separate Arbeitsblatt Bezug genommen werden soll.

Es soll also in der Formel für Spalte U die Bedingung gelten, dass wenn in der jeweiligen Zelle in Spalte T "WAHR" steht, dann soll in dem separaten Arbeitsblatt in der dazugehörigen Zeile mit der entsprechenden Personalnummer auf Spalte R verwiesen werden. In Spalte R des separaten Arbeitsblattes ist mit "WAHR" (liegt vor) und "FALSCH" (liegt nicht vor) hinterlegt, ob eine Erwerbsminderungsrente vorliegt.

Gewünscht ist auch ein Verweis auf Spalte S im separaten Arbeitsblatt, wo das Datum hinterlegt ist, wie lange die Rente geht.

Ich probiere seit Ewigkeiten rum, aber kriege es mit einer Formel nicht abgebildet.
Kann jemand helfen? Im Voraus vielen Dank.

Moin,

ich versuche mich gerade an einer Tabelle in Excel (siehe Bild). Ich möchte jetzt das die Anzahl gezählt wird, welcher Verein wie oft drin steht.

Beispiel: Osterburg II müsste dann in dieser Tabelle 2x gezählt werden (siehe erste und vorletzte Zeile).

Mit welchem Befehl bzw. wie bekomm ich das hin?

Danke für eure Hilfe!

Hallo!

Ich hab zelle mit verschiedenen numerischen und char Inhalten. In allen befindet sich aber mindst eine sechsstellige Nummer. Dies kann folgendermaßen aussehen 123456 oder auch A2200123456 oder A22123456. Manchmal befinden sich auch zwei oder drei in einer Zelle, neben den Text: 123456, 654321, 987654

Folgenden Code habe ich aktuell:
=VERWEIS(9^9;1*LINKS(TEIL(B208;MIN(WENN(ISTZAHL(TEIL(B208;SPALTE($1:$1);1)*1);SPALTE($1:$1)));9^9);SPALTE($1:$1)))

dieser funktioniert ganz gut. das Problem bei diesem ist, dass er bei den 'A22000123456' immer die letzten zwei zahlen weglässt und auch nur eine der Zahlenketten extrahiert.

Wichtig wäre mir dabei vor allem, dass das erste Problem mit den fehlenden letzten zwei Zahlen gelöst wird.

Hinweis: neben er Zahlenkette befinden sich manchmal auch noch andere einzelne zahlen darin

Guten Morgen, ich hab mal eine Frage zu einem VBA.

Mein Code sendet zwar die E-Mail, nimmt aber den Dateiinhalt nicht mit. Kann mir da jemand helfen? Gruß

Hier mein Code: Public Sub Änderungen_Click()


    sMailtext = "Aktueller Änderungsumfang / Raum für weitere Informationen:  "
    
    With CreateObject("Outlook.Application").CreateItem(0)
        .GetInspector
            .Subject = "Änderungen"
                .Body = sMailtext & .Body
                        .Importance = 1
                    .To = "###########@t-online.de"
                    '   .Display
        With .GetInspector.WordEditor.Application.Selection
             ThisWorkbook.Worksheets("Info").Range("A1").CurrentRegion.Copy
                 .Start = Len(sMailtext)
                     .End = Len(sMailtext)
                         '   .Paste
                End With
                    
                    .Send


            End With
    End
End Sub

Hallo Zusammen,

ich suche eine Möglichkeit aus einer Excel Datei (MS 365 auf einem mac) mit mehreren Tabellenblättern dem Nutzer die Möglichkeit zu geben eine PDF zu generieren deren Inhalt und dessen Ablageort er selber definieren kann.

Dabei ist die Auswahl des Inhalts auf die Tabellenblätter begrenzt. In jedem relevanten Tabellenblatt ist je ein Druckbereich definiert. D.h. der Nutzer kann (ohne Makro) auswählen ob er Tabellenblatt 1, Tabellenblatt 4 und oder andere Tabellenblätter drucken will.

Das Makro wird durch einen Button ausgelöst und folgendes geschieht:

• Abfrage welcher Speicherort und Dateiname
• Speichern der Datei / Schließen des Fensters
• Öffnen der generierten PDF Datei

Als Idee hatte ich zunächst mit Checkboxen zu arbeiten. Leider ist auf einem Mac die Nutzung von UserForms nicht möglich.
Die nächste Idee war die Checkboxen für jedes Blatt einzeln auswählbar zu machen.
Am Ende habe ich mich aber dafür entschieden, in einem Feld (aktuell auf jedem Blatt A1) die Information "print" abzulegen, so dass das Makro per Schleife alle Blätter auf A1="print" durchlaufen soll.

da ich noch ziemlicher VBA-Laie bin und mir mein Makro aus verschiedenen im netz verfügbaren Makros zusammengebaut habe, erspare ich euch das Pasten des sicherlich gruseligen Versuchs meinerseits

Leider klappts alles nicht so wie ich das gerne hätte, so dass ich nun auf eure Hilfe hoffe...

Danke schonmal!!

Hallo,

ich versuche gerade Access zu verstehen und habe nun ein Problem.

Ich habe zwei Kombinationsfelder:

1. KombiFeld01
2. KombiFeld02

Das zweite Kombinationsfeld soll abhängig von der Auswahl vom ersten Kombinationsfeld Einträge aus einer weiteren Tabelle anzeigen.

Das erste Kombinationsfeld wird bereits aus einer anderen Tabelle gefüllt.

Ich versuche also jetzt per VBA irgendwie einen Bezug von der Auswahl zur Tabelle zu erzeugen und komme nicht weiter.

Das sieht nun so aus (Variablen, weil ich nicht weiß wie ich die Spalten der Tabelle anhand der Auswahl im Kombinationsfeld auswählen soll):

Private Sub KombiFeld01_AfterUpdate()

  Dim strSQL As String, Auswahl As String, Spalte As String, cbo As ComboBox, cbo2 As ComboBox

  Set cbo = Me!KombiFeld01

  Set cbo2 = Me!KombiFeld02

  Select Case True

  Case cbo = "Artikelbezeichnung"

  Spalte = "Artikelbezeichnung"

  Case cbo = "Artikel-Nummer"

  Spalte = "ArtikelNummer"

  Case cbo = "FA-Nummer"

  Spalte = "FANummer"

  Case cbo = "Fehlermeldung Nr."

  Spalte = "Nr"

  Case cbo = "Kunde"

  Spalte = "KundeLang"

  Case cbo = "Status"

  Spalte = Me!KombiFeld01

  Case cbo = "Zuständig"

  Spalte = "zuständig"

  End Select

  strSQL = "SELECT DISTINCT '" & Spalte & "' FROM Fehlermeldungen ORDER BY '" & Spalte & "' WHERE '" & cbo & "' "

  cbo2.RowSource = strSQL

End Sub

Ich verstehe nicht, wie Select where überhaupt funktioniert.

Vielleicht kann jemand helfen. Vielen Dank.

Moin zusammen, ich baue aktuell in VBA eine Excel Liste bzw. versuche eine auszuwerten. Ziel, jede 21ste Zeile soll ausgelesen und zusammengefasst ausgegeben werden. Leider gibt er die Werte genau in den Steps aus in denen er Sie liest und ich komme mit meinem Probieren nicht weiter. Hat jemand eine Lösung?

Hier der Code:

Sub AlternativeZeilenAuswaehlen()

  Dim bereich1 As Range

  Dim bereich2 As Range

  Dim x As Integer

  Dim y As Integer

  Dim ZeilenNr As Integer

  'Den Bereich auswählen

  Set bereich1 = Range("'Test Yvonne Excel (2)'!E1:E30000")

  Set bereich2 = Range("Tabelle1!B5:B30000")

  'Zeilen zählen

  ZeilenNr = bereich1.Rows.Count

  ZeilenNr = bereich2.Rows.Count

  'Jede zweite Zelle im Bereich durchlaufen

  For x = 3 To ZeilenNr Step 21

  'den Wert aus Spalte B in Spalte C eintragen

    bereich2.Cells(x, 1).Offset(0, 0) = bereich1.Cells(x, 1)

  Next

End Sub

Ich habe ein Excel-Tabellenblatt mit Datensätzen (Adressdaten). Im zweiten Tabellenblatt kann ich mit einer Formel (Index-Vergleich) über den Namen oder Kodex den Datensatz heraussuchen lassen. Nun möchte ich von diesem Suchergebnis zum passenden Datensatz im Tabellenblatt 1 mit den Datensätzen springen, da ich dort Änderungen durchführen möchte. Wer kann mir bitte bei der Lösung helfen?