Hallo zusammen,

ich habe mehrere Makros in einer Datei gesammelt und diese anschließend verschlüsselt. VBA Projekt Passwort.

Einer Jahr später habe ich es wieder benötigt. Problem jetzt ist ich weiß das Passwort nicht mehr und es war recht Komplex.

Wie kann ich es anzeigen lassen oder sogar es abschalten ?

Bitte ohne die Datei zu beschädigen. Werde so oder so eine Kopie machen, aber das alles ganz bleibt.

Nach langem Googeln und ausprobieren mit DPB funktioniert es auch nicht. Da das neue Exel die Datei dann sozusagen löscht beim Wiederherstellen und alle Makros sind futsch.

Danke schonmal :)

Hey, kann mir wer folgen Code so umschreiben, dass der nicht anfragt, wie oft dupliziert werden soll, sondern der das aus einem Zahlenfeld im gleichen Formular entnimmt?:

-------------

Private Sub Befehl36_Click()

  Dim lngI    As Long

  Dim lngIMax   As Long

  Dim strEingabe As String

  DoCmd.RunCommand acCmdSelectRecord

  DoCmd.RunCommand acCmdCopy

  strEingabe = InputBox("Wie oft?", , 1)

  'Benutzereingabe wurde abgebrochen

  If StrPtr(strEingabe) = 0 Then Exit Sub

  lngIMax = Val(strEingabe) - 1

  For lngI = 1 To lngIMax

    DoCmd.RunCommand acCmdPasteAppend

  Next lngI

End Sub

---------------

Vielen Dank

Bei Tabellen ist es mir schon gelungen mit ActiveDocument.Tables.

Wie kann ich Checkboxen (Active X Steuerelement) und andere Elemente ansprechen?

Hallo, ich würde gerne in Access eine Daten Bank gestalten.

allerdings kommt ja immer wenn man das Programm aufruft kurz der Name mit dem Bild.

siehe Bild.

kann man das austauschen und ein eigenes Bild hinzufügen oder geht das nur das eigene Loge im Programm selbst aber nicht der kurze startbildschirm

Wäre dankbar für eine Antwort

Hallo,

gibt es eine Möglichkeit, in VBA (Excel) ein Unicodezeichen in den Text einer Message Box einzubinden? Konkret geht es mir um das Warning sign.

Die Möglichkeit, die MsgBox-Konstante vbExclamation zu verwenden, ist mir übrigens bekannt, das ist aber nicht das, was ich meine bzw. möchte.

Vielen Dank für eure Hilfe!

Gruß, BerchGerch

Ich stelle mir das so vor, dass man 2 Masken/Dateien erstellt.

Die eine ist für die Personengruppe gedachte, welche an der Datei arbeitet und die Daten einpflegt.

Die andere sollte nur die Daten zeigen ohne die Möglichkeit zu geben aktiv an den Daten mitzuwirken.

gibt es dort eine Möglichkeit ?

Hallo zusammen,

ich habe für meine Arbeit so eine Art "Quiz" mit Excel Messageboxen erstellt.

Dem Anwender erscheinen Messageboxen mit Fragen und er kann dann bei jeder Frage auf Ja oder Nein klicken. Je nachdem, ob er auf Ja oder Nein geklickt hat kommt dann eine weitere Frage, die wieder mit Ja oder Nein zu beantworten ist und so weiter. Am Ende erscheint dann eine Messagebox mit einem Ergebnis.

Die Anwendung funktioniert auch soweit, allerdings kann ich sie nur direkt im VBA Editor starten. Was muss ich einfügen, damit die Messageboxen sofort starten, wenn der Anwender die Excel Datei öffnet?

Ich habe schon versucht, oben im Code Sub Workbook_Open () einzufügen, aber das hat nicht funktioniert.

Ich wäre dankbar für Tipps! Bitte leicht verständlich erklären, ich bin kein IT-ler :)

Hallo zusammen,

ich habe für meine Arbeit so eine Art "Quiz" mit Excel Messageboxen erstellt.

Dem Anwender erscheinen Messageboxen mit Fragen und er kann dann bei jeder Frage auf Ja oder Nein klicken. Je nachdem, ob er auf Ja oder Nein geklickt hat kommt dann eine weitere Frage, die wieder mit Ja oder Nein zu beantworten ist und so weiter. Am Ende erscheint dann eine Messagebox mit einem Ergebnis.

Die Anwendung funktioniert auch soweit, allerdings kann ich sie nur direkt im VBA Editor starten. Was muss ich einfügen, damit die Messageboxen sofort starten, wenn der Anwender die Excel Datei öffnet?

Ich habe schon versucht, oben im Code Sub Workbook_Open () einzufügen, aber das hat nicht funktioniert.

Ich wäre dankbar für Tipps! Bitte leicht verständlich erklären, ich bin kein IT-ler :)

Ich habe einen fertigen CSV Text der soll nun in einer CSV Datei gespeichert werden. Die CSV Datei soll bei dem Durchlauf erzeugt werden.

Der fertige Text beinhaltet schon Semikolons.

Hallo,

ich kenne mich mit Geldspielautomaten wenig aus. Beim Einschalten von meinem Crisss Cross Automaten leuchten die Lampen vom Geldausgabeschacht. Wenn ich Geld einwerfe fällt es direkt wieder raus. Ich Frage mich ob die Datenbank kaputt ist oder evtl auch die Zulassungskarte abgelaufen ist. Links neben der Datenbank leuchtet eine Led, unter der Karte keine. Beim Austausch der Datenbank ist da die Farbe der Datenbank wichtig oder ist das egal?

Danke für Rückmeldungen

Ich wüsste gerne wie ich ihn VBA von Excel überprüfen kann ob eine Zahl gerade ist oder eben nicht.

DIe Zellen Formel schaut so aus:

=WENN(UND(ISTGERADE($P$44);D15>0;$P$44>0);D15*2;"") 

In VBA hab ich es wie folgt probiert:

If Range("P44") IsEven And Range("D15") > 0 And Range("P44") > 0 Then
Range("U15") = Range("D15") * 2
Else
Range("U15")=""
End If

Aber wie ihr euch denken könnt funktioniert es so nicht

Danke für eure Hilfe im Vorraus

Moin,

Ich arbeite schon etwas länger mit VBA, aber hier stehe ich einfach aufm Schlauch.

Er sagt also, dass die methode "Range" in "dl" nicht existiert - dl ist aber ein Sheet!
Ich glaub es ist eine einfache Lösung und ich komm einfach nicht drauf

Guten Tag zusammen,

ich habe eine Combobox, dessen Inhalt aus einem gewissen Bereich angezeigt werden soll. Jedoch möchte ich, dass in der Liste keine leeren Zellen angezeigt werden.

Infos:
Bereich: Blatt XY Range L3-102
Name ComboBox: KAnzeigename
Name UserForm: Schreiben

Es läuft unter "Private Sub UserForm_Initialize()". Die leeren Zellen (formatiert als Standard) aus dem Bereich L3-L102 laufen über eine Wenn-Funktion mit dem Ergebnis = ""
Wo ist den denn Fehler?
Sind es aufgrund der Wenn-Funktion keine leeren Zellen mehr?

Dim i As Long
With Schreiben.KAnzeigename
   For i = 3 To 102
       If Not IsEmpty(Sheets("XY").Cells(i, 12)) Then
         .AddItem Sheets("XY").Cells(i, 12)
       End If
   Next
End With

Vielen Dank und Gruß

Hallo,

ich möchte in Excel jedes mal wenn ich die Rechnungs-Vorlage öffne, die nächste Rechnungsnummer eingetragen haben.

Meine Rechnungen sind alle in einem Ordner gespeichert.

Ich habe schon versucht mit VBA ein Script zu schreiben, welches alle Dateien in dem Ordner durchgeht und den Wert aus Zelle B13 nimmt und den höchsten am ende mit +1 in die Vorlage einträgt.

Da bin ich aber leider gescheitert :-)

Vielleicht kennt sich einer von euch da besser aus und könnte mit weiterhelfen.

Vielen Dank im Vorraus,

LG, Julian

Liebe Community,

ich habe über den Makroaufnahme ein umfangreiches Makro aufgenommen. Typisch dafür ist, dass oft der Befehl Select benutzt wird. Da ich gelesen habe, dass dadurch die Geschwindigkeit verlangsamt wird und weggelassen werden sollte, habe ich das so befolgt.

Vorher ist das Makro innerhalb weniger Sekunden durchgelaufen, jetzt braucht es circa eine Minute. Ich habe mal ein Beispiel angehängt, wo man den Zeitverlust sehr deutlich bemerkt.

Habe ich da was falsch gemacht?

Vorher:

    Cells.Select
    Range("B13").Activate
        With Selection.Font
            .Name = "Calibri"
            .Size = 14
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .OutlineFont = False
            .Shadow = False
            .Underline = xlUnderlineStyleNone
            .ThemeColor = xlThemeColorLight1
            .TintAndShade = 0
            .ThemeFont = xlThemeFontMinor
        End With

Nachher:

With Cells.Font
        .Name = "Calibri"
        .Size = 14
        .ThemeColor = xlThemeColorLight1
        .ThemeFont = xlThemeFontMinor
    End With

Ich habe eher wenig Ahnung von VBA, habe mich durch Ausprobieren und Internetseiten rumgeschlagen.

Vielen Dank schonmal für Antworten.

Lamio13

Hallo Zusammen, kann mir jemand sagen wie ich mithilfe einer Function in Excel VBA den Inhalt einer Zelle ändern kann? Ich habe hier ein kleines Beispiel, während der Code in einem Sub scheinbar ohne Probleme ausgeführt wird, scheint dieser in einer Function zum Abbruch zu führen.

Vielen Dank für jede Antwort im Voraus!

Gruß Leo

Beispiel:

  Sub Test()

  ActiveCell.Offset(1, 1) = "1"

  End Sub

  Function Test()

  ActiveCell.Offset(1, 1) = "1"

  End Function

Hallo,

wir haben unterschiedliche Arbeitsplätze mit diversen Druckertreibern.
Dadurch sehen manche Excel-Tabellen bei jedem unterschiedlich aus, wodurch die Zeilen teilweise auf eine neue Seite verschoben werden.

Kann man das ggf. mit Excel-VBA sicherstellen, dass es gleich bleibt?

Danke im Voraus.

Ich kann es nicht ausführen wegen „Datentypenkonflikt in Kriterienausdruck“ weiß aber nicht wo der Fehler liegt? Access ist ja etwas anders als wenn ich es über Phpmyadmin etc machen würde

Hallo!

Ich arbeite gerade mit VBA und habe folgendes Problem:

Ich habe ein Eingabefeld und möchte, dass das Programm nur weiterläuft, wenn drei Bedingungen erfüllt sind. Es soll sich um eine Zahl handeln, sie soll ganzzahlig sein und größer gleich Null.

Ich habe folgendes zusammengebastelt:

Dim Zahl As Variant

start:

Zahl = InputBox("Zahl eingeben")

If Anzahl <= 0 Or IsNumeric(Zahl) = False Or Int(Anzahl) = False Then

  MsgBox ("Zahl muss ganzzahlig und größer als 0 sein. Bitte erneut eingeben.")

  GoTo start

Mit der ersten Bedingung klappt noch alles so wie es soll. Wenn ich einen Buchstaben eingebe, kommt eine Fehlermeldung und wenn ich keine ganzzahlige Zahl eingebe, läuft es einfach weiter.

Ich habe keine Erfahrung mit VBA und hoffe, dass mir jemand meinen Fehler erklären kann.

Vielen Dank schon Mal!

Hallo!

Ich arbeite gerade mit VBA und habe folgendes Problem:

Ich habe ein Eingabefeld und möchte, dass das Programm nur weiterläuft, wenn drei Bedingungen erfüllt sind. Es soll sich um eine Zahl handeln, sie soll ganzzahlig sein und größer gleich Null.

Ich habe folgendes zusammengebastelt:

Dim Zahl As Variant

start:

Zahl = InputBox("Zahl eingeben")

If Anzahl <= 0 Or IsNumeric(Zahl) = False Or Int(Anzahl) = False Then

  MsgBox ("Zahl muss ganzzahlig und größer als 0 sein. Bitte erneut eingeben.")

  GoTo start

Mit der ersten Bedingung klappt noch alles so wie es soll. Wenn ich einen Buchstaben eingebe, kommt eine Fehlermeldung und wenn ich keine ganzzahlige Zahl eingebe, läuft es einfach weiter.

Ich habe keine Erfahrung mit VBA und hoffe, dass mir jemand meinen Fehler erklären kann.

Vielen Dank schon Mal!