Kategorie: Programmierprobleme | HERBERS Excel Forum

Live-Forum - Die aktuellen Beiträge

Datum

Titel

19.01.2025 08:53:15

Excel mit Stifteingabe

19.01.2025 02:42:20

Fahrernummer automatisch erstellen - Lösung für Alexwin

19.01.2025 02:02:12

Zelle auslesen und dann per Button ein Arbeitsblatt öffnen

18.01.2025 21:48:41

Formel für Summierung mit Textausgabe

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

Kategorie Programmierprobleme

« Previous
Next »

Treffer 1 bis 20 von insgesamt 137 Treffern

VBA - Speichern BeforeClose schlägt fehl

Mahlzeit,
ich habe folgendes Problem. WEnn der User Excel mittels Schließen schließt, dann wird dies bei Änderung standardmäßig abgefangen und gefragt ob gespeichert werden soll. Da bei mir aber nur bestimmte Dateitypen zugelassen werden/sollen habe ich dieses "Abfangen" durch meinen Code ersetzt.
Problem dabei ist, dass nicht gespeichert wird! Wenn ich allerdings manuell mittels "Speichern" bzw. "Speichern Unter" speichere klappt es.
Hier einmal mein Code:
Private Sub Work...

Relevante Fragen

Warum funktioniert Speichern im BeforeClose nicht? Wie Fehler im VBA Code identifizieren? Was tun, wenn Datei nicht gespeichert wird?

Tags

#fragen #speichern #vba

Combobox als Listenfilter

Hallo ihr VBA Fachleute
Allso ich möchte über den Buttom "Bericht Erstellen" erreichen
das der cboKw als auswahl Filter für die Listbox1 dient und sich
die Daten erst danach in die Listbox1 Füllen und mit "Report Erstellen
sollen die zusammengefassten Daten in ein sich neu zu erstellendes
Tabellenblatt übertragen werden, sodas das Blatt zum Beispiel
den Namen"Report 2017_52" erhält?
Ich habe schon diverse Code vorbereitet aber ich finde den zusammenhang nicht?

Relevante Fragen

Wie filtere ich Listbox mit Combobox? Wie übertrage ich Daten ins neue Blatt? Warum werden nur Formate ohne Daten kopiert?

Tags

#combobox #datenübertragung #listbox

Zellenbereich von ws zu ws transferieren

12.12.2017 20:26:06

Thread-ID: 1596847

2 Beiträge

Hallo, ein letzter Versuch, bevor ich meinen Lapi an die Wand werfe :-D.
Ich habe euch nun eine geeignete Beispieldatei erstellt.
Dort sollte alles explizit erklärt sein .Müsste so für manche hier machbar sein. Es fehlt vermutlich nur ein Code. Schönen Abend, Gruß Daniel
https://www.herber.de/bbs/user/118297.xlsm

Relevante Fragen

Wie kopiere ich Zellen zwischen Arbeitsblättern? Was ist ein Wochentag in VBA? Wie lösche ich verbundene Zellen?

Tags

#datenmanagement #vba #zellenoperationen

Gruppierungen aufheben einblenden VBA

Moit folgendem Code ist es möglich, Alle Gruppierungen einzublenden:
Private Sub CommandButton1_Click() ' Alle Gruppierungen aufheben ActiveSheet.Outline.ShowLevels 2 End Sub
Ich habe bestimmt 10 Gruppierungen, die jeweils 10 Zeilen bündeln. Gibt es eine Möglichkeit, dass man eine bestimmte Gruppierung öffnen kann, eine andere ausblenden, eine weitere wieder einblenden ? Also Angabe von Zeilennummern zb?

Relevante Fragen

Wie Gruppierungen gezielt ein- und ausblenden? Kann ich bestimmte Zeilen gruppieren? Wie programmiere ich die Gruppierung in VBA?

Tags

#gruppierung #programmierung #vba

.xlsx per Batch öffnen, Name der Datei variabel...

Hallo zusammen,
das passt zwar nur bedingt hier ins Forum aber vielleicht
weiß der ein oder andere ja kurz was ich tun muss:
Pfad ist Fix
Dateiname per Eingabe
Öffnen
@echo off
SET /P Datei=Bitte Dateinamen eingeben...:
SET PATH=C:\PFAD\PFAD
START "PATH\%Datei%\*.xlsx*"
exit
Geht so nicht! pls help
Danke
Nigel

Relevante Fragen

Wie öffne ich .xlsx Dateien per Batch? Wie gebe ich einen Dateinamen ein? Warum funktioniert mein Batch-Befehl nicht?

Tags

#batch #datei #hilfe

Mit For-Schleife bis letzte leere Zeile und Spalte

Hallo Zusammen,
ich habe folgendes Problem, bzw. folgende Frage:
Ich habe eine ganz einfach for-Schleife bei der ab einer gewissen Zeile bis zum Ende gezählt wird. Also bis dahin, wo kein Eintrag mehr ist.
Hier mal mein Makro für die normale for-Schleife:
Dim LetzteZeile As Long
Dim i As Integer
LetzteZeile = Cells(Rows.Count, 2).End(xlUp).Row
For i = 13 To LetzteZeile
If Tabelle1.Cells(i, 2).Value = "Hallo" And Tabelle1.Cells(i, 1).Value "" Then
Tabelle1....

Relevante Fragen

Wie zähle ich bis zur letzten Zeile? Wie implementiere ich eine Variable für Spalten? Wie baue ich neue Variablen in Schleifen ein?

Tags

#forschleifen #makro #variable

emailadresse in abhängigkeit eine Zelle

Hallo,
hab mal wieder ein Problemchen. Ich habe ein Makro, welches eine mail als Fertigmeldung an eine feste mailadresse schickt. Hierzu wird in einer Zeile ein Feld markiert und dann per buttom die mail verschickt. So weit so gut. Nun möchte ich aber die mail in Abhängigkeit des Eintrages in einem benachbartes Feld (Nummer ist markiert) an verschiedene Adressaten schicken. Bsp.:
81515 Mü sende an: max.mueller@wurst.de
oder aber:
81515 schu sende an: dirk.schulze@wurst.de

Relevante Fragen

Wie sende ich Mails abhängig von Zelleninhalten? Wie kann ich eine Variable für CC festlegen? Wie aktiviere ich Microsoft Forms 2.0?

Tags

#cc-variable #mailversand #makrofehler

Alle Dateien in einen Ordner

Hallo liebe Excel-Freunde,
Ich möchte alle Dateien im Ordner "Beispiel", auch Dateien in jedem Unterordner von "Beispiel", in den Ordner "Hierher" kopieren.
Kann mir da bitte jemand einen Code geben.
Vielen lieben Dank und einen schönen Sonntag Abend noch
Gruß Bernd

Relevante Fragen

Wie kopiere ich Dateien aus Unterordnern? Wo Code in der Mappe speichern? Was ist Robocopy und wie nutze ich es?

Tags

#dateimanagement #robocopy #vba

Klassenprogrammierung

Hallo zusammen,
ich habe TextBoxen in einem Klassenmodul zusammengefasst.
Bei einem normalen Modul könnte ich das Enter- oder Exit-Ereignis nutzen, um den hinterlegten Code auszuführen.
Beim Klassenmodul kann ich das ohne weiteres nicht.
Wie muss ich es anstellen, dass ich auch hier entweder beim Betreten bzw.Verlassen des Steuerelements reagieren kann?
Gruß
Siegfried

Relevante Fragen

Wie reagiere ich auf Steuerelement-Fokusänderungen? Kann ich Ereignisse in Klassenmodulen verwenden? Welche Workarounds für TextBoxen gibt es?

Tags

#dll #focus #klassenmodul

Hallo und guten Morgen,
in meiner Tabelle steht oben 365 Zellen, für jeden Tag des Jahres eine. Ich möchte, dass beim Öffnen der Datei das aktuelle Datum "angesteuert" wird. Dafür habe ich folgendes Makro:
Dim i As Long
For i = 1 To 365
If Sheets("Krankentage").Cells(5, i + 4) = Date Then Sheets("Krankentage").Cells(5, i + 4).Select
Next
Das richtige Datum wird zwar gefunden aber nicht gleicht angezeigt. Ich möchte, dass die entsprechende Zelle angezeigt wird und...

Relevante Fragen

Wie springe ich zur aktuellen Zelle? Wie vermeide ich Scrollen beim Zellenwechsel? Wie kann ich Zellen mit Makros ansteuern?

Tags

#makro #navigation #zellen

Hallo...
Ich habe eine Tabelle, die nach bestimmtem Datum nicht mehr funktionieren darf.
in Spalten k1:k31 aller Arbeitsblätter sind Datum Vorhanden.
Ich habe es mit folgendem Code versucht. Es klappt leider nicht.
<pre>Sub Datumchek()
If DateValue(ActiveSheet.Range("K1:K31").Value) > 43101(sprich 1.1.2018) Then
ActiveSheet.Range("K1:K31") = "die Tabelle darf nicht mehr benutzt werden"
End If
End Sub</pre>
Ich kann kein VBA. Diesen Code ha...

Relevante Fragen

Wie prüfe ich Daten in mehreren Zellen? Wie platziere ich den Code in einem Modul? Was bedeutet 'Typen unverträglich' Fehler?

Tags

#datenprüfung #datum #vba

Mail aus Excel öffnen/schreiben

Hallo,
bis vor kurzem hatte ich noch Win7 und Office10.
Jetzt habe ich Win10 und Office16.
Folgender Code läuft jetzt nicht mehr: Sub send_mail() Dim START As String START = 222 Set objOutlook = CreateObject("Outlook.Application") Set objMail = objOutlook.CreateItem(0) With objMail .To = Sheets("Mail").Range("C" & START) .CC = Sheets("Mail").Range("C" & START + 2) .Subject = Sheets("Mail").Range("C" & START + 4) .Body = Sheets("Mail").Range("C" & START + 6) &...

Relevante Fragen

Warum funktioniert der Code nach Update nicht mehr? Wie gebe ich den Typ bei Variablen an? Sind VBA-Programme abwärtskompatibel?

Tags

#kompatibilität #variablen #vba

Bei Klick CommandButton filtern nach Liste

Hallo zusammen,
ich möchte über einen Klick auf den CommandButton immer den nächsten Wert in einer Filterung anzeigen lassen. Ab der Filterung 30 überspringt dieser einige Werte und filtert auf 711. Es gibt auch eine Liste in einem anderen Tabellenblatt um dem Array zu füllen. Könnt ihr mir helfen?

Option Explicit
Sub filtern()
Dim wks As Worksheet
Set wks = ActiveSheet
With wks
If .AutoFilterMode = True Then GoTo weiter:
End With
Dim g As Integer

Relevante Fragen

Wie filtere ich Werte in der Schleife? Warum wird das Array neu gefüllt? Wie setze ich Filterkriterien richtig?

Tags

#array #filter #vba

Aktionen für mehrere Checkboxen ausführen

Hallo zusammen
ich probiere viel aus, lerne immer weiter dazu, aber Probleme bleiben natürlich trotzdem immer mal. Ich habe aber auch gelernt, dieses Forum ist für mich die Schatztruhe des unergründlichen Wissens...
Wie folgt:
Ich habe an die 100 ActiveX-Checkboxen in meinem Blatt. Jeder Checkbox soll bei TRUE eine eigene Aktion zugewiesen werden. Es soll, abhängig von der Checkboxnummer, also die 5 für "Checkbox5" eine Zeile auf einem anderen Blatt ausgeblendet werden und der H...

Relevante Fragen

Warum wird Togglebutton auf False gesetzt? Kann ich Checkboxnummer aus Namen auslesen? Wie frage ich die progID-Eigenschaft ab?

Tags

#abfragen #programmierung #togglebuttons

Letzte Zeile mit Bedingung löschen

Hallo Forum
Bastele immer noch an meiner Auftragsverwaltung herum. Folgendes Problem hat sich jetzt noch ergeben. Kurze Erklärung: In Tb Einträge lege ich die komplett-Aufträge an. Für den Produktionsstatus brauche ich daraus die ganze Zeile, für die Einträge in die Laufkarte nur bestimmte Einträge. Wenn jetzt in der Letzten Zeile eine Fehleingabe getätigt worden ist und diese gebucht worden ist, möchte ich, dass die letzte Buchung (Letzte Zeile) aus Tb Produktionsstatus und Eintr-Laufk...

Relevante Fragen

Wie lösche ich die letzte Zeile bedingt? Wie prüfe ich Bestellnummern beim Löschen? Wie füge ich eine Sicherheitsabfrage ein?

Tags

#bedingtelöschung #bestellnummernprüfung #sicherheitsabfrage

VBA: Suche über Userforn mit 2 Kriterien pro Zeile

Hallo,
im Moment habe ich ein VBA Script, welches per Userform und Combobox meine Excel Tabelle nach einer bestimmten Nummer in Spalte H durchsucht und dann das aktuelle Datum in eine andere Spalte (E) schreibt. (Danke noch einmal an Harry für seine Hilfe!)
Besagte Nummer kann jedoch öfter vorkommen und es müsste zusätzlich in einer weiteren Spalte (D) gesucht werden um die richtige Zeile zu finden. (Am liebsten auch über eine ComboBox).
Leider komme ich hier nicht wirklich weit...

Relevante Fragen

Wie suche ich mit zwei Kriterien in VBA? Kann ich mehrere ComboBoxen in der Userform verwenden? Wie finde ich eine Zeile mit VBA?

Tags

#suchen #userform #vba

vba für excel 2003 und 2016

Hallo Forum
Dieses Excel-file mit VBA-Makro lief damals unter Excel 2010 problemlos. dann kam der Wechsel zu 2013/16 , da funktioniert das VBA Makros immer problemlos. Wenn man mit dem Excel 2010 wieder öffnen und das VBA Makro starten will, kommt eine Fehlermeldung : Fehler beim Kompilieren: projekt oder bibliothek nicht gefunden "m_objWDApp As Word.Application"...
kann mir jemand helfen, dass das VBA-Makro unter beiden Versionen funktioniert 2010 und 2013(2016)?
besten dan...

Relevante Fragen

Wie aktiviere ich late binding in VBA? Warum funktioniert das Makro nicht in Office 2010? Wie entferne ich Verweise im VBA-Editor?

Tags

#makros #office-kompatibilität #vba

nochmalige Codeänderung

Hallo Forum
Nachfolgender Code funktioniert eigentlich wunderbar, nochmals Danke an Gerd und Klaus. Jetzt habe ich leider festgestellt das ich zusätzlich noch ein Kriterium für die Spalte A brauche und zwar: Wenn z.B. in Spalte A = "Haus" steht. Hab es mehrmals probiert mit eben einer if Anweisung, ich kriege es einfach nicht hin.
Für Eure Hilfe und Mühe schon mal ein Danke schön
Gruß, Guesa
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column 7 Then Exit...

Relevante Fragen

Wie integriere ich eine Bedingung in VBA? Wie kopiere ich bedingt Werte in Excel? Was bedeutet Cells(iRow, 1).Value = 'Haus'?

Tags

#änderungen #bedingungen #vba

VBA: Spalten nach Wert suchen

Hallo zusammen,
benötige mal Hilfe.
Und zwar geht es um folgendes: Suche in Tabelle "Top" in den Spalten B,D,F,H,J,L nach dem am häufigsten vorkommen Wert, dann den Zweithäufigsten und den Dritthäufigsten. Alles als VBA-Code.
Komme leider nicht weiter, habe schon mehrere Formelversuche gemacht z.B. mit KGrösste usw.
Lieben Gruß
Bernd

Relevante Fragen

Wie finde ich häufigste Werte in Spalten? Kann ich Werte in ein Array lesen? Wie speichere ich Ergebnisse in Zelle N2?

Tags

#array #häufigkeit #werte

Deklaration von Combobox

Hallo Gemeinde,
Ich habe im Codebereich eines Worksheets folgenden Code, der auch funktioniert. Beim Anklicken der Combobox auf dem Worksheet füllt sich die Auswahlliste und der ausgewählte Eintrag wird nach Verlassen der Box angezeigt:
Private Sub cmbAzArtObj_DropButtonClick() Dim wksaz As Worksheet Set wksaz = Worksheets("Aufmaßzettel") With cmbAzArtObj .List = Array("", "Autohaus", "Feuerwehr", "Garagenhof", "Gartengrundstück", _ "Grünfläche", "Industriegrundstück", "Kindergarten...

Relevante Fragen

Wie deklariere ich eine ComboBox korrekt? Wie verschiebe ich Code in ein Modul? Warum tritt der Fehler 'Variable nicht definiert' auf?

Tags

#combobox #fehlermeldung #vba

« Previous
Next »

Treffer 1 bis 20 von insgesamt 137 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