VBA – die besten Beiträge

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?

Ich Möchte ein Tabellenblatt neben das Original kopieren, in dem man nichts mehr ändern kann, aber anschliesssend die Sub Makros aus der Kopie Löschen, da sonnst die Datie zu groß wird. Das Kopieren funktioniert super, nur mit den Makros entfernen noch nicht so.

Das ist mein Code zum Kopieren, Danke

Sub NeuesTabBlatt()
' Monate Soll
 If MsgBox("Wollen Sie wirklich einen neuen Sollplan erstellen?", vbYesNo) = vbYes Then
 If InputBox("geben sie Bitte das Passwort zum Entsperren ein", "  Sollplanerstellung") = "1234" Then
        MsgBox "OK, der Sollplan wird erstellt"
 Else
 MsgBox "Hier kommst Du net rein!"
 ActiveSheet.Range("$A$1").Select
 Exit Sub
 End If
Application.ScreenUpdating = False
Application.Calculation = False
Dim NewName As String
ActiveWorkbook.Unprotect Password:="1234"
NewName = ActiveSheet.Range("$CW$1")
ActiveSheet.Copy After:=ActiveSheet
 ActiveSheet.Name = "Soll" & " " & ActiveSheet.Range("CW1")
  ActiveSheet.Range("AT127:AV134,AQ133:AS133, AT183:AV186, AT228:AV232").Clear
       ZeilenEinUndAusblenden
    ActiveSheet.EnableSelection = xlNoSelection
   ActiveSheet.Protect Password:="1234", DrawingObjects:=True, Contents:=True, Scenarios:=True
   ActiveSheet.Visible = False
  ActiveWorkbook.Protect "1234", Structure:=True
  Application.Calculation = xlAutomatic
 Application.ScreenUpdating = True
 MsgBox "ein neues SOLL Tabellenblatt wurde erstellt"
 End If
 'BlätterSollEinAus
 ActiveSheet.Range("$A$1").Select
End Sub 

Hallo, ich muss eine IP in eine Excel Datei einfügen und habe folgendes Problem:

Ich muss die Datei in Python wieder aufgreifen und es sollte als IP (bsp. 123.22.33.291) gelesen werden. Excel allerdings wandelt diese Zahl mit den wichtigen Punkten in eine ganze Zahl, also aus 123.22.33.291 wird 1232233291...

Weiß jemand, wie ich das Deaktiviere?

Hallo, ich habe eine Sub geschrieben, die die nächste leere Zelle finden soll und dort etwas einfügen soll. Das ganze wird immer wieder wiederholt. Dabei habe ich allerdings ein Problem. In den Zellen A1-A10 stehen Formeln, die entweder einen Wert, oder "" ausgeben. Nehmen wir das Beispiel, dass in A1-A5 Werte stehen und A6-A10 leere Zellen sind, bzw "" (also nur eine Formel mit Ergebnis "" enthalten). Nun werden diese mit folgendem Code in das andere Tabellenblatt kopiert.

Wenn ich jetzt das ganze wiederhole, werden die neuen Daten in Tabellenblatt B erst in A11 eingefügt, obwohl A6-A10 ja leere Zellen sind.

Wie kann ich es abändern, dass Excel das Formelergebnis "" als leere Zelle ansieht?

Hier der Code:

Sub Test()

Worksheets("A").Range("A1:A10").Copy

Worksheets("B").Cells(Rows.Count, 1).End(xlUp).Offset(0, 0).PasteSpecial xlPasteValues

Application.CutCopyMode = False

End Sub

Hallo allerseits,

seit mehreren Wochen versuche ich mit Excel einen Algorithmus zu finden, um aus einer Reihe bestimmter/vorgegebener Zahlen (z.B. 32 Zahlen in Spalte A) alle mathematischen 5-er oder 6-er Varianten zu berechnen und in den darauffolgenden 5 bzw. 6 Spalten darzustellen.

Bin inzwischen nur verzweifelt. Gibt es eine elegante Lösung dafür (verformelt oder mit VBA)?

Vielen Dank im Voraus!

Hallo, ich hätte eine Frage bezüglich Excel VBA:

Ich versuche folgendes zu erreichen:

Damit soll der Zellinhalt von (in dem Fall) Zelle A1 geändert werden.
Wenn man "x = 2" verwendet, dann soll der Inhalt in Zelle A2 geändert werden usw.

Gibt es da eine Spezielle Syntax oder geht es gar nicht so?

Danke für eure Hilfe!

Hallo, ich hätte eine Frage bezüglich Excel Makros.

Ich habe eine Tabelle (siehe Bild unten). Bei Klick auf Sortieren wird ein Makro ausgeführt das den Bereich der Liste1 Sortiert.

Jetzt zur Frage: Wenn die Liste1 einen neuen Eintrag bekommt, wird dieser natürlich nicht mitsortiert. (Wie) kann man das lösen, auch wenn sich der Bereich vergrößert?

(Man könnte einfach die gesamte Spalte sortieren indem man die Liste2 und Liste3 woanders hinverschiebt, das ist aber nicht gewollt in dem Fall. Die Listen müssen untereinander sein; neue einträge würden durch "Zellen einfügen" hinzufügt werden)

Danke für eure Hilfe.

Hallo, wie kann ich ausgewählte Zellen einer Spalte in EINE Zelle verschieben? Die Werte sollen mit Zeilenumbrüchen dargestellt werden. Am besten als Script?!