Frage: Wie verbessere ich meinen VBA-Code?

Live-Forum - Die aktuellen Beiträge

Datum

Titel

19.01.2025 17:47:04

pdf in Userform

19.01.2025 15:49:00

UserFormNeu Daten in intelligente Tabelle speichern......

19.01.2025 14:23:47

falsche Dropdownanzeige

19.01.2025 14:18:53

Warum wird Datei nicht aktiviert ?

Keine passende Antwort im Forumarchiv gefunden?

Stelle deine Frage im Live-Forum

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Wie verbessere ich meinen VBA-Code?

« Previous
Next »

Treffer 1 bis 20 von insgesamt 74 Treffern

Brauche eine Antwort . Dringend !

folgenden code habe ich.

Private Sub Workbook_Open()
Dim rFind As Range, SuTxt As Variant
SuTxt = "----------"
If SuTxt = "" Then Exit Sub
Set rFind = Columns(9).Find(What:=SuTxt, After:=[i1], LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)
If rFind Is Nothing Then Exit Sub
If rFind.Offset(0, -1) = Empty Then Exit Sub Else msgbox rFind.Offset(0, 1), vbInformation, "Information"

End...

Relevante Fragen

Wie zeige ich mehrere Zellinhalte in MsgBox an?

Wie verbessere ich meinen VBA-Code?

Kann die Zelle rechts leer sein?

Kategorisierung

Programmierung

Tags

#msgbox #programmierung #vba

VBA Alle Zeilen löschen, die ".com" enthalten

Hallo zusammen,

ich habe bereits überall gesucht und bin einfach nicht fündig geworden. Ich habe eine Excel-Liste mit Webseiten (zB. krone.com, leben.at, etc.) und würde gerne alle Zeilen, die das Wortschnipsel ".com" enthalten, löschen. Ich habe folgenden Code, der nur funktioniert, wenn ich eine konkrete Seite zB "krone.com" eingebe. Sobald ich aber "*" den Stern als Platzhalter einsetze, damit er alle Zeilen, die .com enthalten löscht, tut er es nicht.

Sub com()
Dim i As...

Relevante Fragen

Wie lösche ich Zeilen mit '.com'? Wie nutze ich Platzhalter in VBA?

Wie verbessere ich meinen VBA-Code?

Kategorisierung

Programmierung

Tags

#platzhalter #vba #zeilen löschen

VBA Autofilter mehrere Kriterien

Liebe VBA-Experten,

ich komme bei einer VBA-Programmierung nicht weiter und finde nicht wo der Fehler liegt. Ich habe eine Datei. Auf einem Tabellenblatt (sagen wir Tabelle1) ist ein CommandButton mit untenstehendem Code. Der Code soll das Tabellenblatt "III. Activities legal areas" aktivieren und dann einen Autofilter mit mehreren Kriterien setzen. Die Kriterien kommen aus den Zellen D5:D10. Gefiltert werden sollen die Daten ab Zeile 13 (in Zelle A13 steht der erste Wert; es gibt kein...

Relevante Fragen

Wie setze ich mehrere Autofilter-Kriterien? Warum gibt es Fehlermeldung 1004?

Wie verbessere ich meinen VBA-Code?

Kategorisierung

Programmierung

Tags

#autofilter #fehlerbehebung #vba

Sperren von Zellen bei Bedingung

Hallo zusammen,
Unten stehend mein Code(vermultich nicht optimal gelöst)
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("D6") = "Freies Teil" And IsEmpty(Range("D5")) = False And IsEmpty(Range("D6:G6")) = False And IsEmpty(Range("D7")) = False And IsEmpty(Range("D8:G8")) = False And IsEmpty(Range("D9")) = False And IsEmpty(Range("D10")) = False Then
ActiveSheet.Unprotect "Passwort"
Range("D6:G6").Locked = True
Range("D8:G8").Locked = True
Cells(5, 4).Lo...

Relevante Fragen

Wie kann ich Zellen nach Bedingung sperren? Warum sperren sich Zellen unerwartet?

Wie verbessere ich meinen VBA-Code?

Kategorisierung

Bedingte Anpassung

Tags

#bedingtesperrung #vbahilfe #zellensperre

Worksheet_Change-Event Bug bei Dropdown

Hallo Zusammen,
ich habe ein Makro geschrieben, welches bei der Änderung einer Zelle in der jeweiligen Zeile den Verfasser und das Datum einträgt. Das ganze funktioniert soweit auch alles wie gewünscht. Wenn ich nun aber einen Doppelklick in eine Zelle mache, in welcher eine Dropdown hinterlegt ist (per Datenüberprüfung) und dann auf die Auswahl des Dropdown-Menüs klicke, bekomme ich den Laufzeitfehler 50290 "Anwendungs- oder objektdefinierter Fehler".
Hat jemand eine Idee wie man diese...

Relevante Fragen

Wie umgehe ich Laufzeitfehler 50290? Wie kann ich Doppelklick bei Dropdown verhindern?

Wie verbessere ich meinen VBA-Code?

Kategorisierung

Benutzeranpassung

Tags

#dropdown #laufzeitfehler #vba

Kopieren in anderes Workbook

Hallo zusammen,
ich will mittels VBA Daten von einem Workbook in ein anderes kopieren. So sieht das bisher aus:
Worksheets("sheet1").Range("A2:AA2").Select Worksheets("sheet1").Range(Selection, Selection.End(xlDown)).Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ ':=False, Transpose:=False Workbooks("Master.xlsx").Worksheets("Tabelle1").Cells(2, 1).Paste Application.CutCopyMode = False Hier bleibt er immer hängen:
Workbooks(...

Relevante Fragen

Warum funktioniert das Paste nicht?

Wie verbessere ich meinen VBA-Code?

Was ist der Unterschied zwischen Select und PasteSpecial?

Kategorisierung

Programmierung

Tags

#codehilfe #fehlerbehebung #vba

Abgleich von 2 Spalten

13.11.2021 17:01:21

Thread-ID: 1856550

6 Beiträge

Hallo zusammen,
ich bin nahezu neu hier. Ein Kollege hat mir schon einmal sehr geholfen. Das meiste, was ich über VBA weiß, habe ich hier erfahren. Dafür möchte ich mich hier allgemein auch (noch) mal sehr herzlich bedanken.
Ich habe nun mit Eurer aktiven und passiven Hilfe eine VBA Prozedur erstellt, welche Artikelnamen in 2 Spalten in A und in D vergleicht. In Spalte C kommt als Ergebnis der Prozedur "neu" oder "vorhanden" heraus.
In der Tabelle werden nur 9 in Spalte A mit 5 Daten...

Relevante Fragen

Wie verbessere ich meinen VBA-Code?

Spielt die Reihenfolge der Schleifen eine Rolle? Tipps zum Arbeiten mit Arrays?

Kategorisierung

Programmierung

Tags

#abgleich #arrays #optimierung

Werte >0 in anderes Tabellenblatt kopier

Hallo zusammen,
ich suche einen Code, der meine Spalte B durchsucht und jedes Mal wenn ein Wert >0 ist, soll in einem anderen Tabellenblatt der Eintrag aus Spalte A und B dieser Zeile rüber kopiert werden. Bsp: In Spalte A1 steht "Test", in Spalte B1 steht 17, dann soll im 2. Tabellenblatte in Spalte A Test und in Spalte B 17 stehen.
Ziel ist es in Tabellenblatt 2 die gleichen Inhalte wie in Tabellenblatt 1 stehen zu haben, nur eben ohne die Zeilen, wo der Wert 0 ist.
Mein Ansatz...

Relevante Fragen

Wie filtere ich Werte >0 aus? Wie kopiere ich Daten zwischen Tabellenblättern?

Wie verbessere ich meinen VBA-Code?

Kategorisierung

Datenbearbeitung

Tags

#datenfilter #datenübertragung #vba

Case ohne Select Case

Bei folgenden Code bekomme ich die Fehlermeldung "Case ohne Select Case". Wo liegt mein Problem? Ich möchte halt jedes Mal, wenn der Case den Wert "2" annimmt, dass ein weiteres Kriterium dahingehend untersucht wird was der entsprechende Wert für "a", "b" oder "c" ist
If InStr(WS_Source.Cells(PN_out_row, 2).Value, Appl) = 0 Then
MsgBox ("Outgoing Application Code does not fit with Outgoing P/N")
Else
Select Case a
Case 1
If InStr(WS_Sub1.Cells(PN_Sub1_row, 2).Value, Appl)...

Relevante Fragen

Warum bekomme ich 'Case ohne Select Case'?

Wie verbessere ich meinen VBA-Code?

Was fehlt in meinen If-Anweisungen?

Kategorisierung

Programmierung

Tags

#fehlermeldung #syntax #vba

Spalte kopieren, wenn Wert nicht 0

Hallo,
Ich komme bei dem Problem leider nicht weiter.
ich würde per Makro gerne folgendes Problem lösen:
In Tabelle1 soll die Zeile 409 durchsucht werden, beginnend bei Spalte L. Falls in der jeweiligen Zelle nicht 0 steht, soll die gesamte Spalte (oder Zeile 1 bis 413) in das Sheet Tabelle2 kopiert werden, beginnend bei H.
Die Ausgangstabelle (Tabelle1) ist dabei dynamisch hinsichtlich Spaltenanzahl. Die Zeilenanzahl ist mit 413 immer gleich.
Runtergebrochen habe ich al...

Relevante Fragen

Wie kopiere ich Spalten bei nicht 0-Werten?

Wie verbessere ich meinen VBA-Code?

Warum funktioniert mein Makro nicht korrekt?

Kategorisierung

Programmierung

Tags

#datenkopie #makro #vba

Methode Range für Objekt global fehlgesc

Hallo zusammen,
ich hoffe die Frage ist nicht allzu doof... Ich bin noch ein ziemlicher VBA-Neuling.
Folgendes Problem:
Ich möchte dass sich in meinem Tabellenblatt "Y" genauso viele Zeilen öffnen wie ich Items in Tabellenblatt "X" defniert habe...
Beim Ausführen des Makros bekomme ich allerdings immer o.a. Fehlermeldung
Hierzu habe ich mir folgenden Code "gebastelt"
Dim num_item_types As Long
num_item_types = ThisWorkbook.Worksheets("Container").Cells(2, 3).Valu...

Relevante Fragen

Wie kann ich Zeilen dynamisch hinzufügen? Was bedeutet die Fehlermeldung?

Wie verbessere ich meinen VBA-Code?

Kategorisierung

Programmierung

Tags

#code #fehler #vba

Hallo Zusammen,
an sich tun die Makros im angehängten Excel-Workbook genau das, was ich haben möchte, aber ich bin mit ein Teil der Programmierung nicht zufrieden. Das Datenblatt arbeitet zusammen mit einem Barcode-Scanner, die bestimmte Zellen mit Nummern füllt. Kurze Bedienanweisung: Klicke auf der Produktname, der Cursor springt (abhängig vom Monatsnummer) zur ersten Eingabe-Zelle, 8 x Barcode - oder 8x etwas eingeben und mit "enter" abschliessen - , cursor springt zur Ruhe-Position....

Relevante Fragen

Wie verbessere ich meinen VBA-Code?

Wie vermeide ich Code-Wiederholungen? Wie speichere ich Variablen global?

Kategorisierung

Programmierung

Tags

#codeoptimierung #makros #vbaprogrammierung

Inhalt einer Zelle löschen, wenn "Absage" in einer anderen Zelle steht

Hallo,
habe eine Tabelle, in der ich in der Spalte R die Zu und Absagen verwalte.
Wenn nun z.B. in der Zelle R2 "Absage" steht (wird über ein Dropdown gefüllt) soll der Text, der in S2 steht gelöscht werden.
Ich habe da nun einen Code gemacht, der das für die Zelle R2 prima macht. Aber ich brauche das ja für alle Zeilen im Tabellenblatt:
Private Sub Worksheet_Change(ByVal Target As Range) If (Target.Row = 2) And (Target.Column = 18) Then If Target = "Absage" Then Cells(2, 19...

Relevante Fragen

Wie lösche ich Zelleninhalte bei Absage? Wie setze ich eine Schleife in VBA ein?

Wie verbessere ich meinen VBA-Code?

Kategorisierung

Automatisierung

Tags

#automatisierung #schleife #vba

Daten von UF übertragen

29.08.2018 16:49:59

Thread-ID: 1642260

5 Beiträge

Hallo zusammen
Ich möchte grne Daten von einer UF auf ein Sheet übertragen, welches aber "Hide" ist. Das Sheet soll auch nicht während der Prozedur wieder auf visible gemacht werden müssen. Zur Zeit habe ich folgendes und das funktioniert aber nur, wenn das Sheet visible ist.
Ziel: Daten von Eingaben in einer UF nach Klick auf "OK" in einem versteckten Sheet archivieren.
Hat jemand eine Idee?
PS: Vorschläge zu einem schöneren Code sind ebenfalls willkommen. Stehe heute irgen...

Relevante Fragen

Wie Daten in verstecktem Blatt speichern? Wie Select vermeiden beim Schreiben?

Wie verbessere ich meinen VBA-Code?

Kategorisierung

Programmierung

Tags

#datenübertragung #programmierung #vba

Worksheet_SelectionChange: verschiedene Makros in

Hallo geehrte VBA-Gemeinde,
ich würde gerne in einem Dokument in mehreren definierten Zellen zwei unterschiedliche Makros aufrufen.
Bei Klick auf B13 soll das Makro add_line aufgerufen werden,
bei Klick auf die Zellen H17 bis H23 das Makro del_line.
Ich habe schon verschiedene Lösungsansätze getestet, aber nichts davin will funktionieren. Wie in etwa dieser hier:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim ber As Range Dim ber2 As Range Dim ber3 As...

Relevante Fragen

Wie kann ich Makros in Zellen unterscheiden? Wie rufe ich mehrere Makros in VBA auf?

Wie verbessere ich meinen VBA-Code?

Kategorisierung

Programmierung

Tags

#makros #programmierung #vba

Listbox von letzter benutzter bis Zeile 6 füllen

Guten Morgen zusammen,
ich bin Olli und beziehe mich seit langem immer mal wieder auf eure Seite bei auftauchenden Problemen. Nun habe ich mich angemeldet, weil ich zurzeit absolut nicht weiter weiß.
In Excel habe ich gute Kenntnisse, meine VBA Kenntnisse sind allerdings bescheiden. Ich Programmiere viel, allerdings das meiste aus Schnipseln aus diesem oder anderen Foren zusammengebastelt. In der Regel klappt das auch gut (wobei der Code dann definitiv Potential zur Verbesserung bie...

Relevante Fragen

Wie kann ich den Listbox-Bereich festlegen? Warum werden Leerzeilen in der Listbox angezeigt?

Wie verbessere ich meinen VBA-Code?

Kategorisierung

Benutzeranpassung

Tags

#listbox #userform #vba

Tabelle mit CommandButton automatisch Sperren

Guten Tag zusammen,
meine Frage ist folgende.
In der angehängten Datei möchte ich das Immer alles gesperrt ist und niemand etwas verändern kann.
Jedoch Drückt man auf Auftrag absenden, möchte ich gerne das, das Blatt Entsperrt wird und bei erfolgreicher automatisch Eingabe der Textboxen in die Zellen es wieder gesperrt wird.
Ich Hoffe es kann mir jemand helfen bin noch ein Neuling auf dem VBA gebiet und das ist so mein erstes "Projekt"
Sofern mir jemand noch bei dem aktu...

Relevante Fragen

Wie sperre ich eine Tabelle automatisch? Wie entsperre ich das Blatt nach Eingabe?

Wie verbessere ich meinen VBA-Code?

Kategorisierung

Benutzeranpassung

Tags

#benutzeroberfläche #sperren #vba

Guten Abend,
ich wollt mal in die Runde fragen ob man den Code schlanker machen kann? Sub StartLöschen() Dim z As Integer For z = 13 To 51 Sheets("1").Range(Cells(z, 10), Cells(z, 11)) = "" Sheets("1").Range(Cells(z, 14), Cells(z, 15)) = "" Sheets("1").Range(Cells(z, 18), Cells(z, 19)) = "" Sheets("1").Range(Cells(z, 22), Cells(z, 23)) = "" Sheets("1").Range(Cells(z, 10), Cells(z, 12)).Interior.Pattern = xlNone Sheets("1").Range(Cells(z, 14), Cells(z, 16)).Interior.Pattern = xlNone Shee...

Relevante Fragen

Wie verbessere ich meinen VBA-Code?

Welche Regeln gelten für For Next Schleifen? Wie optimiere ich Schleifen in VBA?

Kategorisierung

Programmierung

Tags

#optimierung #programmierung #vba

Excel Stoppt (hängt) ohne Fehlermeldung

Hallo,
mein Problem liegt darin, wenn ich die Userform aufrufe und ein Makro ausführen möchte, hängt Excel und lässt sich nur durch Alt + F4 beenden.
Vielleicht kann mir jemand weiterhelfen, was Excel nicht mag.
Es kommt auch keine Fehlermeldung ....
Userform: Private Sub cmd_druck_frueh_Click() Call SubDrucken("frueh") Me.Hide End Sub Private Sub cmd_druck_mittag_Click() Call SubDrucken("mittag") Me.Hide End Sub usw... Modul Drucken:
Sub SubDrucken(Zeit) Application.S...

Relevante Fragen

Warum hängt die Userform beim Drucken?

Wie verbessere ich meinen VBA-Code?

Warum friert die Druckvorschau ein?

Kategorisierung

Benutzung

Tags

#benutzerform #drucken #vba

Vorschläge für besseren Code

Hallo Leute,
ich habe eine UF mit einigen Comboboxen.
Es gibt auf einem Panel, immer 3 zusammen gehörende Comboboxen.
(Insgesamt 3x7, es werden also insgesamt 21 befüllt)
Die erste beinhaltet Spaltenüberschriften.
Die anderen beiden, erhalten Werte, entsprechend der Überschrift, also dem Inhalt der ersten Combobox.
Der Code den ich verwende, funktioniert.
Nur glaube ich, gibt es da was besseres und wollte euch fragen,
wie ihr das ganze machen würdet.
D...

Relevante Fragen

Wie verbessere ich meinen VBA-Code?

Was ist guter Code in VBA? Wie kann ich Sortierung beschleunigen?

Kategorisierung

Optimierung

Tags

#codequalität #performanceoptimierung #vba

« Previous
Next »

Treffer 1 bis 20 von insgesamt 74 Treffern

Entdecke mehr

Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten

Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen