Hallo, ich benötige Hilfe bei einem Problem welches ich habe, ich möchte eine Tagesabfrage in eine KW abfrage verschachteln, also erst soll geprüft werden, welche KW es ist, dann soll geprüft werden welcher Tag(Montag oder Dienstag oder...) und dann soll für den passenden tag ein wert einer anderen Zelle eingegeben werden, z.B. ein Name. Beispiel: Wenn Wir die KW 35 Haben und es Montag ist soll in der Zelle Mattias Stehen.. Wenn wir KW 36 haben und es Montag ist soll z.B. Bernd stehen..

Leider habe ich nicht so viel Erfahrung mit Excel und bekomme es gerade mal hin eine einfach Wenn abfrage zu gestalten deshalb würde ich mich sehr über eine Antwort freuen.

Hallo!
Ich muss gerade solche bekloppten Excel-Beispiele machen.

Es geht um eine Liste, wo ein Name einer Ware (unrelevant), der Stückpreis und die Anzahl eingegeben werden muss. Der Gesamtpreis soll dann berechnet werden.

Wenn ich einfach nur zB B3*C3 hinschreiben würde, ständen überall Nullen.

Deshalb habe ich gedacht ich nehme die WENN-Funktion.

Wenn die Felder von Stückpreis und Anzahl leer sind, soll auch nichts beim Gesamtpreis stehen.

Allerdings meldet mir Excel einen Syntaxfehler. Kann mir bitte jmd. sagen wie es richtig geht.

Danke

Ich muss in sehr vielen Excel-Zellen am Anfang und Ende des Inhalts der Zelle ein Apostroph Zeichen hinzufügen.

Weiß jemand wie ich das automatisieren kann?

Hallo,

ich möchte in Excel quasi eine Art Rechnung erstellen.

Als Vorlage habe ich eine sehr komplexe Tabelle. Ziel soll es sein, dass eine neue Tabelle in einem neuen Tabellenblatt entsteht, wenn in der Vorlage in der Spalte "Anzahl" (im Beispiel Spalte C) etwas eingetragen wird.

Hier ein vereinfachtest Beispiel:

Tabelle 1

Spalte A (Art) Spalte B (Rasse) Spalte C (Anzahl)

Hund Schäferhund

Fisch Goldfisch 3

Vogel Eule

Maus Spitzmaus 5

Tabelle 2 soll nur Inhalte aufführen, wenn in Spalte C (Anzahl) der Tabelle 1 Zahlen stehen:

Spalte A (Anzahl) Spalte B (Art) Spalte C (Rasse)

3 Fisch Goldfisch

5 Maus Spitzmaus

Ich bin leider mit meinem Latein am Ende und brauche dringend Hilfe.

Liebe Grüße und vielen Dank,

Franzi

Hallo Zusammen

ich verwende im Moment ein kurzes Makro, um Änderungen in einem Tabellenblatt zu loggen.

Es registriert aber nur einzelne Änderungen, nicht multi-selektion oder Löschen von Spalten. Kann ich das mit separaten Privaten Subs übernehmen?

Und kann ich aufnehmen, was die Target- und "PreVal"-Adresse war (Offset 4+5)

Code:

Dim PreVal
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
PreVal = Target.Value
 
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
  
    On Error GoTo 0
    
    If Target.Value <> PreVal Then
        With Sheets(2).Cells(Rows.Count, 1).End(xlUp)
            .Offset(1, 0) = Now
            .Offset(1, 1) = PreVal
            .Offset(1, 2) = Target.Value
            .Offset(1, 3) = Environ("Username")
        End With
    End If
 
End Sub

Gibt es eine funktion die das Tagesdatum einfügt mit entweder einem button klick oder automatisch?

Ich denke da an, Wenn"zeile mehr als 0 zeichen" Dann"Tagesdatum Funktion"

Hallo,

ich Suche seit einer Std. nach eine Lösung, werde aber nicht fündig.

Und zwar möchte ich wenn in A1 die Ziffer "1" schreibe dann soll in der selben Zelle der Text erscheinen.

Also Wenn 1, dann "sehr gut"

Wenn 2, dann "gut"

Wenn 3 dann "befriedigend"

usw.

zudem soll die Zelle die Dropdown Funktion beibehalten

Ist das überhaupt möglich?

Ziel ist es sowohl per Ziffer den Text erscheinen zu lassen, als auch die Möglichkeit per Dropdown den Text auszuwählen.

Bitte um Unterstützung

Liebe Grüße

Hallo,

meine Frage lautet wie folgt:

Ich habe zwei verschiedene Tabellen mit jeweils 2 Spalten. Die Zeilen hier sind jeweils bindend, d. h. bspw. C1 und D1 gehören zusammen (in beiden Tabellen). Hier soll nun verglichen werden, ob ein Zeilenpaar in der anderen Tabelle vorhanden ist.

Vielen Dank vorab.

MfG

Robin

Hallo zusammen,

ich bräuchte einen Code, womit ich eine Textdatei (ca. 40000 Zeilen) in Excel schnell einlesen kann. Ich hab zwar einen Code aber der dauert zu lange oder hängt ganz Excel auf. Mein Code sieht so aus:

Sub Einlesen()

  Application.ScreenUpdating = False

  Sheets("Input_Raw").Activate

  Sheets("Input_Raw").Range("A2:Z2").EntireColumn.Delete

  Z = 1

  Dim pfad As String

  pfad = Sheets("Daten").Range("Pfad")

  Open pfad For Input As #1 'Datei wird geöffnet und als #1 abgespeichert

  Do While Not EOF(1)

    Line Input #1, temp   'Zeilenweises ablesen der Datei

    Sheets("Input_Raw").Cells(Z, 1) = Replace(temp, vbTab, ";") 'Zeilenweise reinschreiben in die Zeile 1

    Z = Z + 1

  Loop

  Close #1

  For j = 1 To Z

    Text = Split(Sheets("Input_Raw").Cells(j, 1), ";")

    For i = 0 To UBound(Text)

      Sheets("Input_Raw").Cells(j, i + 1) = Text(i)

    Next

  Next

Wäre gut, wenn mir jemand einen fertigen Code zur Verfügung stellen könnte. Danke im voraus!

Huhu ich versuche bei Excel 2007 es hin zu bekommen, dass ich eine Dropdownliste bekomme ohne Leerzellen, am besten ohne Hilfsspalte. Ich habe es mit diesen Beiden Formeln versucht (Namens Manager)

=Charakter!$Q$75:INDEX(Charakter!$Q$75:$Q$115;SUMMENPRODUKT(--(Charakter!$Q$75:$Q$115<>"")))

=BEREICH.VERSCHIEBEN(Charakter!$Q$75;;;ZÄHLENWENN(Charakter!$Q$75:$Q$115;">""");)

Es geht um die Spalte Q 75 -115

Auf dem Bild habe ich den Bereich makiert, den er bei beiden als Bereich sieht. Ich verstehe nicht, warum er nicht weiter runter geht. Auch sind in dem Dropdown dann nicht die Leeren Zellen weg. Ich sehe die ersten beiden Einträge und dann 3 Leere Einträge. Was mache ich denn falsch?

Hallo,

Ich hoffe ich könnt mir helfen.

Ich möchte gerne in die Zelle A4 einen link zu einer PDF setzen (sagen wir diese ist am Desktop und heisst TEST)

Und beim öffnen der PDF soll der Benutzer automatisch zu der Textpassage springen was IDENT mit dem Wert von der Zelle A1 ist.

Danke

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

ich möchte gerne die y-Achse meiner Excel-Tabelle logarithmisch darstellen (Immer größer werdende Intervalle). Mein Problem ist, dass ich nur Werte zw. 0 und 1 habe und Excel damit komplett nicht umgehen kann. Habt ihr eine Lösung für das Problem? Kann man irgendwie per Hand Intervallgrößen festlegen?

Hi Leute ich scheitere gerade an einer vermeintlich leichten bedingten Formatierung:

Das Rosa ist kein Thema aber wie kriege ich die Datenbalken 2 Farbig. Also heute soll der Datenbalken rot sein, ansonsten grau.

Ich muss für eine Fragebogenauswertung 10 gleichgroße Diagramme (Balken) erstellen. Die eingefügten Diagramme, sind zu groß (muß mehrere auf eine Seite kriegen) und so muss ich sie "Pi mal Daumen" nach Augenmaß verkleinern und anpassen, was nervt

Kann man das irgendwie anders hinkriegen?

Hallo,

ist es möglich zwei Prozeduren hintereinander zu starten ohne eine aus der anderen zu starten?

Also wenn ich:

Sub Test()
...
Call test1
End Sub

Läuft test1 ja irgendwie innerhalb von Test()

Ich hätte aber gerne

Sub Test()
...
End Sub

Sub test1()
...
End Sub

Und das dann nacheinander ausgeführt wird.

Mein Problem ist nämlich, das ich ein ListBox_Click Event habe und in diesem Click die Größe der Listbox ändere.

Nur läuft der "Click" so lange, wie das ganze Event läuft, das heißt:
Ändere ich die Größe innerhalb des Click-Events, so ändert sich auch die Ausgewählte Zeile in der ListBox...

Meine Listbox ist am Anfang 20+ Zeilen lang. Wegen der Übersicht, muss diese nach der Auswahl des Werts auf 2 Zeilen verkleinert werden.
Doch dann wird automatisch immer die zweite Zeile ausgewählt nach dem verkleinern.
Das passiert aber nicht, wenn ich die Verkleinerung in einer extra Sub manuell im nachhinein ausführe.

Eine andere Lösung wäre wahrscheinlich auch

Sub Test()
Call ListBox_Click
Call ListBox_Klein
End Sub   

So laufen Click und Verkleinerung nacheinander...aber ich kann das Click ja schlecht vor dem "Click" auslösen xD

Hallo,

ich erstelle derzeit eine Umsatzliste für mein Unternehmen. In diesem möchte ich auch die Verkaufsgebühren von eBay für meine Artikel einbeziehen (10% auf den Verkaufspreis und MAX. 19€)

Als Beispiel:

1. Artikel 100€
2. Artikel 1000€

Hat jemand eine Formel dafür?

Vielen Dank im Voraus und Liebe Grüße

Oguz

Ich lese in Python, mit Pandas eine Excel-Datei als Dataframe ein.

Gibt es eine Abfrage, die erkennt, ob eine Zelle in Excel durchgestrichen wurde?

Hi, ich habe verschiedene Steuerelemente hinterlegt, bei geschütztem Blatt. In meinem Fall hier in Zeile 18 "Zeile einfügen" und in Zeile 6 die Steuerelemente "Alles Anzeigen, A bis F". Wenn ich das Blatt normal schütze, kann ich es so einrichten, dass ich die "Filterfunktion" in Zeile 8 und "Zeile löschen" trotzdem freigeben kann. Wenn ich aber nun das Steuerelement "Zeile einfügen" aktiviere, kann ich danach die Filter nicht mehr auswählen und auch keine Zeile mehr löschen.

Wenn der Bearbeiter also Zeilen mit der Steuerung einfügt, die er zu viel macht oder nicht mehr benötigt, soll er diese Zeilen auch löschen und weiterhin die Filter anwenden können.

Vielleicht kann mir jemand helfen?

Hallo,

unserem Büro wurde eine neue Excelldatei zur Verfügung gestellt, die für mehrere Mitarbeiter freigeben ist, sodass man parallel darin arbeiten kann. Die Datei hat 8 Arbeitsblätter. Im 1. Arbeitsblatt befinden sich Dropdown-Menüs in 4 Spalten und ein paar Sverweise. In den anderen Arbeitsblättern befinden sich Daten in Form von Zahlen und Buchstaben auf die sich die Sverweise beziehen. Die Excel-Datei hatte anfänglich 4 MB. Soweit so gut. Mittlerweile ist sie auf 120 MB angewachsen, obwohl nur ca 250 Zeilen hinzugekommen sind. Mein Vorgehen: Ich habe eine Kopie abgespeichert. In der Kopie alle Dateninhalte gelöscht. Demnach war keine Formel mehr vorhanden, alle Rahmen entfernt, alle farblichen Hinterlegungen entfernt. (bedingte Formatierungen gab es von Anfang an nicht). Dann abgespeichert und die Datei hatte nun statt 120 MB mittlerweile 121 MB. Im Netz den Tipp gefunden mit strg+Ende zu prüfen wo Daten hinterlegt sind und diese Zeilen zu löschen. Ein Arbeitsblatt hatte Daten bis Zeile 180. Alle Zeilen komplett mit "Zeilen löschen" gelöscht. Aber beim Test strg+Ende spring es immer noch in Zeile 180. Vielleicht noch ein Hinweis: Es gibt separate Excel-Dateien, die Formeln wie Sverweis oder Alloy-Funktion mit Bezug auf diese zu große Excel-Datei. Aber Datei A vergrößert sich doch nicht, weil Datei B mit einer Alloy-Funktion sich Daten aus Datei A zieht...oder?

Ich bin für jede Hilfe dankbar wie ich diese Datei verkleinern kann oder zumindest die Ursache finden kann.