VBA – die besten Beiträge

Hey :) kann mir da jemand weiterhelfen. ich weiß nicht ganz wie ich es schaffe, dass das Komma richtig berechnet wird und nicht nur so angezeigt wird. bin über jede hilfe dankbar. 1 stunde hab ich noch zeit bevor ich die hausübung hochladen muss x_x nächstes mal schieb ichs lieber nicht die ganzen ferien auf

Option Explicit Dim Zahl1 As Integer Dim Zahl2 As Integer Dim Operator As String Dim zähler As Long

Private Sub cb0_Click() Me.tbanzeige = Me.tbanzeige & "0" End Sub

Private Sub cb1_Click() Me.tbanzeige = Me.tbanzeige & "1" End Sub

Private Sub cb2_Click() Me.tbanzeige = Me.tbanzeige & "2" End Sub

Private Sub cb3_Click() Me.tbanzeige = Me.tbanzeige & "3" End Sub

Private Sub cb4_Click() Me.tbanzeige = Me.tbanzeige & "4" End Sub

Private Sub cb5_Click() Me.tbanzeige = Me.tbanzeige & "5" End Sub

Private Sub cb6_Click() Me.tbanzeige = Me.tbanzeige & "6" End Sub

Private Sub cb7_Click() Me.tbanzeige = Me.tbanzeige & "7" End Sub

Private Sub cb8_Click() Me.tbanzeige = Me.tbanzeige & "8" End Sub

Private Sub cb9_Click() Me.tbanzeige = Me.tbanzeige & "9" End Sub

Private Sub cbdurch_Click() Zahl1 = Me.tbanzeige.Text Operator = "/" Me.tbanzeige.Text = "" End Sub

Private Sub cbend_Click() End End Sub

Private Sub cbhae_Click() Me.tbanzeige = Me.tbanzeige & "Gib doch endlich eine Rechnung ein" End Sub

Private Sub cbist_Click() Zahl2 = Me.tbanzeige.Text If Operator = "+" Then Me.tbanzeige.Text = Zahl1 + Zahl2 ElseIf Operator = "-" Then Me.tbanzeige.Text = Zahl1 - Zahl2 ElseIf Operator = "*" Then Me.tbanzeige.Text = Zahl1 * Zahl2 ElseIf Operator = "/" Then Me.tbanzeige.Text = Zahl1 / Zahl2 End If

Operator = "="

End Sub

Private Sub cblöschen_Click() Me.cblöschen = "" End Sub

Private Sub L_Text_Click()

End Sub

Private Sub cbkomma_Click() Me.tbanzeige = Me.tbanzeige & "," End Sub

Private Sub cbloeschen_Click() Me.tbanzeige.Text = ""

End Sub

Private Sub cbmal_Click() Zahl1 = Me.tbanzeige.Text Operator = "*" Me.tbanzeige.Text = "" End Sub

Private Sub cbminus_Click() Zahl1 = Me.tbanzeige.Text Operator = "-" Me.tbanzeige.Text = "" End Sub

Private Sub cbplus_Click() Zahl1 = Me.tbanzeige.Text Operator = "+" Me.tbanzeige.Text = "" End Sub

Private Sub CommandButton1_Click() Userform1.Show End Sub End Sub

Private Sub CommandButton2_Click()

End Sub

Private Sub cbPrimzahl_Click() Zahl1 = Me.tbanzeige.Text Me.tbanzeige = "ist eine Primzahl"

For zähler = 2 To Sqr(Abs(Zahl1)) Me.tbanzeige = "ist eine Primzahl" If Abs(Zahl1) Mod zähler = 0 Then Me.tbanzeige = "ist keine Primzahl"

Exit For End If

Next zähler

End Sub

Private Sub UserForm_Click()

End Sub

Hallo Ich habe ein Problem. Ich möchte per Makro oder vba im Excel eine andere Exceldatei öffnen. Aber so: Wenn A1= xyz (xyz ist der dateiname) dann öffne datei xyz. Das mnatürlich mit einem Button der Suchen drauf steht. Den habe ich schon erstellt.

Hallo,

da ich leider nicht alle technischen Begriffe richtig kenne und deshalb evtl. hier falsch verwende bereits vorab die Bitte um Entschuldigung.

Ich bekomme täglich eine csv Datei mit Daten aktueller, also zum heutigen Tag angestellten, Mitarbeitern. Hier steht bspsweise Personalnummer (eindeutiger Schlüssel), Nachname, Vorname,Eintrittsdatum und Austrittsdatum (Achtung: Das Austrittsdatum stimmt leider nicht immer). Zur Veranschaulichung die Datumsangaben mal weggelassen.

...

124514; Müller; Jonas;

231423; Fischer, Joachim;

423313; Haupt, Christian;

...

Sobald ein Mitarbeiter nicht mehr aktiv ist (also aus der Firma ausgetreten ist) wird der Datensatz am folgenden Tag auch nicht mehr übergeben (kommt also in der aktuellen csv Datei nichtmehr vor).

Es würde also am Folgetag die csv folgendermaßen aussehen, wenn Müller das Unternehmen verlassen hat und Newbie beispielsweise neu angefangen hat. Die Neueintritte müssen nicht abgefangen werden, wollte ich nur als Info dazusagen, dass diese dann zusätzlich in der neuen Datei vorhanden sind. Es geht ausschließlich um die Austritte, also die Mitarbeiter die in Vortagsdatei vorkamen, jetzt in tagesaktuellen aber nicht mehr vorkommen.

...

231423; Fischer, Joachim;

423313; Haupt, Christian;

599999; Newbie, Franziska;

...

Da das Austrittsdatum, welches auch mitgeliefert wird, leider teilweise nicht korrekt ist, kann ich mich nicht auf dieses Feld verlassen und irgendwie danach gehen. Auch haben beispielsweise unbefristete Mitarbeiter hier keinen Eintrag.

Ich bin nun auf der Suche nach einer Möglichkeit, wie ich die täglichen Austritte abfangen kann, also die Differenz zwischen mitgelieferten Daten der aktuellen Datei gegenüber der zum Vortag vergleichen kann. Dies sollte jeden Tag automatisiert funktioniert (durch einen Windows Dienst?)

Meine Idee war, dass ich diese beiden csv Dateien Datei H (Heute, im Beispiel oben die Datei mit Newbie) und Datei H-1 (gestern, Datei mit Müller) täglich vergleichen lassen und mir die Austritte jeweils in eine extra Datei, egal ob csv oder Excel, ausgeben lasse, sodass ich am Ende jeden Monats alle Austritte nochmal überprüfen kann.

Im obrigen Beispiel sollte dann beispielsweise der Datensatz zu Herrn Müller in eine Datei übergeben werden inkl den mitgelieferten Informationen wie Eintrittsdatum und Co. und wenn möglich dem aktuellen Tag (oder Zeitpunkt/aktueller Zeitstempel, damit nachvollzogen werden kann, wann genau dieser Mitarbeiter ausgetreten ist)

Leider fehlt mir jede technische Idee, wie ich sowas am schlausten umsetze und technisch realisiere. Hierfür wäre ich euch sehr über eure Ideen dankbar! Ich will ungern zunächst in eine komplett falsche Richtung laufen und danach bemerken, dass dies mir diesem System nicht umsetzbar ist.

Da dies wohl meine Mammutsaufgabe in meinem Praktikum sein wird, bin ich demjenigen, der sich hier die Zeit nimmt, mir bei der Lösungsfindung zu helfen, natürlich sehr, sehr dankbar! Vielen dank!

Frohes Neues liebe Community,

ich möchte in meinem VBA-Programm ein Userform direkt durch einen Befehl im Code schließen. Auf dem Userform befindet sich ein Button, welcher das Programm startet, dass am Ende eine Messagebox öffnet und nebenbei zum Schluss das Userform schließt. Sicherlich ist es ein ganz einfacher Befehl, aber ich bekomme es einfach nicht hin. Unloadme hat nicht funktioniert.

LG Patrick

Hallo zusammen,

Wie in den Screenshots zu sehen, programmiere ich aktuell eine Fahrradreservierung in Excel. Es ist soweit alles fertig, bis auf einen Code.

Folgender Code fehlt mir. Im Formular soll man die Daten der gewünschten Ausleihe eintragen (4 Felder --> Abholdatum und -zeit, sowie Rückgabedatum und - zeit). Danach soll mit Klick auf den Button "Verfügbarkeit prüfen" in der ListBox (unter den Eingabefeldern) die Fahrräder angezeigt werden, die an den angefragten Zeitpunkten noch verfügbar sind.

Die vorhandenen Datensätze (die geprüft werden müssen) befinden sich in Tabelle1.

Folgende Fahrräder gibt es allgemein: Dienstfahrrad 1 Dienstfahrrad 2 Klapprad Pedelec 1 Pedelec 2

Meine Bezeichnungen in UserForm 1: 1.TextBox hinter "Abholdatum" = Textbox4 2.TextBox hinter "Abholuhrzeit" = Textbox5 3.TextBox hinter "Rückgabedatum" = Textbox6 4.TextBox hinter "Rückgabeuhrzeit" = Textbox8 5.Button "Verfügbarkeit prüfen" = CommandButton5 6.Listbox mit verfügbaren Fahrrädern = ListBox2

Ich hoffe, mir kann da einer helfen und/oder sogar einen Code schicken.

Danke im Voraus!

Ich habe ein grosses Problem, leider kriege ich es nicht selbst gelöst. Deswegen hoffe ich hier auf Hilfe :)

Also ich habe ein grosses Tabellenblatt in Excel. Darin befinden sich dynamische Werte in den Zellen L3:L10700 und M3:M10700, die sich sekündlich oder minütlich ändern bzw. aktualisieren (ohne eigenes Zutun). Nun möchte ich die letzten 4 Werte der Zellen in Nebenzellen speichern/einfrieren. Als Beispiel soll M3 dienen.

Nehmen wir an, in M3 kommt es zu folgender Zahlenreihe: Zuerst 100, 101, 102, 103 und zuletzt steht in M3 104.

Nun möchte ich, dass in N3 der "zweitletzte" Wert, in O3 der drittletzte, in P3 der viertletzte und in Q3 der fünftletzte Wert dieser Zahlenreihe gespeichert oder eingefroren wird.

Also soll schlussendlich in N3 103, in O3 102, in P3 101 und Q3 100 stehen.

Wie gesagt, die Werte ändern sich ständig automatisch. Kriegt man das per VBA irgendwie hin? Bin leider totaler VBA-Beginner, aber um eine Antwort wäre ich sehr dankbar!

Danke und Gruss

Moin!

Meine Frage:

Wie lautet der VBA-Code, wenn ich in Spalte S (Besetzte Zellen: S9:S157) "Ja" schreibe, soll in Spalte U in der jeweiligen Zeile das aktuelle Datum automatisch eingesetzt werden und eingefriert werden ohne das es sich am nächsten Tag aktualisiert. Wenn ich eine Zelle in Spalte S die Zelle freilasse, soll in Spalte U automatisch "Nein" erscheinen.

Danke schonmal im Voraus!

Gruß

Luka

Hallo liebe Community,

ich habe folgendes Problem. In Excel wird eine Fehlerauswertung für Teile erstellt. Dabei sollen die gemessenen Fehler von einer Tabelle in eine andere übernommen werden, die dann mit diesen Werten weiterrechnet. Dies wurde bisher durch einen einfachen Verweis (='Tabellenblattx'!Cxx) erledigt. Das Problem ist nun, dass einzelne Fehler bestimmter Teiler zur Zeit nicht in die Berechnung einfließen sollen und deshalb manuell auf 0 geändert wurden. Dummerweise wurde dadurch jedoch jedes mal die Beziehung zu der Ursprungstabelle gelöscht. Wie kann man dies verhindern, da die Maßnahme ja nur zeitlich begrenzt ist, und in ein paar Tagen die Werte wie gewohnt übernommen werden sollen? Anbei ein Bild um es besser zu verstehen. Vielen Dank im Voraus.

Lg Patrick.

Hallo liebe Community,

ich habe mal wieder eine Frage zu VBA. Ich möchte jetzt, dass mein Programm, nachdem es eine Prozedur (an deren Ende zwei neue Zellen erzeugt werden) ausgeführt hat, pausiert. Die Pause soll solange sein, bis der Nutzer in diese zwei Zellen Werte eingetragen hat, und dann an der selben Stelle weiterlaufen.

Ich habe mir schon überlegt, das Hauptprogramm in zwei Teile zu trennen und nach dieser Prozedur dann den ersten Teil zu beenden und den zweiten Teil dann mit einem Button oder Enter zu starten. Es muss doch aber eine schönere Alternative dafür geben. Ich bin dankbar für alle Ratschläge. Ich würde dazu mal keine Screenshots vom Code hochladen, da es ja eher eine prinzipielle Fragestellung ist.

Vielen Dank im Voraus.

MfG Patrick.

Hallo,

ich habe mal wieder eine Frage zur VBA Programmierung in Excel. Ich möchte, dass der der Benutzer in einer Userform Angaben in verschiedenen TextBoxen eintragen kann, und die Einträge sollen je einer Variable zugewiesen werden. Die Variablen habe ich in einem benutzerdefinierten Datentyp erstellt (Deklaration des Datentyps in der Arbeitsmappe). Durch einen Klick auf den "start" button in der Userform sollen die Daten eingelesen werden. Es entsteht jedoch ein Laufzeitfehler 424 "Objekt erforderlich". Ich vermute, dass ich die TextBox falsch angesprochen habe. Anbei ein paar Bilder um es zu verdeutlichen. Ich hoffe auf rasche Hilfe, danke im Voraus.

Mit freundlichen Grüßen, Patrick.

Hallo Gemeinde,

ich benötige bitte eure Hilfe, vielleicht gehe ich die Sache auch einfach nur zu kompliziert an. Und zwar:

Ich habe Dezimalzahlen im Monat Januar von 0,21, Februar 0,08, März 0,13. Also Monat für Monat variiert es.
Diese Dezimalzahlen addiere ich auf die Tage zusammen und komme ich ERSTMALS über 1,2,3,...9 (es sind also mehr), dann soll er mir beispielsweise ein "X" ausgeben.

Mit runden Vrunden Mittelwert, habe ich manchmal das Problem das ich z.B. die Ganzzahl "1" gleich 2x habe. Deswegen wäre es gut, dass sobald es erstmals über die Ganzzahl kommt das "X" auszulösen.

Habt ihr da ein Rat?
Vba sollte möglichst vermieden werden, aber kein Auschlusskriterium.

Ich möchte mithilfe von VBA eine bedingte Formatierung (Hintergrundfarbe) von einzelnen Zellen(jede zweite im Bereich von 2 - 34) innerhalb einer Spalte durchführen. Ist der Wert der entsprechenden Spalte gleich des Wertes in der Zelle links daneben (B), soll die Zelle einen grünen Hintergrund bekommen, ansonsten gelb. Die Spaltenbezeichnungen wollte ich mithilfe einer For-Schleife hochzählen lassen. Wie kann ich dies möglichst einfach realisieren?

Ich bin gerade dabei VBA zu erlernen und dementsprechend noch unerfahren.

Hey.
Ich brauch mal euren Rat.
Ich möchte in einer festgelegten Matrix nach einem Wert suchen und sobald ich die Zelle mit dem Wert gefunden habe möchte ich diese Zeile aktivieren.

Ehrlich gesagt habe ich keine wie diese Funktion in VBA auszusehen.

Bitte helft mir.

Hallo, vorerst: ich habe keine ahnung von excel. ich muss jedoch für meinen chef folgendes tun: wir haben eine telefonrückrufliste bei excel als vorlage erstellt und wollen nun, dass die datei jedes mal beim speichern den namen aus den zellen A3, B3 und C3 bekommt. wie geht das? ich habe schon rausgefunden, dass das nur mit VBA geht. Also, was ich gemacht habe: ich klicke auf Entwicklertoos, dann auf Visual Basic, und dann? bitte möglichst detaliert! :-) hilfe! wo und was muss ich reinkopieren und wie speicher ich das?

Hi. Ich habe folgendes Problem. Ich habe in einer Excel Datei ein Tabellenblatt so aufgebaut, dass es auf eine A3 Seite passen würde. Auf dem selben Blatt befindet sich ein Makro, welches mir die Seite als PDF abspeichert. So weit so gut. Jetzt habe ich das Problem, dass das Tabellenblatt im falschen Format angezeigt wird, wenn ich es an einem Computer öffne, der kein Zugriff auf einen A3 Drucker hat. Ich hab es mit Worksheets("...").PageSetup.PaperSize = xlPaperA3 versucht, aber diesen befehl möchte Excel nicht aktzeptieren, da kein A3 Drucker vorhanden ist. Hat jemand von Euch eine Idee, wie ich die Seitengröße festlegen kann unabhängig davon, ob es der eingestellte Drucker drucken könnte oder nicht? Drucken will ich es ja sowieso nicht :). Danke für Eure Antworten.

Edit: Es würde mir vermutlich auch schon reichen, wenn jemand von Euch einen Befehl kennt, mit dem ich den standard PDF Drucker auswählen kann, der auf so gut wie jedem rechner vorhanden ist?! Dann müsste ich den oben genannten Befehl nutzen können.

Hallo. Ich schreibe grade ein Makro und hänge ein steller fest. Ich muss in einer Zeile in jeder Zelle den manuellen Zeilenumbruch entfernen. Bisher bin ich soweit gekommen

lzeile = Cells(Rows.Count, 1).End(xlUp).Rows.Row For t = 1 To lzeile

Cells(t, 2).Replace Chr(10)

Next t

So läuft es zwar durch aber die Zeilenumbrüche werden auch nicht entfernt. Hat jemand einen Tip was ich an meinem Code ändern muss?

Meine Datentabllen wachsen und wachsen. Dennoch möchte ich die gesuchte Excel Zeile möglichst schnell finden.

Ich hatte hierfür schonmal eine Suchzeile, inder mir die Zeile mit dem Wert ausgegeben wird, welche ich für die erste Spalte als Vergleich gesucht habe.

=WENNFEHLER(INDEX($A$2:$Z$4400;VERGLEICH($AC$4;$A$2:$A$4400;0);VERGLEICH(AE$2;$A$1:$Z$1;0));"Gib in AC4 einen Wort ein!")

Also kurz erklärt, In AC4 gibt man den gesuchten Wortlaut an. In AE2 ist die varilable Beschriftung der zu durchsuchenden Spalte.

Nun möchte ich, dass in der ersten zu durchsuchenden Spalte (das Wort wird in AC4 angegeben) nach dem Wort auch innerhalb der Zelle gesucht wird. Eignet sich zB für Doppelnamen und man nur nach einem Suchen kann, weil der zweite im Schreiben nicht erwähnt ist. Es sollte ein Treffen mit dem vollständigen Inhalt der gefundenen Zelle ausgegeben werden.

Die darauf folgende Formel rechts nebendran ließt jetzt aus Zelle AC5 einen weiteren Wortteil heraus, welcher in der gleichen Zeile existieren muss wie der Wortteil aus AC4. Somit muss durch die Eingabe in Zelle AC5 (falls FALSCH) die Tabelle weiter durchsucht werden nach dem gleichen Prinzip.

Am Ende der Suchspalte ist dann ein variabler Hyperlink der mich direkt zur passenden Zeile führt, nachden ich bestätigen kann, dass es bei den angezeigten Angaben sich um den richtigen Datenzeilensatz handelt.

Theoretisch gelaube ich schon, dass das mit Excel möglich ist. Bloß ich weiß es einfach nicht :(

Vielen Lieben Dank Für Deine Hilfe !!!

Diese Paar Codezeilen würden mir Stunden an Arbeit in Zukunft sparen :)

Hey :) Eine kurze Frage zu Excel. Und zwar möchte ich ein Makro erstellen, welches bei Ausführung die Spalten A-E der aktiven Zeile markiert. Wenn ich also zum Beispiel die Zelle E26 markiert habe und das Marko ausführe, sollen die Zellen A26 - E26 rot markiert werden.

Idealerweise ware dann noch ein zusätzliches Makro, welches diese Markierung wieder aufhebt.

Vielen Dank für eure Vorschläge und Lösungen :)

Ich benötige eine (VBA) Lösung für folgende Anforderung

In Spalte A:A soll JE ZEILE ein Zeitstempel gesetzt werden, wenn in Spalte B:B in gleicher Zeile ein Eintrag erfolgt. Der Zeitstempel soll TT.MM.JJ hh:mm formatiert sein und fix bleiben Also Eintrag in Zelle B10 = Zeitstempel 07.10.16 10:45 in A10 Eintag in Zelle B11 = Zeitstempel 07.10.16 10:47 in A11 usw