VBA – die besten Beiträge

Hallo zusammen!

Ich möchte bei einem Visual Basic Formular ein Textfeld erstellen wo automatisch der Benutzername eingetragen wird von dem der das Formular ausführt. Wie mach ich das bzw. wie lautet der Befehl?

Danke!

ich habe ein Programm wie ein Taschenrechner erstellt.
In den Feldern kann man zahlen eingeben und danach kommt das ergebnis.

diese soll aber als Vorlage dienen und wenn man die Anwendung schließen möchte dann soll die Frage „ Möchten Sie es speichern?“ nicht erscheinen.

Gibt es einen VBA Code welches ich schreiben kann damit die Datei nicht speicherbar ist.

also ich klicke auf das rote X und es schließt sich auch weder zu fragen noch zu speichern.

Danke

mfg

integerhallo liebe Community folgende Frage zur Deklaration von Jahr

Hätte ich anstatt integer auch Byte nehmen können ?

Vielen Dank schonmal

Hallo Zusammen ,

ich bin leider wirklich nicht fit was das Thema Makro schreiben angeht deshalb habe ich folgendes Problem:

Ich habe mehrer Spalten mit etwa 1000 Zeilen voller Daten. Es handelt sich dabei um Minutenwerte. Diese würde ich gerne in 30 min Werte zusammenfassen. Da das händisch ewig dauert bräuchte ich dafür ein Makro welches den Mittelwert bildet und 3 Spalten weiter in der ersten Zeile (wo auch der erste Werte der zur Mittelwertsberechnung rangezogen wird notiert ist). Dann soll der nächste Mittelwert mit den Folgenden 29 Minuten-Werten gebildet werden, 3 Spalten weiter unter dem vorherigen Mittelwert notiert werden.

Folgendes habe ich versucht:

Sub Halbstundenmittelwerte()

Dim i As Integer

Dim z As Integer

Dim x As Integer

Dim MW As Double

For i = 10 To 15010 Step 30

z = i

x = z + 29

Range(Hz).Select

ActiveCell.FormulaR1C1 ="= AVERAGE("Cz:Cx")"

Range(Hi).Value = MW

Next i

End Sub

Danke euch !

Hallo, nochmal die selbe Frage, anders gestellt.

Ich habe mit dem erweiterten Filter jeweils einen Listenbereich und einen Kriterienbereich festgelegt.

Mit dem Button „Filtern“ kann ich, wenn ich in die obige Tabelle beispielsweise eine Abteilung reinschreibe wie „VK“, alle Mitarbeiter in dieser Abteilung in der unteren Tabelle anzeigen lassen. Das habe ich mit einem Makro gemacht und dann einfach auf die Schaltfläche zugeteilt. Mit VBA Codes kann ich gar nichts anfangen, ist aber als Bild nochmal hinterlegt.
Wenn ich jetzt mit dem Filterbutton etwas herausgefiltert habe, werden die anderen Mitarbeiter mit einer anderen Abteilung ja ausgeblendet. Ich möchte, um wieder alle Mitarbeiter einzublenden, einen zweiten Button einfügen. Nun weiß ich aber nicht, was genau ich machen soll, sobald ich den Makro aufzeichnen lasse. Kann mir jemand helfen?
bitte keine VBA-Codes, es muss ja auch anders gehen!

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!

die Aufgabe lautet: "...berechnete Noten sollen nach der 1. Nachkommastelle "abgeschnitten" werden werden". Dies soll mittels einer VBA-Funktion "NOTERUNDEN" realisiert werden.

Kennt jmd zufällig einen fertigen Quelltext dafür ?

Wie kann ich in Excel die Pfeiltasten überwachen lassen, d. h., immer wenn ich in der Tabelle "Tabelle1" die rechte Pfeiltaste drücke, soll nicht die Zelle rechts von der aktuellen Zelle ausgewählt werden (wie es ja normal wäre), sondern das Makro "Makro1" ausgeführt werden.

Geht das überhaupt?

Wie kann ich die Items in ComboBox2 an Value von ComboBox1 anpassen? Z.B. Wenn in ComboBox1 Item1 ausgewählt ist soll in ComboBox2 Item1a und Item1b angezeigt werden, wenn ich jetzt aber in ComboBox1 Item2 auswähle soll in ComboBox2 Item2a und Item2b angezeigt werden. Mit dem folgenden Code werden die Items erstellt aber leider Löschen sich die Items nicht bei einer anderen Auswahl in ComboBox1:

If ComboBox1.Value = "Item1" Then

With Me.ComboBox2

.AddItem "Item1a"

.AddItem "Item1b"

End With

End If

If ComboBox1.Value = "Item2" Then

With Me.ComboBox2

.AddItem "Item2a"

.AddItem "Item2b"

End With

End If

.RemoveItem "Name des Items" hat nicht geklappt.

Ich kann in Python gut programmieren und bin sehr gut in Excel allgemein (VBA ausgenommen), aber mit VBA habe ich null Erfahrung. In meinem Traumjob werden "Sehr gute MS-Office Kenntnisse inklusive VBA-Programmierung" gefordert.

Wie lange braucht man, bis man "sehr gut" ist in VBA? Dauert das genauso lang wie bei "normalen" Programmiersprachen wie Python? Oder geht es schneller?

Ich komme echt nicht weiter bei so einem einfachen Code! :(

Das Problem ist, dass die UserForm einmal funktioniert, aber beim zweiten Mal sagt er "Das Passwort ist nicht korrekt", obwohl es das eigentlich sein müsste. Per Direktbereich abgefragt ergibt sich dann immer, dass das Passwort auf "" steht. Findet jemand im Code den Fehler?

PS: "NeuesPasswort1" steht für die obere, "NeuesPasswort2" für die untere Reihe.

Option Explicit

Sub CheckBoxAltesPasswort_Click()
  If CheckBoxAltesPasswort.Value = True Then
    TextBoxAltesPasswort.PasswordChar = ""
    Else
      TextBoxAltesPasswort.PasswordChar = "*"
  End If
End Sub

Sub CheckBoxNeuesPasswort1_Click()
  If CheckBoxNeuesPasswort1.Value = True Then
    TextBoxNeuesPasswort1.PasswordChar = ""
    Else
      TextBoxNeuesPasswort1.PasswordChar = "*"
  End If
End Sub

Sub CheckBoxNeuesPasswort2_Click()
  If CheckBoxNeuesPasswort2.Value = True Then
    TextBoxNeuesPasswort2.PasswordChar = ""
    Else
      TextBoxNeuesPasswort2.PasswordChar = "*"
  End If
End Sub

Sub CommandButtonAbbrechen_Click()
  Me.Hide
End Sub

Sub CommandButtonSpeichern_Click()
  If TextBoxAltesPasswort.Value <> AltesPasswort Then
    MsgBox ("Das Passwort ist nicht korrekt.")
    Exit Sub
  End If
  If TextBoxNeuesPasswort1.Value <> TextBoxNeuesPasswort2.Value Then
    MsgBox ("Die Passwörter stimmen nicht überein.")
    Exit Sub
  End If
  If Len(TextBoxNeuesPasswort1.Value) < 5 Then
    MsgBox ("Bitte wählen Sie ein Passwort mit mindestens 5 Zeichen.")
    Exit Sub
  End If
  NeuesPasswort = TextBoxNeuesPasswort1.Value
  Passwort = NeuesPasswort
  Me.Hide
End Sub

Sub UserForm_Activate()
  AltesPasswort = Passwort
End Sub

Hallo zusammen,

ich habe in Access einen Button, der aus einer Abfrage eine PDF erstellt und diese via E-Mail versendet.

Ich möchte den Button so programmieren, sodass die PDF nicht verschickt wird, wenn die Abfrage keine Daten enthält.

Teil der Ereignisprozedur "Beim Klicken" für den Button:

Private Sub Befehl96_Click()
    Dim stDocName As String     Dim fileName, fldrPath, filePath As String     Dim answer As Integer       Dim strFrom, strSchema, strPW, strServer, strText, strBenutzer, strUseSSL, strSubject, strBody, strFile As String  'E-Mail     Dim intPort As Integer     Dim cdoMsg As CDO.Message
    Const cdoAnonymous = 0          Const cdoBasic = 1      Const cdoSendUsingPort = 2          stDocName = "Artikeländerungsprotokoll_ARTGruppe"     DoCmd.OpenQuery stDocName, acNormal, acEdit          fileName = Format(Date, "YYYYMMDD") & "_Aenderungsprotokoll_Herstellverfahren"     fldrPath = "K:\ARTIKEL\SQL_Protokolle"     filePath = fldrPath & "\" & fileName & ".pdf

    If Dir(filePath) <> "" Then
        
        answer = MsgBox(prompt:="PDF-Datei existiert bereits: " & vbNewLine & filePath & vbNewLine & vbNewLine & _
        "Möchten Sie die Datei ersetzen?", Buttons:=vbYesNo, Title:="Datei Name existiert bereits")
    
    If answer = vbNo Then Exit Sub
    End If
 
   DoCmd.OutputTo acOutputReport, "ARTIKELÄNDERUNGSPROTOKOLL ARTGruppe", acFormatPDF, filePath

Ich möchte prüfen, ob in der Abfrage"ARTIKELÄNDERUNGSPROTOKOLL_ARTGruppe" Daten enthalten sind. Wenn keine Daten enthalten sind, dann soll nur eine MsgBox erscheinen, die besagt, das keine Daten vorhanden sind und nichts weiter.

Ich bin ein Anfänger im programmieren und tue mir schwer...

Kann mir bitte jemand helfen?

Hallo ich würde gerne mit einer UserForm meine Tabelle befüllen wie kann ich es machen das das was ich in ein Textfeld eingetragen habe in ein bestimmtest Feld eingetragen wird z.B. D12

Hi Zusammen

Ich habe eine Tabelle, in der in Zellen A3:G3 Formeln sind. Ich will mittels Makro die Formeln nach unten kopieren. In Spalte I sind Datensätze. Wie kann ich ein Makro so erstellen, dass die Formeln in Spalten A:G nur soweit eingefügt werden, wie in Spalte I Daten vorhanden sind? Die Daten in Spalte I ist variabel (200, mal 300, etc.)

Es gibt doch sicher vorgefertigte Möglichkeiten zu Eingabe einer Zeit, die aus einem Text eine Zeitspanne macht, zur Vermeidung von Problemen beim Eintippen einer Angabe im Format m.ss,000, also zum Beispiel bei der Erfassung der Zeit für eine sportlichen Wettbewerb wie Mittelstreckenläufe oder Skirennen.

AppActivate verlangt nach dem Fenstertitel. Es handelt sich um Excel und GTA online.

Hallo, kann mir bitte jemanden mit dem Code behilflich sein?

Dieser Code sucht die Zellen in Spalte"A" nach bestimmten Textinhalt ab und bei Treffer löscht er die zughörige gesamte Zeile. Meine Frage: kann man diesen Code so ändern, dass anstatt die gefundene Zeile zu löschen nur mit einer Farbe z.B. Orange (44) färbt? Vielen Dank im Voraus.

Sub zeilenloeschen()
  Dim i As Long
  Dim letzteZeile As Long
  Dim suchBereich As Range
  Dim gefunden As Range
  Dim ersterTreffer As String
  Dim suchWert As String
  suchWert = "1" 'hier kommt dein Suchwert rein
  
  With ThisWorkbook.Sheets("Sheet4")
    letzteZeile = .Range("A" & Rows.Count).End(xlUp).Row
    Set suchBereich = .Range("A1:A" & letzteZeile)
    Set gefunden = suchBereich.Find(What:=suchWert, LookAt:=xlPart)
    If Not gefunden Is Nothing Then
      ersterTreffer = gefunden.Address
      Do
        gefunden.Activate
        ActiveCell.EntireRow.Delete shift:=xlUp
        Set gefunden = suchBereich.Find(What:=suchWert, LookAt:=xlPart)
      Loop While Not gefunden Is Nothing
    End If
  End With
End Sub

Hallo!

Ich bin gerade dabei ein Programm zu erstellen. Dieses soll dazu dienen einen I/O-Check von Automatisierungstechnik durchführen zu können. Um die Prüfung zu dokumeentieren habe ich Togglebuttons mit i.O und n.I.O eingefügt.

Ist es möglich diese Prozedur zu automatisieren?
Es werden größenteils Lichtschranken getestet. In der Spalte "Status" wird mir ein Messwert der Helligkeit übermittelt. Ich will jetzt eine Funktion programmieren, die mir den ToggleButton auf "i.O" setzt, wenn die zugehörige Statuszelle z.B. 3 mal in 3 Sekunden unter einen gewissen Wert sinkt.

Vielen Dank im Voraus!

Hallo zusammen,

ich habe in Excel eine Dropdown auswahlliste.

Nun ist meine Frage, ob ich per Makro in dieser Liste einen Schritt weiter, bzw. wieder zurück kann?

Quasi einen "1 Höher" und "1 Runter" Buton.

Vielen dank im Vorraus!

VG

Hallo,

Ich habe derzeit das Problem, dass ich mittels Indirekt auf Werte aus einer anderen Mappe zugreife. Funktioniert, aber die Mappe muss geöffnet sein.

Deshalb habe ich ein VBA, welches diese Mappe öffnet und wieder schließt.

Da es sich jedoch nicht nur um eine Mappe, sondern ca. 30 handelt dauert das öffnen und schließen ziemlich lange, da die Dateien auf einem Server liegen.

Ich suche nach einer Möglichkeit auf die geschlossenen Mappen zuzugreifen und die Werte zu übernehmen ohne die Mappen zu öffnen. Geht das irgendwie?

Die derzeitige Formel in der entsprechenden Zelle sieht so aus: =INDIREKT(" '["&R10&"]"&$B$1&"'!"&"$C$10")

In R10 steht der Name der Mappe.

In B1 steht der Name des Tabellenblattes.

Beides ist variabel.

Vielen Dank.