Office-Fragen.de - Alle Foren

Neue Übung Rechnungs- oder Angebotsgenerator

Fri, 04 Sep 2026 05:57:53 +0200

Guten Morgen,
leider komme ich in FB mit dieser Aufgabenstellung nicht weiter:
3 - Rechnungs- oder Angebotsgenerator
Artikel auswählen (ComboBox), Menge eingeben, Preis berechnen und alles per Button in ein Blatt schreiben.

Ich hätte da paar Fragen zu:
Woher bekomme ich dann die Artikel in der ComboBox? Und soll nur ein Artikel für jedes Angebot ausgewählt werden können, oder mehrere Artikel in einem Angebot?
Ich wähle aus ComboBox einen Eintrag aus, schreibe ich dann jeden Artikel einzeln per Button in eine Exceltabelle? Oder nacheinander Artikel auswählen und dann am Ende alles in die Tabelle per Button eintragen?

Hat da irgendwer paar Vorschläge für mich?

Ich könnte auf einem Formular einen Button "Neuer Artikel" hinzufügen. Über ein weiteres Unterformular könnte ich neue Artikel erfassen. Diese dann in ein Blatt schreiben. Oder ich gebe vorab Artikel in ein Blatt.

Lieben Dank Euch.

LG
Heiko

Uhrzeit mit vba

Sat, 29 Aug 2026 18:52:38 +0200

Hallo schönen guten Tag
sorry das ich das nochmal anspreche
die VBA hat immer super geklappt seit letztens geht es nicht mehr , das ich 730 schreibe und 7:30 erscheint
nun muss ich 73000 eingeben das 7:30 erscheint , oder 153000 das 15:30 erscheint. Also immer 00 anhängen war doch vorher nicht so, woran kann das liegen ihr Lieben ???

Private Sub Worksheet_Change(ByVal Target As Range)
Dim loA As Long
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("F37,F43,C5:e35")) Is Nothing Then
If Target = "" Then Exit Sub
Application.EnableEvents = False
If Not IsNumeric(Target) Then
If Target.Column <> 3 Then
response = MsgBox("Eingabefehler! Nur Zahlen erlaubt!", vbOKOnly, "Achtung")
Target = ""
Else
Target = UCase(Target)
End If
Else
Target = CStr(Target)
loA = Len(Target)
Target = Left(Format(Target, "0000"), 2) & ":" & Right(Target, 2)
Target.NumberFormat = "[h]:mm"
End If
Application.EnableEvents = True
End If

If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("f44")) Is Nothing Then
If Target = "" Then Exit Sub
Application.EnableEvents = False
If Not IsNumeric(Target) Then
If Target.Column <> 3 Then
response = MsgBox("Eingabefehler! Nur Zahlen erlaubt!", vbOKOnly, "Achtung")
Target = ""
Else
Target = UCase(Target)
End If
Else
Target = CStr(Target)
loA = Len(Target)
Target = Left(Format(Target, "00000"), 3) & ":" & Right(Target, 2)
Target.NumberFormat = "[h]:mm"
End If
Application.EnableEvents = True
End If
If Not Intersect(Target, Range("E5:E34")) Is Nothing Then
Target.Offset(1, -2).Activate
End If

End Sub

Falsche Darstellung von Umlauten aöü...

Thu, 27 Aug 2026 11:02:44 +0200

Hallo,

ich erhalte .csv-Dateien im Format UTF-8, lade diese mit Notepad++ und sehe dort unten rechts, dass sie auch in diesem Format gespeichert wurde.
Die Umlaute äöüÄÖÜß werden dort korrekt dargestellt.

Lade ich diese Datei ohne Änderung in Excel O365 Enterprise, werden dort die Umlaute dargestellt wie nachfolgend:

Falsche Darstellung (ISO-8859-1)
Ã„ -- Ä
Ã– -- Ö
Ãœ -- Ü
Ã¤ -- ä
Ã¶ -- ö
Ã¼ -- ü
ÃŸ -- ß

Suche ich dort beispielsweise mit der Suchfunktion STRG+H nach "ü" wird nichts gefunden. Suche ich nach " Ã¼" wird exakt das gefunden.
Speichere ich die Datei und lade ich sie in Notepad++, wird sie im Format UTF-8 erkannt.
Es macht keinen Unterschied, ob ich das mit dem Desktopprogramm oder im Browser machen.

Die Bearbeitung möchte ich mit lesbaren Umlauten in Excel machen. Wo kann ich da etwas ändern?

Danke!

Excel-Formel in PQ-Tabelle

Mon, 24 Aug 2026 07:43:05 +0200

Guten Morgen Zusammen,

vielleicht kann mir jemand helfen?

Mittels PQ erzeuge ich aus mehreren Tabellen eine PQ-Tabelle.

Einige der Werte der PQ-Tabelle benötige ich in einer Excel-Tabelle. Das sind die Zeilen 1 bis evtl. 10.

In der Excel-Tabelle werden die weiteren Zeilen manuell befüllt.

Soweit - sogut.

Einige Spalten der Excel Tabelle holen sich mittels XVERWEIS Daten aus anderen Excel-Tabelle. Was funktioniert, wenn ich die Tabelle OHNE die PQ-Daten habe, also von Grund auf manuell befülle.

Ich könnte zwar in PQ eine identische Tabelle erzeugen mit Spalten in welcher die Formel steht. Aber die Formel wird, wenn die PQ-Tabelle nach Excel geschrieben wird nicht ausgeführt. Das muss ich manuell für jede Zeile anstoßen.

In der Zeile nach den PQ-Werten, also der Zeile mit den ersten manuellen Eintragungen, habe ich dann die XVERWEIS-Funktionen nicht. Das wird in der Tabelle nicht übernommen.

Gibt es eine Möglichkeit die Excel-Tabelle mit den PQ-Werten zu füllen und die Excel-Funktionen auszuführen?

Vielen Dank schon einmal

Wolf-Tilmann

Zellbezug in VBA mit einbinden

Mon, 17 Aug 2026 09:40:47 +0200

Hallo zusammen,

ich hoffe ihr könnt mir hier helfen. Nachstehend ein VBA-Modul, wo eine csv aus einem Tab erzeugt wird. Nun soll hier beim Namen "Montageliste" noch die Nummer angehangen werden, welche im Tab Zeitkalkulation C1 steht. Irgendwie bekomme ich die Verbindung nicht hin.

Ausgabebeispiel:
Nummer in Zeitkalkulation C1: 2026123
Ausgabe des Dateinamens beim erzeugen der csv: Montageliste 2026123

Sub MontagelisteUMD()

Sheets("Montageliste UMD").Select
Cells.Select
Range("A1").Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
Sheets("Montageliste UMD").Select
CSVDatei_schreiben

End Sub

Sub CSVDatei_schreiben()
Dim strVerzeichnis As String, nFileNr
Dim K As Integer, N As Integer, F As Integer
Dim FileName As String
Dim Daten As Variant
Dim objStream As Object
Dim strTextFile_Neu As String
Dim sText As String
Dim intFile
On Error GoTo ErrorHandler
strVerzeichnis = ActiveWorkbook.Path & "\"

FileName = InputBox("Dateiname!", "Filenamen für csv", "Montageliste")
If InStr(FileName, ".csv") > 0 Then
F = InStr(FileName, ".csv")
FileName = Left(FileName, F - 1)
ElseIf Len(FileName) < 3 Then
Exit Sub
End If
With Worksheets("Montageliste UMD")
For N = 1 To .Cells(Rows.Count, 15).End(xlUp).Row
For K = 1 To .Cells(1, Columns.Count).End(xlToLeft).Column
Daten = Daten & .Cells(N, K).Value & ";"
Next
sText = sText + Daten & Chr(10)
Daten = ""
Next N
End With
intFile = FreeFile
strTextFile_Neu = strVerzeichnis & FileName & Sheet("Zeitkalkulation, Range C1") & ".csv"
Set objStream = CreateObject("ADODB.Stream")
With objStream
.Type = 2 'Stream Typ
.Charset = "utf-8"
.Open
.WriteText sText 'Text schreiben
.SaveToFile strTextFile_Neu, 2 'binary Daten speichern
End With
Exit Sub
ErrorHandler:
MsgBox "Fehlerhafte Eingaben ! Bitte korrigieren und wiederholen.", vbCritical, "Hinweis"
End Sub

Datum aktualisieren

Sun, 02 Aug 2026 05:31:18 +0200

Hallo,

ich benutze Word 2024. Wie erreiche ich, dass sich das eingefügte Datum einer Datei automatisch aktualisiert?

Viele Grüße

Sich wiederholende Felder automatisieren

Mon, 20 Jul 2026 19:33:15 +0200

Hallo,

ich habe eine Dokument, welche verschieden Erklärungen beinhaltet. Alle Erklärungen sind mittels Seitenumbruch auf seperaten Seiten positioniert. Da die Erklärungen unterschiedliche Inhalte haben müssen folgende Felder immer wieder befüllt werden:

Name, Vorname
Strasse, hausnummer
PLZ, Stadt
Mobilfunknummer
Festnetznummer
E-Mail

sowie am Ende der jeweiligen Erklärung

Ort und Datum

Gibt es eine Möglichkeit, die Inhalte nur einmal eingeben zu müssen. Quasi auf Seite 1 setze ich den Hugo Mustermann ein und er erscheint in den Feldern der Folgeseiten.

Screenshot 2026-07-20 191908.jpg (Größe: 20,87 KB / Downloads: 2)

So sieht das zu befüllende Feld aus. Der obere Part ist eine Tabelle mit 2 Spalten und 6 Zeilen und der untere Part ist einfach nur durch Tabs getrennt.
In den jeweiligen Seiten kann zwischen dem ersten und dem zweiten Part noch Text vorhanden sein.

Das komplette Dokument ist schreibgeschützt bis auf die Stellen mit der gelben Unterlegung.

Im Excel hätte ich es einfach nur mit "=" gelöst. Steht mir hier eine ähnliche Funktion zur Verfügung?

Vielen Dank im Voraus für eure Hilfe.
Heiko

dynamsiches, abhängiges Dropdown ohne klassische Haupttabelle

Mon, 20 Jul 2026 15:20:12 +0200

Hallo zusammen,

ich habe wieder einmal ein Problem, bei welchem ich nicht weiterkomme.

Ich habe eine Tabelle, welche ich in den ersten drei Spalten mittels Dropdown fülle.

Spalte Hersteller aus Tabelle Hersteller
Spalte Türer aus Tabelle Türer
Spalte Besitz aus Tabelle Besitz

Die Tabellen können sich erweitern.

Das funktioniert.

In die Spalte ORG trage ich eine Ziffernfolge manuell aus einer anderen Informationsquelle ein.

In der Spalte ZUF benötige ich ein weiteres Dropdown.

Hier ist mein Problem.

Zur Auswahl dürfen, auch in zukünftigen Zeilen, dynamisch nur Ziffern aus der Spalte ORG stehen, welche
1. über die Gesamte Tabelle in den Spalten Hersteller und Türer gleich sind
2. in der Spalte Besitz nicht als gekauft erfasst ist.

Jeweils in Spalte ZUF
Zeile A: 2,5, 50
Zeile B: 5
Zeile C: 2, 5, 50
Zeile D: 5, 8
Zeile E: 2, 5, 50
Zeile F: LEER
Zeile G: 5, 8

Ich kann weder Power Query noch Makro oder eine sonstige Scriptsprache verwenden.

Beispiel anbei.

Kann mir bitte jemand weiterhelfen?

Vielen Dank
Eine schöne Zeit

Wolf-Tilmann

Hilfsliste.xlsx (Größe: 12,54 KB / Downloads: 3)

Seiten x von y, y wird nicht nachgeführt

Fri, 17 Jul 2026 08:55:02 +0200

Guten Morgen

Ich habe ein Template erstellt, welches in der Fusszeile die Seitenzahlen anzeigen soll. x von y. Nun wird x, also die fortlaufende Seitenzahl beim abgemischten Dokument korrekt nachgeführt. Y zeigt aber immer gesamte Seitenzahl des Templates an. Also wenn das Template insgesamt 2 Seiten hat, dann bleiben dieses 2 Seiten, auch wenn ich nach dem Bearbeiten 5 Seiten habe.

Wie kann ich diesen Fehler korrigieren.

Danke für Eure Mithilfe

Überarbeitung einer kleinen Kunden-/Adreßverwaltung

Mon, 06 Jul 2026 19:53:25 +0200

Hallo zusammen,
unter Excel VBA-Forum - Das Forum zu Microsoft Excel VBA habe ich schon mal gefragt. Aber da komme ich nicht weiter. Deswegen versuche ich es hier mal, zumal ich hier auch meine Excelmappe hochladen kann.

Ich habe unter Excel 2021 eine Mappe mit Makros angelegt. Dort ein Formular mit mehreren TextBoxen/Labels, 2 ComboBoxen und einem Button zum Speichern.

Geht um eine kleine Kunden-/Adreßverwaltung. Ich würde Euch gerne mal meine Mappe zeigen. Kann ich hier keine Anlagen beifügen?

Ich frage die wichtigsten TextBoxen auf Inhalt ab. Ist kein Eintrag, kommt eine Fehlermeldung.
Gebe ich die Daten ein und klicke auf Speichern, werden die Daten in einer Tabelle reinkopiert. Danach werden die TextBoxen gelöscht, um dann weitere Daten einfügen zu können.

Ich hatte schon was in Facebook-Gruppe (Excel VBA Programmierung | Facebook) geschrieben. Aber mir konnte da scheinbar niemand mehr helfen, es kam zumindest nix mehr.

Ich hatte die Mappe in FB hochgeladen. Jetzt schreibt mir einer, das UserForm sollte sich automatisch öffnen (das bekomme ich noch hin), die Quelltexte könnten optimiert werden und eine Funktion zum Suchen/Ändern von Einträgen. Ich weiß nicht wo ich da was optimieren könnte. Und Daten suchen/ändern, wie mache ich das? Muß ich ein neues zusätzliches Formular für die Suche/Änderung anlegen und dann ne Abfrage machen? Da ich gerade erst ein Fernstudium VBA-Programmierung mache, habe ich noch nicht viele Kenntnisse.

LG
Heiko

Kunden_Adress_Verwaltung.xlsm (Größe: 18,44 KB / Downloads: 6)

Bertäge addieren (mit Formel)

Fri, 03 Jul 2026 13:53:47 +0200

Ich möchte anhand der Anzahl Mitgliedern eine Auszahlung berechnen.
1. Von der Antragsumme werden 10% abgezogen.
2. Von diesem ermittelnden Betrag werden ja nach Anzahl Mitglieder nn Prozente abgezogen.
3. Auf diesen ermittelnden Betrag wird eine Bezuschussung aufaddiert, was dann die Auszahlung ergibt.

Wenn das im Beispiel, in der Zelle E direkt berechnet wird, ist der Betrag falsch (zu hoch).
Wird der Betrag vorher in Zelle F übertragen und in Zelle G die Bezuschussung addiert, ist der Betrag richtig.

Was ist fasch an der Formel in Zelle E ?

Freigegebene xlsx Datei verliert Daten

Thu, 02 Jul 2026 15:53:11 +0200

Hallo,
hat jemand einen Tipp für mich, wie ich eine freigegebene xlsx Datei schadlos benutzen kann oder wo der Fehler liegen kann?

Die Datei ist auf dem Server freigegeben. Alle Benutzer haben Windows 10.
Eingetragene Daten(ganze Zeilen) verschwinden manchmal oder werden wie von Zauberhand dreifach eingetragen.

Im schlimmstren Fall öffnest du morgens die Datei und die Aufträge vom Vortag fehlen ganz oder teilweise.
Da hilt dir auch kein Backup weiter, da über Nacht die Sicherungsdatei genauso aussieht.

Das geht schon mal bis zum Totalverlust der Einträge des Tages(Auftragsbuch).
Unabhängig davon, ob einer oder ein zweiter Benutzer die Datei benutzt hat.

Es ist ein simples Auftragsbuch ohne Formeln oder Bezüge auf andere Seiten oder Dateien.

Grüße

Spalte mit Liste vergleichen

Wed, 01 Jul 2026 20:57:45 +0200

Hallo,
wie schaffe ich es, Werte in einer Spalte mit den Werten einer
Liste zu vergleichen.
In Spalte C soll eine 1 Stehen, wenn Werte in der Spalte B mit
Werten in der Spalte D übereinstimmen.
Ich habe schon einiges probiert, komme aber nicht zu einem
Ergebnis.
Kann mir jemand helfen?

MfG Günter

Vergleichen.xlsx (Größe: 11,96 KB / Downloads: 8)

Was ist los

Tue, 23 Jun 2026 14:09:50 +0200

Hallo Leute,
hat seit dem 01.06.26 keiner mehr Probleme mit Excel,
oder haben alle das Forum gewechselt?

MfG Günter

Inhalte löschen

Fri, 12 Jun 2026 11:02:57 +0200

Hallo,

ich verwender Office 2024. Wie lösche ich nur die Inhalte einer Tabelle, erhalte aber die Tabellenstruktur?

Viele Grüße