Collapse column

Beiträge anzeigen

Diese Sektion erlaubt es dir alle Beiträge dieses Mitglieds zu sehen. Beachte, dass du nur solche Beiträge sehen kannst, zu denen du auch Zugriffsrechte hast.


Nachrichten - einfachbauen

Seiten: [1]
1
Excel / Office 2016 3D-Karte - Landkreis München
« am: August 11, 2017, 09:11:05 Vormittag »
Hallo zusammen,

ich habe ein Problem mit dem Tool "3D-Karte", welches bei Excel 2016 standardmäßig verfügbar ist. (Einfügen -> Touren).

In meiner Tabelle sind die Namen der Landkreise und Städte mit dem entsprechendem Städtenamen aufgelistet (siehe Anhang).
Wenn ich jetzt das Tool 3D-Karte starte und in der Schicht die Verwaltungsbezirke als Region anzeigen lasse, dann fehlt in der Darstellung der Landkreis München.
Dieser ist jedoch definitiv in den Daten hinterlegt!

Weiß jemand wie ich auch den Landkreis München anzeigen lassen kann?

Vielen Dank!




2
Hey,

habe das Problem selbständig lösen können.

Falls es jemanden interessiert: Anstatt eines Liniendiagrammes ein Punk-Liniendiagramm verwenden.

Die unterschiedlichen Werte der X-Achse werden automatisch an der richtigen Stelle eingetragen.

3
Hallo zusammen,

habe leider ein kleines Problem und hoffe ihr könnt mir dabei auf die Sprünge helfen.

Ich habe folgende Tabelle vorliegen:

Spalte A: Uhrzeit im Format HH:MM:SS, Intervall: 1 Minute
Spalte B: Messwert zu A
Spalte C: Uhrzeit im Format HH:MM:SS, Intervall: 1 Stunde
Spalte D: Messwert zu C

Daraus habe ich bereits ein Liniendiagramm erstellt. Es hat die Uhrzeit aus A als X-Achse, ich habe mir jedoch zur besseren Übersichtlichkeit nur die Stunden anzeigen lassen.

In dieses Diagramm würde ich gerne den Verlauf auf Stundenbasis integrieren. Wenn ich eine neue Datenreihe hinzufüge werden mir aber nur die ersten 24 Werte eingetragen.
In einem neuen Diagramm ist es unproblematisch möglich :-\

Ich hoffe, mein Problem verständlich dargelegt zu haben und freue mich auf eure Unterstützung!

Viele Grüße

Jan


PS: Ist das Problem in Excel 2016 einfacher zu lösen?

4
Excel / Antw: Sekundenwerte in gemittelte Minutenwerte umwandeln
« am: März 03, 2017, 08:38:24 Vormittag »
Hallo Günther,

vielen Dank für deinen Hinweis.

Habe das ganze jetzt daheim mit Excel 2016 probiert und es klappt unproblematisch.


Viele Grüße

Jan

5
Excel / Sekundenwerte in gemittelte Minutenwerte umwandeln
« am: Februar 28, 2017, 16:46:50 Nachmittag »
Hallo zusammen,

habe ein Problem mit Excel und hoffe ihr könnt mir dabei helfen.

Habe in Spalte A Werte in der Form DD.MM.YYYY HH:MM:SS und dazu gehörige Messaufzeichnungen in Spalte B.

Es wurden sekündlich Messungen durchgeführt, aus denen ich Mittelwerte berechnen möchte.

Problem: Es wurden nicht exakt jede Sekunde ein Wert gemessen, also sind es nicht zwangsläufig 60 Messungen pro Minute.

A                                       B
11.11.2014 17:04:58   2,77994
11.11.2014 17:04:59   2,79033
11.11.2014 17:05:01   2,80592
11.11.2014 17:05:02   2,80592
11.11.2014 17:05:03   2,80073
11.11.2014 17:05:04   2,81112

--> Mich interessiert:
11.11.2014 17:04           Durchschnittswert
11.11.2014 17:05           Durchschnittswert
...
Jetzt habe ich gesehen, dass man mittels einer PivotTabelle Gruppen bilden kann die mir beispielsweise Tag, Stunde und Minutenwert zusammenfassen und die einzelnen Einträge darunter.
Wie bekomme ich daraus die Minutenwerte abgeleitet?

Für die Stundenwerte suche ich ebenfalls nach einer Lösung.

Hoffe meine Problembeschreibung ist aussagekräftig genug!

Viele Grüße :-)

6
Hey,

danke für deine Antwort, allerdings möchte ich keine Formel in der Tabelle eintragen sondern mit einem Makro die Kalenderwoche eintragen lassen!

7
Excel / Office 2013: [Excel 2013] Kalenderwoche mit VBA in Zelle eintragen
« am: Juni 17, 2016, 16:16:26 Nachmittag »
Hallo zusammen

ich habe eine Datei in der per Userform Einträge vorgenommen werden, unter anderem das Datum

Spalte A: Eintrag von
Spalte B: Eintrag am (Datum in Form von DD.MM.YYYY)
Spalte C: Benötigte Dauer
Spalte D: Anmerkung

mit jedme Eintrag wird eine neue Zeile eingefügt.

Jetzt möchte ich gerne noch die Kalenderwoche (ausgehend vom Eintrag in Spalte B) in Spalte E stehen haben.

Wie funktioniert das?

Option Explicit

Function kalenderwoche_din(Datum As Date) As Integer
    ''von Christoph Kremer, Aachen
    'Berechnt die KW nach DIN 1355
    Dim t&
    t = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1)
    kalenderwoche_din = (Datum - t - 3 + (Weekday(t) + 1) Mod 7) \ 7 + 1
End Function

8
Hallo zusammen,

ich hoffe ihr könnt mir bei meinem Problem helfen.

Es geht darum, dass Mitarbeiter in der Produktion einen Eintrag in eine Excel Userform tätigen, um Fehler zu erfassen.
Dort sind Dropdown-Listen vorbereitet, eine Datumsauswahl und zuletzt müssen sie selbständig die Artikelnummer eingeben.

Es existieren also 7 Baugruppen, 10 Fehlerarten und 2 Fehlerorte.

Die Excel-Userform:
Fertig. Aber wie kann ich die Kalenderwoche in einer weiteren Spalte automatisch anzeigen lassen? Das Datum steht ja schon in einer vorherigen Spalte.

Die Daten werden also in die entsprechende Sammelliste eingetragen.

Jetzt zur Auswertung:
Ich möchte, dass für eine bestimmte Kalenderwoche (per Eingabe) die Arbeitsmappe "Vorlage" mit der entsprechenden Häufigkeit der Fehler einer bestimmten Baugruppe+Fehlerart+Fehlerort ausgefüllt wird.

Also beispielsweise taucht die Baugruppe 3 mit dem Fehler 3 unten in der Kalenderwoche 23 zweimal auf.

Einzelne Code-Segmente habe ich schon erarbeitet, allerdings fehlt mir der Zusammenhang.


Filtern von Daten
Sub Filter1()

 Dim Eingabe As String

 Eingabe = InputBox("Geben Sie die KW ein.")

 Sheets("Daten").UsedRange.AutoFilter Field:=6, Criteria1:="=" & Eingabe
 Sheets("Daten").UsedRange.AutoFilter Field:=1, Criteria1:="F3"
 Sheets("Daten").UsedRange.AutoFilter Field:=2, Criteria1:="Fehler3"
 Sheets("Daten").UsedRange.AutoFilter Field:=3, Criteria1:="oben"



Zählen der gefilterten Daten, und Eintrag in das Feld Daten.
Sub x()
   Dim lngLastRow As Long
   Dim intLastColumn As Integer
   
   With Worksheets("Daten")
      lngLastRow = IIf(Len(.Cells(.Rows.Count, 1)), .Rows.Count, .Cells(.Rows.Count, 1).End(xlUp).Row)
   End With
   Worksheets("Vorlage").Range("D8").Value = lngLastRow - 1
End Sub


Reset des Filters
Sub Reset_Autofilter()
With Daten
.ShowAllData
End With
End Sub


Erstellen einer neuen Arbeitsmappe
Sub Create_wks()
    Worksheets("Vorlage").Copy before:=Worksheets("Daten")
    ActiveSheet.Name = "Kalenderwoche " & Worksheets.Count - 2
End Sub


Ich brauche eure Hilfe also bei:
1. Wie trage ich die Kalenderwoche ausgehend vom Datum in Spalte D mittels Makro in Spalte F ein?
2. Was muss ich tun, damit Excel nach der Eingabe der KW ein neues Blatt mit der Vorlage erstellt und im alten Arbeitsblatt die einzelnen Kombinationsmöglichkeiten durchläuft (Beispiel: F1&Fehler1&oben, F1&Fehler1&unten,...) und die Anzahl auf dieses neue Blatt einträgt?

Freue mich auf eure Unterstützung!

Viele Grüße

Jan

9
Excel / Antw: Summe wenn Zelle farbig und vorgegebener Text in Nachbarzelle
« am: April 14, 2016, 19:40:16 Nachmittag »
Hey,

danke für deine Antwort, ist eine gute Idee!

Leider hat die Umsetzung bei mir nicht geklappt... :-[


10
Excel / Summe wenn Zelle farbig und vorgegebener Text in Nachbarzelle
« am: April 14, 2016, 17:46:02 Nachmittag »
Hallo zusammen!

Habe ein kleines Problem bei dem ich eure Unterstützung brauche.

Meine Tabelle besitzt im Grunde zwei Spalten, A und B.
In den Zeilen der Spalte A steht entweder ein "J" oder ein "N"
In den Zeilen der Spalte B stehen verschiedene Namen etc., welche teilweise mit einer Hintergrundfarbe bspw. Gelb eingefärbt sind.

Ich möchte nun wissen, wie viele Namen in Spalte B in einem bestimmten Bereich z.B. von Zeile 1 bis 30 gelb eingefärbt sind UND gleichzeitig ein "J" in der Zelle daneben stehen haben.

Bislang habe ich nur einen VBA Code der funktioniert, wenn die Zelle mit dem "J" eingefärbt wurde. Dies ist leider nicht der Fall. Was muss ich ändern damit der Inhalt sich auf eine andere Zelle bezieht?

Oder gibt es andere Vorschläge?

Vielen Dank schonmal!


Function FarbigeZellenZählenNeu(rng As Range, Farbe, Inhalt)
Dim Zelle As Object
Application.Volatile
For Each Zelle In rng
If Zelle.Interior.ColorIndex = Farbe And Zelle = Inhalt Then FarbigeZellenZählenNeu = FarbigeZellenZählenNeu + 1
Next
End Function

Seiten: [1]