Office-Fragen.de - Excel

Schichtplan Vollkonti

Wed, 09 Sep 2026 02:08:44 +0200

Hallo an alle, gibt es denn eine Möglichkeit, den Schichtplan automatisch eingefärbt hinzubekommen?

2 Tage Früh gelb, 2 Tage Spät grün, 2 Tage Nacht blau und 3 Tage Wochenende grau.

Siehe Bild im Anhang.

Danke im Voraus

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

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)

Ü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)

PQ Abfrage Geodaten

Wed, 27 May 2026 12:31:24 +0200

Hallo Excelaner,
folgender Hintergrund.
Ich betreibe schon lange Ahnenfroschung und nehme neben den Generalogie Programm auch Excel (2024 LTSC und O365) als Grundlage für Statikstiken und Auswertungen, welches mir die bekannten Programme nicht so liefern können, wie ich es gern hätte.

Erster Schritt zb. = Json.Document(Web.Contents("https://nominatim.openstreetmap.org/search?format=json&q=ORT%2C+LAND"))
Liefert mir hoffentlich nur einen Record (haut bei Rabat hin, weil einzig) ..
Funktioniert bei Orten die mehrfach im Land vorkommen suboptimal .. abder damit kann ich noch leben ...

Problem zum hier bei Rabat ist aber:
= Json.Document(Web.Contents("https://nominatim.openstreetmap.org/search?format=json&q=Rabat%2C+Marokko"))

Liefert Rabat ⵔⴱⴰⵟ الرباط, باشوية الرباط, Préfecture de Rabat عمالة الرباط, Rabat-Salé-Kénitra ⵔⴱⴰⵟ-ⵙⵍⴰ-ⵇⵏⵉⵟⵔⴰ الرباط-سلا-القنيطرة, Maroc ⵍⵎⵖⵔⵉⴱ

die PQ Abfrage habe ich mit nem Kollegen dann konvertiert, gefiltert Transponiert und gestuft ..
Ergebnis dann für mich
Ort Land lat lon

diese Geodaten werden dann woanders weioterverarbeitet

Ich bin neuling auf PQ ... gibt es andere Seiten die mir Diese Daten liefern können?

Gruß
Lunamaxx

Dynamischer Bezug

Tue, 26 May 2026 17:24:28 +0200

Hallo,

wie erreiche ich im Blatt Auswertungen das ich bei der Formel nicht um 6 erhöhen muss, sondern das automatisch geschieht.

Vielen Dank für die Hilfe.

Mappe1.xlsx (Größe: 30,58 KB / Downloads: 7)

Inhalte von Zellen in definierten Felder bei Neueingabe verschieben

Tue, 26 May 2026 08:48:16 +0200

Hallo zusammen,

ich habe folgendes Thema:

Ich würde gerne in einem definierten Bereich (zB A1:C3) Daten eingeben und dabei die bestehenden Daten in den Zellen nach folgender Logik verschieben lassen.

IST:

A1: 1
A2: 2
A3: 3
B1: 4
B2: 5
B3: 6
C1: 7
C2: 8
C3: 9

Dann wird bei A3 ein neuer Wert eingegeben, zB 10 und die Tabelle soll dann wie folgt aussehen

A1: 1
A2: 2
A3: 10
B1: 3
B2: 4
B3: 5
C1: 6
C2: 7
C3: 8

und der Wert 9 soll in einen weiteren definierten Bereich verschoben werden (zB A6:C9)

die KI hat mir eine VBA Lösung vorgeschlagen, die hat aber Fehler gehabt und mein Problem nicht gelöst. Ich selbst kann leider nicht VBA programmieren.

Habt ihr eine Lösung?

Formelzusammensetzung

Mon, 18 May 2026 15:56:56 +0200

Hallo zusammen,

hier wird es mir sehr komplex und er bringt mir immer, ich hätte entweder zu viele oder zuwenige Argumente.

Wenn in G4 "Ja" steht und gleichzeitig in E10 die Zahlen 2 4 oder 7, dann soll gerechnet werden

AUFRUNDEN(((E7+(AUFRUNDEN(E6*2*E10/60;0)))/60/E10)+1 sonst AUFRUNDEN(((E7+(AUFRUNDEN(E6*2*E10/60;0)))/60/E10)+0

als Schlusskriterium nicht "Ja" AUFRUNDEN(E7/8,5/E10;0)

Könnt ihr mir das bitte in eine Formel bringen?

Hier meine Bastelei.

=WENN(UND(G4=“ja“;E10=(ANZAHL(SUCHEN(2;4;7))>0);AUFRUNDEN(((E7+(AUFRUNDEN(E6*2*E10/60;0)))/60/E10)+1;AUFRUNDEN(((E7+(AUFRUNDEN(E6*2*E10/60;0)))/60/E10)+0;0);AUFRUNDEN(E7/8,5/E10;0))

Ich danke euch schonmal im Voraus.