Guten Tag,

ich habe ein kleines Excelproblem. Vielleicht hat jemand eine Idee.

Zum Problem:

Ich habe das Tabellenblatt „Dienstplan“ und das Tabellenblatt „Fahrzeugliste“. Im Dienstplan sollen die Leute; hier im Beispiel: „Name1-3“ das jeweilige Fahrzeug; hier im Beispiel: „KFZ1-3“ je Tag per Dropdown wählen können (funktioniert so weiter).

Entsprechend soll dann der Name der Person bei der richtigen Zeile (Tag) und richtigen Spalte (Fahrzeug) in der Kfz Liste stehen (funktioniert nicht).

Beispiel:

Person „Name2“ will am 02.01.2023 das Fahrzeug „KFZ1“ wählen.

Person „Name3“ will am 03.01.2023 das Fahrzeug „KFZ3“ wählen.

Wie muss nun die Formel in I4 aussehen, sodass dort „Name2“ steht?

Wie muss nun die Formel in K5 aussehen, sodass dort „Name3“ steht?

Prinzip sollte hoffentlich verstanden geworden sein.

Zu beachten ist noch, dass der Tag der im Dienstplan steht als verbunden Zelle ist (Tag 01.01.2023 = Zeile 3 und 4) (wie auf dem Bild) und bei der KfZ Liste die Tage einzeln (eine Zeile pro Tag).

Ich habe es schon eine Kombination aus sverweis und wverweis versucht sowie index und vergleich. Nur leider kam ich nicht auf das entsprechende Ergebnis.

Vielen Dank schonmal im Voraus.

Achja, Makros sind nicht möglich.

Hallo,

ich habe ein kleines Problem mit dem Erstellen von mehreren PFD-Seiten aus unterschiedlichen Tabellenblätter. Je nach Erfüllung der Bedingung (If-Abfrage) wird eine PDF erstellt.

Sofern nur ein eine Tabelle angesprochen wird, gibt es keine Probleme mit der Erstellung. Dabei ist es egal, ob die Tabelle oder zwei Seiten hat. Die Formatierung/Range ist korrekt und das Makro läuft durch.

Sheets("DUZ").Select
Range("A1:Y52").Select
Selection.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\DUZ.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Aber soweit ich auf zwei oder mehr Tabellenblätter zugreife, gibt es Probleme:

Sheets(Array("Deckblatt", "Übersicht", "Tagebuch", "Ges", "Reisekosten", "DUZ")).Select
Selection.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\Tagebuch_RZ_DUZ.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Wie kann ich entsprechend die Range unterbringen, sodass es evtl. problemlos klappt?

'Sheets("Deckblatt").Select --> Hochformat (1 Seite)
'Range("A1:H43").Select
                    
'Sheets("Übersicht").Select --> Querformat (1 Seite)
'Range("A1:R35").Select
                    
'Sheets("Tagebuch").Select --> Hochformat (6 Seiten)
'Range("A1:V146").Select
                    
'Sheets("Ges").Select --> Hochformat (1 Seite)
'Range("A1:G43").Select
                    
'Sheets("DUZ").Select --> Querformat (2 Seiten)
'Range("A1:Y52").Select
                    
'Sheets("Reisekosten").Select --> Hochformat (1 Seite)
'Range("A1:N57").Select

Aktueller Fehlerhinweis: Anwendungs- oder objektdefinierter Fehler.

Ich hatte es auch mal wie folgt versucht, aber dann stimmt die Formatierung nicht (wenn es einzeln gespeichert wird, ist sie aber richtig). Außerdem wird dann beim Schreibschutz rumgemeckert (am Ende werden die Blätter wieder mit Schreibschutz versehen). Jedenfalls gibt es diese Probleme beim einzelnen nicht.

Sheets("DUZ").Select
Range("A1:Y52").Select
                    
Sheets("Reisekosten").Select
Range("A1:N57").Select

Sheets(Array("Reisekosten", "DUZ")).Select
Selection.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\Reisekosten_DUZ.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Hat jemand eine Idee?
Gruß

Hallo zusammen,

ich habe folgende Problem in Excel. Ich möchte einen gewissen Zeitraum aus Stundenaufzeichnungen in Tag- und Nachtzeit unterscheiden.

Dabei geht die Tagzeit von 06:00 - 20:00 Uhr und die Nachtzeit von 21:59 - 05:59 Uhr.

In B4 steht die Uhrzeit des Arbeitsbeginn und in C4 das Ende. Diese sind in Format Uhrzeit formatiert. Die entsprechenden Zahlenformate zu der Uhrzeit sind in AB4 (Beginn) und AC4 (Ende).

Nun möchte ich, wenn die Arbeitszeit z.b. von 04:00 Uhr - 23:00 Uhr geht, dass entsprechend richtig die Stundenanzahl in Tag und Nacht unterschieden wird. Die Uhrzeit kann auch tagesübergreifend sein z.B. 19:00 - 07:00 Uhr. dabei ist jede erdenkliche Möglichkeit innerhalb eines Tages (24 Stunden) möglich.

Beispiel:
Bei der Arbeitszeit von 19:00 - 07:00 Uhr sind 2 Tagstunden (19:00-20:00 + 06:00 - 07:00) und 10 Nachtstunden (20:00 - 00:00 + 00:00 - 06:00).

fehlerhafte Formel für die Tageszeit als Zahl in Zelle Z4:

=WENN(ODER(D4<>"A";AB4="";AC4="");0;WENN(UND(AC4<=AB4;AC4>=Adm!$F$7);(Adm!$F$8-B4)+(C4-Adm!$F$7);WENN(UND(AB4>=6;AC4<=20);(C4-B4);WENN(UND(AB4>=6;AC4>=20);Adm!$F$8-B4;WENN(UND(AB4<=6;AC4<=20);C4-Adm!$F$7;WENN(UND(AB4<=6;AC4>=20);Adm!$F$8-Adm!$F$7;WENN(AC4<AB4;WENN(UND(AC4<AB4;AC4<=6);(Adm!$F$8-B4);""))))))))

fehlerhafte Formel für die Nachtzeit als Zahl in Zelle AA4:

=WENN(ODER(D4<>"A";B4="";C4="");0;WENN(UND(AB4<6;AC4>20);(Adm!$F$7-B4)+(C4-Adm!$F$8);WENN(AB4<6;Adm!$F$7-B4;WENN(AC4>20;C4-Adm!$F$8;0))))

In der Zelle: "Adm!$F$7" steht als Uhrzeit formatiert 06:00 und "Adm!$F$8" steht die Uhrzeiten 20:00 Uhr.

Vielleicht hat jemand eine Idee und kann die Formeln korrigieren oder hat entsprechend einen besseren/richtigen Ansatz. Problem bei der ganzen Sache ist einfach, das hier auch Tagesübergreifend gearbeitet wird und entsprechend das Ende "kleiner" ist als der Anfang. Ich habe die Vermutung, dass mit "+1" gearbeitet werden muss, aber bin da leider raus.

Gruß

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 zusammen,

kann man für mehrere Textboxen bis auf Ausnahmen den gleichen Inhalt prüfen?

Zu Sache: Ich habe ein Userform mit einer Multiseite mit 10 Pages. Jeder Page hat 63 Textboxen, ergo 630 Textboxen im gesamten Userform.

Von diesen 630 Textboxen muss in 620 Textboxen geprüft werden, ob diese entweder leer sind oder eine Uhrzeit steht. Wenn dieses der Fall ist, dann ist alles Ok. Ansonsten soll entsprechend der Vorgang abgebrochen werden.

Die 620 Textboxen haben alle individuelle Namen wie (AN1t1a, AN1t1e, AN1t2a usw.) Dies ist nach einem bestimmten Muster.

Die restlichen Textboxen, die NICHT geprüft werden sollen haben Namen wie (AN_Name1, AN_Name2, AN_Name3 usw. bis 10).

Wie können nun alle 620 Textboxen auf folgendes Format geprüft werden:

Private Function CheckTime(ByVal txt As String) As Boolean

If txt.Length <> 5 or txt.Length <> 0 Then
Return False
End If

If txt(0) >= "3" Then
Return False
End If

If txt(0) = "2" AndAlso txt(1) >= "4" Then
Return False
End If

If txt(2) <> ":" Then
Return False
End If

If txt(3) = "0" AndAlso txt(4) <> "0" Then
Return False
End If

If txt(3) = "1" AndAlso txt(4) <> "5" Then
Return False
End If

If txt(3) = "2" Then
Return False
End If

If txt(3) = "3" AndAlso txt(4) <> "0" Then
Return False
End If

If txt(3) = "4" AndAlso txt(4) <> "5" Then
Return False
End If

If txt(3) > "4" Then
Return False
End If

Return True
End Function  

Falls die Prüfung auf die korrekte Uhrzeit fehlerhaft ist oder auch einfacher geht, nehme ich die Hilfe auch gerne an :) Erlaubte Uhrzeiten sollen im Forma HH:MM sein und im Viertelstunden Takt (10:00, 10:15, 10:30, 10:45) erlaubt sein. Nur Zahlen sind nicht möglich, da es auch einen Doppelpunkt gibt ;)

Gruß

Hallo,

ich habe eine Multiseite mit 10 Seiten (ANPage1 - ANPage10). Beim öffnen der Multiseite wird bereits die richtige Anzahl an Pages ausgegeben (Anzahl geht aus Tabelle 2 A10 hervor.

Wenn ich nun über ein anderes Steuerelement (hinzufügen oder entfernen) auf dem Userform den Wert für A10 um +/- 1 ändere (je nach Steuerelement), soll auch entsprechend die Page .Pages("ANPage").Visible = True gesetzt werden.

Beispiel:
in A10 steht die Zahl "5". Es wird mit öffnen der Multiseite 5 Pages ausgegeben. Drücke ich nun auf den Button "hinzufügen", dann wird der Wert in A10 "6". entsprechend soll nun die ANPage6 auf Visible = True gesetzt werden.

Wenn ich nun auf den Butten "entferne" drücke, dann wird aus A10 die Zahl "5" und entsprechend soll die ANPage6 auf Visible = false gesetzt werden.

Ich weiß, es sind zwei verschiedene Befehle und wird wahrscheinlich eine Schleife? sein, jedoch habe ich da keine Ahnung, wie ich dies umsetze. Das drumherum im Befehl steht bereits.

Wahrscheinlich denke ich auch zu kompliziert.

Gruß

Hallo zusammen,

ich habe eine Problem mit der Comobox. Die Combobox läuft über Userform und es wird nicht angezeigt.

Folgendes:

Ich möchte, dass wenn die auf den Butten druckt, schließt sich die alte Box (Lobby) und die neue Box (Start) öffnet sich. In der Box gibt es zwei Comboboxen, dessen dropdown aber nicht angezeigt wird. Deren Namen (AnAnzahl) und (Monatsauswahl) sind aber korrekt. Über .AddItem hätte ich es auch bereits versucht. Zudem hatte ich den Befehl auch direkt als Private Sub und nicht im Schritt zuvor beim vorigen Button.

Die Bilder zeigen die Eigenschaften und den Fehler.

 Private Sub Stundenerfassung_Click()
Lobby.Hide
Start.Show
Dim AnAnzahl(9) As Variant
Dim Monatsauswahl(11) As Variant
AnAnzahl(0) = "1"
AnAnzahl(1) = "2"
AnAnzahl(2) = "3"
AnAnzahl(3) = "4"
AnAnzahl(4) = "5"
AnAnzahl(5) = "6"
AnAnzahl(6) = "7"
AnAnzahl(7) = "8"
AnAnzahl(8) = "9"
AnAnzahl(9) = "10"
Monatsauswahl(0) = "Januar"
Monatsauswahl(1) = "Februar"
Monatsauswahl(2) = "März"
Monatsauswahl(3) = "April"
Monatsauswahl(4) = "Mai"
Monatsauswahl(5) = "Juni"
Monatsauswahl(6) = "Juli"
Monatsauswahl(7) = "August"
Monatsauswahl(8) = "September"
Monatsauswahl(9) = "Oktober"
Monatsauswahl(10) = "November"
Monatsauswahl(11) = "Dezember"
End Sub

Bilder:

Danke für die Hilfe.

Gruß

Guten Tag zusammen,

ich habe folgendes Problem: Wenn ich aus der Excel-Datei per Makro eine PDF erstellen möchte, kommt seit kurzem folgender Fehler:

Laufzeitfehler -2147417848 (80010108):
Automatisierungsfehler
Das aufgerufene Objekt wurde von den Clients getrennt.

Lt. Debugger ist folgender Zeile betroffen:

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
     DateiName, Quality:=xlQualityStandard, _
     IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
     False   

Der Fehler tritt nur bei Excel 2016 auf. Bei der Verson 2010 gibt es keine Probleme. Kann es daran liegen, das Excel 2016 noch nicht gekauft wurde sondern nur die Testversion ist? Jedoch halte ich dieses für unwahrscheinlich..

Der Fehler ist auch im Internet bereits bekannt, jedoch habe ich bisher noch keine Lösung gefunden.

Gruß

Guten Tag,

sicherlich eine einfach lösbare Frage, komme jedoch nicht direkt auf die Lösung. Kann ich im sverweis eine Verkettung (=verketten) vornehmen?

=sverweis(Suchkriterium;Matrix;Spaltenindex;Bereich_Verweis)

=SVERWEIS($G$9;liste!$A$3:$H$102;2&3;FALSCH))

Ich möchte dass in meinem sverweis Spaltenindex 2 und 3 wiedergegeben wird. Gerne mit Leerzeichen. Aber so wird der Fehler #BEZUG! wiedergegeben.

Gruß

Guten Tag,

ich habe ein kleines Problem.

Kurz zur Situation:

Ich möchte aus der Tabelle Test (Range A3:I102) nur die Zeilen löschen (ClearContents), wo in Spalte I "erledigt" steht. Jedoch sollen nur die Spalte A, B, D, E und I gelöscht werden. Dieses lasse ich über einen Button laufen.

Quasi: Wenn in Spalte I erledigt steht, dann lösche/cleare die dazugehörige Zeile in Spalte A, B, D, E und I. Die anderen Zeilen sollen nicht gelöscht werden. (Sind ja nicht erledigt :D)

Kann da jemand etwas aus dem stehgreif raushauen?

Vielen Dank!

Gruß

Hallo zusammen,

ich möchte gerne in Excel für die anstehende EM einen Spielplan erstellen. Dabei soll die Gruppentabelle so dynamisch wie möglich sein. Die einzelnen Zellen funktionieren bereits. Nun möchte ich, dass je nach Punkte die richtige Platzierung in der Gruppe angezeigt wird bzw richtig einsortiert wird.

Ich weiß, dass ich mit den Funktionen INDEX und VERGLEICH arbeiten muss. Nur leider bin mit dem Umgang dieser Formeln nicht sicher.

Die Gruppentabelle aus Bild 1 (Blatt: Übersicht) habe ich bereits kopiert (Bild 2 Blatt Einstellungen) und diese Formel verwendet:

=INDEX(Einstellungen!$H$75:$H$78;VERGLEICH(M6;Einstellungen!$S$75:$S$78;0))

Die Formel würde mir lediglich den Wert „Türkei“ wiedergeben“. Das Problem ist halt, wenn mehrere den gleichen Wert haben. (Am Anfang halt alle 0 Punkte).

Hat da jemand eine bessere Idee oder gibt es eine andere Möglichkeit, dass die Werte dann richtig positioniert werden (Land, G, S,N, U, Tore, Diff und Punkte)

Bild 1:

Bild 2:

Vielen Dank und Gruß

Guten Tag,

ich möchte aus der den Zellen N11:Q11 eine Verkettung machen und diese als Suchkriterium im SVerweis nutzen. Dabei habe ich folgende Formel:

=WENN(D14="";""; SVERWEIS(VERKETTEN(Werte!$N$11;Werte!$O$11;Werte!$P$11;Werte!$Q$11);Werte!$J$9:$K$408;2;FALSCH))

Aus der Matrix J9:K408 soll die zweite Spalte wiedergegeben werden. Der Inhalt der Verkettung sind Zahlen. Das Ergebnis ist auch in der Matrix vorhanden.

Die Wiedergabe von Excel lautet #NV.

Gruß

Guten Abend,

ich möchte gerne den Inhalt aus einer Inputbox in Zelle D28 schreiben, nur leider funktioniert es nicht.

Folgendes Makro: (sicherlich nicht schön geschrieben aber es bis auf die Zelle D28)

Sub erstellen()
   Dim NeuerTabellenName As String
   Dim TabellenName As Boolean
   Dim myInput As String
   Dim WsTabelle As Worksheet
   
   myInput = InputBox("Bitte geben Sie den Namen des neuen Monates an", "Monat anlegen")
   
   For Each WsTabelle In Worksheets
   If WsTabelle.Name = myInput Then
   TabellenName = True
   Exit For
   End If
   Next WsTabelle
   If TabellenName Then
   MsgBox ("Der Monat existiert bereits. Der Vorgang wurde abgebrochen. Bitte ueberpruefen Sie Ihre Eingabe.")
   Worksheets("Admin").Select
   Else
   NeuerTabellenName = myInput
   Worksheets("Muster").Copy After:=Sheets(Sheets.Count)
   Sheets(Sheets.Count).Name = NeuerTabellenName
   Worksheets("Admin").Range(D28).Value = myInput
   Worksheets("Admin").Select
   End If
End Sub

Der Fehler muss ja hier liegen:

Worksheets("Admin").Range(D28).Value = myInput

Über eine Lösung wäre ich sehr dankbar.

Gruß

Guten Tag,

gerne möchte ich per Makros eine Grafik in die Kopfzeile packen. Dabei habe ich folgendes zusammengebastelt:

With Sheets("Kundenbeleg").PageSetup
.CenterFooterPicture.Filename = "C:\Users\Robin\Desktop\Test.png"
.CenterFooter = "&G"
End With

Der Sheets ist korrekt und der Speicherpfad auch. Der Quelltext ist ein Auszug aus einem Makro, in dem die Seite Kundenbeleg als PDF gespeichert wird.

Die Speicherung funktioniert, nur leider ohne die "Test"-Grafik.

Habe ich noch etwas vergessen?

Gruß

Guten Abend,

ich möchte den Zelleninhalt bestimmter Zellen löschen, wenn eine gewisse Bedingung erfüllt ist. Dazu ist zu wissen, dass ich zwei Tabellen haben.
Tabelle 1: Rechungsliste
Tabelle 2: Uebersicht

Wenn ich in der Tabelle "Rechnungsliste" in Spalte I "erledigt" eintrage, soll in der Tabelle "Uebersicht" der dazu passende "Datensatz" (Spalte A-D) gelöscht werden. Jedoch nur der Inhalt, nicht die Zeile. Der Spalteninhalt aus Tabelle A dient als Suchkriterium. Die Range der Tabellen ist von A3:A100.

Beispiel:
Rechnungsliste: RE19002 (Spalte A) wird in "Spalte I" als "erledigt" markiert, dann soll in Tabelle "Uebersicht" der Inhalt der Spalten A-D von RE19002 gelöscht werden.

Ich weiß, dass dies als Funktion direkt im Tabellenblatt eingebaut werden muss, nur leider habe ich durch meine andere offene Frage kein Ansatz.

Das Prinzip müsste wie bei meiner anderen offenen Frage sein:

https://www.gutefrage.net/frage/vba-daten-in-zweite-tabelle-uebertragen#answer-328499597

Gruß

Guten Tag zusammen,

kurz und knapp: Ich möchte beim verlassen des Blattes, dass dieses ausgeblendet wird. Folgenden Code nutze ich:

Option Explicit
Sub FAQ_schliessen() 
Sheets("FAQ").Visible = False
End Sub

Den Code habe ich beim entsprechenden Tabellenblatt (FAQ) über "rechtsklick" "Code anzeigen" geschrieben. Jedoch passiert beim verlassen der Tabelle nichts. Hab ich bzw. muss ich noch etwas beachten oder hab ich etwas falsch gemacht?

Gruß

Guten Tag,

ich möchte gerne per Input-Abfrage ein Tabellenblatt löschen. Sie Eingabe in der Abfrage entspricht den Namen des Tabellenblatt. Leider komme ich nicht weiter, wie ich den Bezug von der Eingabe zum Tabellenblatt bekommen.

Hilfe wäre sehr nett

Gruß

Guten Abend zusammen,

eine kleine Frage am Rande, kann man die Range in der u.g. Quelle auch dynamischer bzw. flexibler machen? Gemeint ist damit die Zeile 102.

If myInput <> "" Then
FindData = Application.Match(myInput, Worksheets(myTab).Range("A3:A102"), 0)
If IsError(FindData) Then

Kann man die Zeile ändern, quasi aus einer anderen Zelle/anderen Tabelle die Zeilenanzahl entnehmen? Sprich sollte in Tabelle 2 A1 die Zahl 200 stehen, sollte die Range von A3:A200 gehen.

Wenn ja, wie müsste der Quellcode dann aussehen? Ich meine, dass es mit "i" irgendwie geht, aber keine Ahnung wie.

Gruß

Guten Tag,

ich habe eine Frage und zwar geht es um VBA.

Ich möchte gerne über die MSG input?Funktion einen gewissen Wert abfragen. Die Werte befinden sich in Tabelle 2 Range (A1:A20).

Sollte sich der eingegebene Wert nicht in dieser Tabelle befinden, dann soll eine Fehlermeldung zurückgegeben werden.

Wird der gewünschte Wert gefunden bzw. existiert er in der Tabelle 2 Spalte A, soll in der dazugehörigen Zeile (Tabelle 2 Spalte B) das Wort "erledigt" stehen.

Danach soll der Prozess geschlossen werden. Das Wort "erledigt" soll natürlich bestehen bleiben.

Leider komme ich da nicht weiter.

Hat jemand eine Idee? Hoffe habe mich verständlich ausgedrückt. Leider habe ich auch nicht so Ahnung von VBA.

Vielen Dank schon mal.

Gruß.

Guten Tag,

Ich möchte gerne zwei Tabellenblätter aus Excel (Tabellenblatt 1und 3) auf dem Desktop als .pdf speichern.

Der Name der Pdf sollte wie der Zelleninhalt aus Tabelle 1 Zelle G10 lauten.

Leider bekomme ich dies nicht hin.

Kann mir da jemand bitte helfen?

Mit freundlichen Grüßen