VBA Excel – die besten Beiträge

Hallo, ChatGPT hilft mir grade mit den Makros, da ich mich aber nicht so gut mit Makros auskenne möchte ich alles verstehen. Einfache Sachen konnte ich bereits verstehen nun ist aber ein etwas längere und schwerere Code Stück ausgespuckt worden:

wb2.Sheets(1).Rows(i).Copy
ws.Cells(ws.Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial xlPasteValues

Die Funktion des Programms ist leider sehr kompliziert. Dieser Schnipsel sollte aber für das kopieren und einfügen zuständig sein. Wie kann ich beim "Paste" etwas hinzufügen das beim "Copy" oben noch nicht da war?

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 zusammen,

ich habe momentan ein Problem, ich möchte, dass ich verschiedenen Tabellen auf einem Tabellenblatt habe. 

Es soll jede Tabelle im Reiter "Kundengruppe" von A->Z (Aufsteigend) sortiert werden, ohne, dass das VBA direkt einen Zellenbezug herstellt, da die höhe und tiefe der Tabellen mal nach Anzahl der Eintragungen variieren kann.

Hier der Link zur Datei:

https://www.herber.de/bbs/user/147794.xlsm

Range(Selection, Selection.End(xlDown)).Select

  ActiveWorkbook.Worksheets("OP").AutoFilter.Sort.SortFields.Clear

  ActiveWorkbook.Worksheets("OP").AutoFilter.Sort.SortFields.Add2 Key:=Range( _

    "Q16:Q18"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _

    xlSortNormal

  With ActiveWorkbook.Worksheets("OP").AutoFilter.Sort

    .Header = xlYes

    .MatchCase = False

    .Orientation = xlTopToBottom

    .SortMethod = xlPinYin

    .Apply

  End With

Das ist der aktuelle Code, der Bereich mit <b>Range( _"Q17:Q18")</b> soll im besten fall weg, da das der punkt ist, wo die höhe der Tabelle variieren kann..

Der   Range(Selection, Selection.End(xlDown)).Select befehl, sucht ja in dem fall schon den richtigen anfang, und ab da soll dann der Filter gesetzt werden und gefiltert werden

Ich hoffe man versteht es einigermaßen...

Danke & LG

Chris

Hallo,

Ich habe folgendes Problem.

Ich habe einen Button mit dem man den Blattschutz de/aktivieren kann.

Jedoch kann man das PW umgehen, indem man einfach das Fenster schliest, indem man das PW eingibt.

Hat da jemand eine ahnung, wie ich das ausbessern kann?

Macro:

Private Sub CommandButton1_Click()

If MsgBox("Blattschutz aufheben/aktivieren?", vbYesNo) = vbYes Then

Else: Exit Sub

[...Aktion ausführen...]

End If

On Error GoTo PW

If ActiveSheet.ProtectContents = True Then

   ActiveSheet.Unprotect

   ' einblenden:

   ActiveWindow.DisplayHeadings = True

Else

   ActiveSheet.Protect Password:="+1516", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingRows:=True

   ' ausblenden:

   ActiveWindow.DisplayHeadings = False

End If

Exit Sub

PW:

MsgBox "Falsches Passwort"

End Sub

Hey...

Ich habe folgende Tabelle in Excel 2019

Name Vorname DG Straße Telefonnummer ...................... etc

Muster Maxi .................................................................. etc

.....................

...................... usw

Nun möchte ich in einem extra Tab (in der gleichen Datei) eine Suchmaske erstellen mit drei Suchfeldern

(Name Vorname DG) und wenn ich das eingebe, soll er mir alle Daten die ich vor eingestellt abfrage ausspucken über die Person.

Es sollen entweder alle drei oder nur eins ausgefüllt werden müssen (oder halt zwei).... Habe es über VBA schon erstellt wie es aussehen soll, aber meine Kenntnisse beschränken sich nur auf (was mir google sagt probiere ich so lange bis es geht).... Anscheinend frage ich aber nicht richtig, auf jeden Fall komme ich aktuell nicht weiter... Kann m mir jemand helfen?

Danke im Voraus

Ich würde gern die ganze Spalte A minus ganze Spalte B und das Ergebnis in C eintragen lassen; Dies aber über VBA "Diese Arbeitsmappe", da man da dann nicht ausversehen irgendwelche Formeln löschen kann.

Das Arbeitsblatt heißt Finanzierung:

Zeile 1 C = A - B

Zeile 2 C = A - B

Zeile 3 ...

Vielen Dank.

Hallo liebe Community,

ich habe schon wieder eine Excelfrage, hoffentlich vorerst meine Letzte:

Kann man für eine Zelle eine Formel erstellen, diese Formel schützen und dennoch einen manuellen Eintrag ermöglichen?

Es geht um folgendes: Ich habe einen Stundenzettel, in welchem sich die Stunden automatisch zusammenrechnen mit 0,75 Stunden Pause.

Ein Arbeitstag von 8:00 bis 16:00 Uhr hat also 7,25 Stunden. Arbeisstart werden in C und D eingetragen. Um die Pausen auszurechnen existiert folgende Formel:

=WENN(ISTLEER(D18);"";((D18-C18) 24)-0,75)

Nun soll die Zelle aber auch per Hand eingetragen werden können, wenn z.B. Urlaub genommen wurde oder die Pausenzeit von den 0,75 Stunden abweicht oder KRankheit oder ... Daher kann ich die Formel nicht schützen.

Wenn jetzt jemand per Hand 8 Stunden einträgt, ist die Formel weg. Daher würde ich sie gerne schützen.

Geht dies und wenn ja wie?

LG Karsten

Hallo ich hoffe Ihr könnt mir helfen :/

Folgendes Problem: Wenn ich die Mail versende, öffnen sich für jede Zeile eine extra Email und leider auch nur jeweils ein Empfänger und einer in cc.

Was muss ich nun in der Programmierung hinzufügen, um nur eine Email geöffnet zu bekommen, mit mehreren Empfängern (Falls mehrere Kreuze gesetzt worden sind). Ich danke euch echt wenn Ihr mir helfen können :/

Ich habe mir die Bausteine aus dem Internet zusammengesetzt, bin daher kein Profi darin.

Programmtext:

Private Sub Send_Email()
   '-------------< Send_Email() >-------------
   Dim sTitle As String
   sTitle = "Test-HTML Email from Excel"
   '< HMTL holen >
   Dim sTemplate As String
   sTemplate = Sheets("ini_Vorlage").Shapes(1).TextFrame2.TextRange.Text
   '</ HMTL holen >
   '----< Send with Outlook >----
   Dim app_Outlook As Outlook.Application
   Set app_Outlook = New Outlook.Application
   '--< Email einstellen >--
   Dim objEmail As Outlook.MailItem
   Dim sEmail_Addresscc As String
   Dim sEmail_Address As String
   Dim iRow As Integer
   For iRow = 4 To 100
       If Cells(iRow, 21) = "x" Then
           '< get Email Address >
           'Column 2, B
           sEmail_Address = Cells(iRow, 19)
           sEmail_Addresscc = Cells(iRow, 20)
           '</ get Email Address >
           '< Fill Placeholders >
           Dim sHTML As String
           sHTML = Replace(sTemplate, "[@Name]", sEmail_Address)
           '</ Fill Placeholders >
           '--< Send Email >--
           Set objEmail = app_Outlook.CreateItem(olMailItem)
           objEmail.To = sEmail_Address
           objEmail.CC = sEmail_Addresscc
           objEmail.Subject = sTitle
           'objEmail.HTMLBody = sHTML 'use .HTMLBody for HTML
           objEmail.Body = sHTML      'and .body for pure Text
           objEmail.Display
           '--</ Send Email >--
       End If
   Next
   '< Abschluss >
   Set objEmail = Nothing
   Set app_Outlook = Nothing
   '</ Abschluss >
   MsgBox "Emails erstellt", vbInformation, "Fertig"
   '----</ Send with Outlook >----
   '-------------</ Send_Email() >-------------
End Sub

Guten Morgen zusammen, ich habe eine Tabelle, in der Audits geplant werden. Von Spalte K bis Spalte BI sind die einzelnen Kalenderwochen eingetragen und bei den jeweiligen Produkten darunter steht immer eine 1 wenn ein Audit in der KW erfolgen soll. In Spalte I möchte ich mir jetzt durch Komma getrennt die KW anzeigen lassen, in der das Audit geplant ist. Mein VBA sieht folgendermaßen aus:

Function VerbindeKW(Bereich As Range) As String

   Dim Zelle As Range

   Dim Ergebnis As String

   Dim KW As Integer

   For Each Zelle In Bereich

       If Zelle.Value = 1 Then

           KW = Zelle.Column - 10 ' K = Spalte 11 = KW1

           Ergebnis = Ergebnis & "KW" & KW & ", "

       End If

   Next Zelle

   If Ergebnis <> "" Then

       VerbindeKW = Left(Ergebnis, Len(Ergebnis) - 2)

   Else

       VerbindeKW = ""

   End If

End Function

Jetzt gibt die Funktion mir die allererste Kalenderwoche korrekt zurück (aber auch nur in der ersten Zelle) und danach ist es immer eine KW zu wenig. Ich habe mich fest auf Spalte K festgelegt, weil dort KW1 hinterlegt ist. Kann mir jmd da weiterhelfen? Herzliche Grüße Annette

Wenn ich Artikelnummer und typnummer gegeben habe. Und nun in einer Excel Tabelle aus diesen Daten einen Link erstellen will, der zum jeweiligen Datenblatt des Artikels fuehrt. Geht sowas? Ich habe leider keine Ahnung von HTML, und weiss das verschiedene Hersteller, aufjedenfall unterschiedliche vorgehensweisen haben. Kennt jmd eine herangehensweise?

Hoi zusammen,

ich habe mithilfe der GF Community vor langer Zeit ein Tool gebastelt, das mir helfen soll meine Baustelleneinsätze zu überschauen. Die Idee ist simpel, ne exceltabelle, in der ich zu jedem Tag den entsprechenden Projektnamen notiere und dazu einen durch VBA generierten Kalender. In dem Kalender werden nun zusammenhängende Projekttage durch einheitliche Farben dargestellt. Sprich, ich bin eine Woche in Timbuktu, dann wird diese eine Woche im Kalender Blau markiert, mit dem Namen Timbuktu. Das nächste Projekt erhält eine andere Farbe. Das ganze sieht dann so aus

Das ganze hat auch super funktioniert, aber nun auf einmal nicht mehr. Und ich habe keine Änderungen vorgenommen (kann mir das nicht erklären, bin aber auch kein VBA/Excel Experte) Selbst meine alte Datei von 2023 funktioniert auf einmal nicht mehr, und die lag als Backup irgendwo rum, die hilft dementsprechend auch nicht, das selber zu fixen.

Das nervt mich, weil da nen haufen arbeit drinsteckt, kann mir da wer helfen, im besten Fall selber über den Code schauen? Mit "ja, den string xy in array abc musst du mitm object als integer parametrieren" hilft mir nicht😅

Quelltext is zu lang, ich versuche den als separate Nachricht zu posten oder schicke den gerne per PM/Mail/Brieftaube

Danke und bis denn dann, Gruß Stroiner

Hallo,

ich habe zwei Excel:

In Datei A stehen in Spalte A verschiedene Codes, und dann in den Spalten D bis G Daten.

In Datei B brauche ich jetzt ein Makro, das zu einem Code, der in einer Zelle steht (also sagen wir in C1 steht "XY2345", aus Datei A alle Werte der Spalten D bis G in Datei B kopieren und zwar in ein anderes Tabellenblatt (sagen wir "ZZZ).

Kennt sich da von euch jemand aus? Das sollte eine einfache Schleife sein, aber ich weiß nicht wie das funktioniert... es sollen der Reihe nach (bis zum letzten Wert in Datei B) jede Zeile ausgelesen werden, und wenn der Code stimmt, dann die Werte aus D bis G eben in die andere Datei kopiert werden. Sollte ja eigentlich nicht so schwer sein, oder? Kann mir da jemand helfen?

Vielen vielen Dank!

Hallo liebe VBA-Experten,

folgende Aufgabenstellung habe ich erhalten leider kommt immer eine Fehlermeldung s.h. Anlage.

bitte um Hilfe 🙏

Hallo zusammen,

vorab schonmal, nein ich habe hier absolut 0% Ahnung hiervon und brauche dringend Hilfe!

Ich habe auf der Arbeit bei einer wichtigen Excel Datei eine neue Spalte eingefügt, was dafür gesorgt hat, dass eine wichtige Spalte rechts davon weiter nach rechts verschoben wurde um eine Zelle.

In dieser Spalte wurden Enddatum eingetragen und diese wurden mit einem Makro über VBA Absteigend von jüngerem Datum oben, nach späteren Datum nach unten hin sortiert.

Nachdem ich die neue Spalte zugefügt habe, funktionierte eins nach dem anderen nicht mehr richtig und ich war so dumm zu versuchen das Makro minimal anzugleichen, sodass es funktioniert und habe es dann getestet.

Dadurch habe ich es nur schlimmer gemacht...

Zudem kann ich jetzt nicht mal mehr in der Tabelle scrollen, zumindest in diesem Reiter, in einem anderen Reiter unten, kann ich scrollen in der Datei.

Der Text in VBA Stand jetzt:

Sub Sortieren()

'

' Sortieren Makro

'

'

  Rows("3:500").Select

  Range("B3").Activate

  ActiveWorkbook.Worksheets("Übersicht").Sort.SortFields.Clear

  ActiveWorkbook.Worksheets("Übersicht").Sort.SortFields.Add Key:=Range( _

    "H4:Hl34"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _

    xlSortNormal

  With ActiveWorkbook.Worksheets("Übersicht").Sort

    .SetRange Range("A3:L500")

    .Header = xlYes

    .MatchCase = False

    .Orientation = xlTopToBottom

    .SortMethod = xlPinYin

    .Apply

  End With

  ActiveWindow.SmallScroll Down:=3

  ActiveSheet.Range("$A$3:$L$97").AutoFilter Field:=12, Criteria1:="="

  ActiveWindow.SmallScroll Down:=-12

End Sub

Hallo,

Ich lasse in Excel (Excel 2019) auf Knopfdruck ein Makro laufen.

Es ist eigentlich ganz simple: Es schreibt "ok" in die aktive Zelle, kopiert die linke Zelle und springt dann wieder ein runter und ein nach rechts.

Private Sub CommandButton3_Click()

Range(ActiveCell, ActiveCell.Offset(2, 0)) = "ok"

ActiveCell.Offset(0, -1).Select

Range(ActiveCell, ActiveCell.Offset(2, 0)).Copy

ActiveCell.Offset(3, 1).Select

End Sub

Das was ich nicht hinkriege:

Es wird leider die gesamte Zelle kopiert. Wenn ich die Zelle irgendwo anders einfüge wird die gesamte Zelle mit Rahmen und anderen Formatierungen eingefügt.

Nun die Frage: Kann ich anstatt die gesamte Zelle auch nur den Zelleninhalt, also nur die Schrift ohne jegliche Formatierungen kopieren lassen? Ich brauche es in den Zwischenspeicher, sodass ich es wo anders in einem Browser mit STRG+V einfügen kann.

Vielen Dank im Voraus

Nach meiner Erfahrung ist Python etwas sicherer, und mit VBA habe ich mir schon einmal Excel zerschossen. Welche Erfahrungen habt ihr gemacht?

Hallo ich würde gern die befehle in VBA umwandeln weiß aber nicht wie.

=SVERWEIS(D3;Tabelle1!A1:G399;2;FALSCH)

=SVERWEIS(D3;Tabelle1!A1:G399;3;FALSCH)

=SVERWEIS(D3;Tabelle1!A1:G399;4;FALSCH)

=SVERWEIS(D3;Tabelle1!A1:G399;5;FALSCH)

=SVERWEIS(D3;Tabelle1!A1:G399;6;FALSCH)

=SVERWEIS(D3;Tabelle1!A1:G399;7;FALSCH)

Hii,

ich möchte mithilfe eines VBA Codes eine Formel in eine Zelle schreiben, bekomme aber mal den Fehler: erwartet Anweisungsende und mal einen Syntaxfehler.

 ActiveCell.Formula2R1C1 = _

  "=IF"(Iferror(if(search(""Jermann"",xlookup(RC[-3],R2C3:R[-3]C[-2],R2C20:R[-3]C[15],"" ""))>0.2,2,1)*Iferror(if(search(""RISTAG""xlookup(RC[-3],R2C3:R[-3]C[-2],R2C20:R[-3]C[15],"" ""))>0.2,3,1)*Iferror(if(search(""OSTAG Ing.""xlookup(RC[-3],R2C3:R[-3]C[-2],R2C20:R[-3]C[15],"" ""))>0.2,4,1)=2,""Jermann"",IF"(Iferror(if(search(""Jermann"",xlookup(RC[-3],R2C3:R[-3]C[-2],R2C20:R[-3]C[15],"" ""))>0.2,2,1)*Iferror(if(search(""RISTAG""xlookup(RC[-3],R2C3:R[-3]C[-2],R2C20:R[-3]C[15],"" ""))>0.2,3,1)*Iferror(if(search(""OSTAG Ing.""xlookup(RC[-3],R2C3:R[-3]C[-2],R2C20:R[-3]C[15],"" ""))>0.2,4,1)=3,""RISTAG"",IF"(Iferror(if(search(""Jermann"",xlookup(RC[-3],R2C3:R[-3]C[-2],R2C20:R[-3]C[15],"" ""))>0.2,2,1)*Iferror(if(search(""RISTAG""xlookup(RC[-3],R2C3:R[-3]C[-2],R2C20:R[-3]C[15],"" ""))>0.2,3,1)*Iferror(if(search(""OSTAG Ing.""xlookup(RC[-3],R2C3:R[-3]C[-2],R2C20:R[-3]C[15],"" ""))>0.2,4,1)=4,""OSTAG Ing."",0)0)0)0))

Ich weiss das es viel ist, aber ihr würdet mir eine grosse Hilfe sein, wenn ihr den fehler findet.

Hallo Zusammen

Ich steh wieder mal an mit VBA.

Also: Ich habe eine Tabelle mit Kundendaten. Wenn ich die Kundennummer anklicke, soll er mir das verlinkte Dokument drucken, bis er keine Kundennummer mehr findet. Also die Tabelle "Kundendaten" sieht z.B. so aus:

Jetzt will ich, dass er die Kundennummern 15-20 druckt und dann aufhört. Dann, wenn ich die Zelle mit "26" anklicke, soll er die Nummern 26-39 drucken. Den Code fürs drucken habe ich geschrieben. Jedoch brauche ich noch etwas, dass er "bis zur nächsten leeren Zelle" alles druckt und dann aufhört. Sozusagen: Wenn der Code eine leere Zelle erreicht, wird der VBA Code unterbrochen. Der Code zum Drucken sieht (vereinfacht) so aus:

ActiveCell.Copy

Workbooks.Open "D:\WKS\2_Aktuelles Jahr\Rapporte\5_Rapport SG, ZH, AI.xlsx"

Range("BQ11:BW11").PasteSpecial

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1

ActiveWorkbook.Close savechanges:=False

ActiveCell.Offset(1, 0).Select

End Sub

Weisst jemand, wie ich das Programmieren kann, dass "eine Leere Zelle" den Code beendet/er nicht unendlich druckt?

Danke im Voraus für eure Antworten!

Keine Ahnung ich bitte um Hilfe