Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1580to1584
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1580to1584
1580to1584
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einzelne Daten aus Tabelle auslesen und ausgeben

Einzelne Daten aus Tabelle auslesen und ausgeben
14.09.2017 14:46:57
Laura
Hallo Makro Experten,
ich brauche Eure Hilfe. Während meines Projektes habe ich mich sehr viel mit Datensammlung und Auswertung beschäftigt.
Zum Abschluss würde ich als i-Tüpfelchen noch ganz gerne ein Makro dazu erstellen.
Zusammenfassung: Ich erhalte aus einer Datenbank Messwerte (Datum, Zeit, Axen-position der Maschine, sowie aktuelle Produktgröße). Das Produkt wird geschnitten. Ich möchte gerne ausgegeben haben wie viele Schnitte welcher Produktgröße gemacht wurden bevor das Werkzeug gewechselt wurde. In excel bin ich recht fit, ich habe mir alle benötigten Daten bereits über Formeln besorgt, allerdings habe ich keine Ahnung von Makro Syntax :(
Nach ausführlicher Forums & Google recherche muss die Logik denke ich ungefähr so lauten:
'Loop der Werkzeugwechsel abfragt und Schnitte je Programm hochzählt
'Variablen und Bereiche deklarieren
'Startpunkt auswählen
'Zähle Schnitte für jeweiliges Programm und schreibe in Zelle
'Do Until Scheibenwechsel ungleich "leer"
'Dann schreibe Zeit des Scheibenwechsels in nächste Zelle
'Zähle wieder Schnitte.. loop von vorne..
'Bis Axpos = ""
'end loop
Ich habe es nicht hinbekommen, mir fehlt einfach die Syntax... angehängt findet ihr einen kleinen Beispiel Ausschnitt der Daten, sowie unter dem Tabellenblatt "Ausgabe" seht Ihr wie ich mir das ungefähr gedacht habe.

Die Datei https://www.herber.de/bbs/user/116241.xlsx wurde aus Datenschutzgründen gelöscht

Vielleicht kann jemand helfen, vielen Dank schon vorab.
SG

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einzelne Daten aus Tabelle auslesen und ausgeben
14.09.2017 16:34:23
onur
Wenn du mir sagst, woran man genau Werkzeugwechsel erkennt, kannst du wahrscheinlich auf die Hilfsspalten verzichten.
AW: Einzelne Daten aus Tabelle auslesen und ausgeben
14.09.2017 16:46:51
UweD
Hallo
Hilfsspalte J und L brauch ich nicht
Hilfsspalte K kann man auch in VBA abdecken (ist mir aber hier zu viel Arbeit)
Den Code in ein normales Modul
Sub TT()
    On Error GoTo Fehler
    Dim TB1, TB2, i As Double, Z As Double, RR As Double, LR As Double
    Dim Anzahl As Integer, Groesse As Integer, Wechsel As Date
    
    '*** Stammdaten Anfang 
    Set TB1 = Sheets("Data")
    Set TB2 = Sheets("Ausgabe")
    '*** Stammdaten Ende 
    
    'reset 
    RR = TB2.Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile des gesamten Blattes 
    TB2.Cells(5, 1).Resize(RR - 5, 3).ClearContents
    With TB1
        LR = .Cells(.Rows.Count, "E").End(xlUp).Row 'letzte Zeile der Spalte 
        Z = 5
        For i = 3 To LR
            If .Cells(i, "I") = 1 Then
                If .Cells(i, "G") <> .Cells(i - 1, "G") Then
                    TB2.Cells(Z, "B") = Anzahl
                    Anzahl = 0
                    
                    TB2.Cells(Z, "C") = Groesse
                    Z = Z + 1
                Else
                    Anzahl = Anzahl + 1
                    Groesse = .Cells(i, "G")
                
                End If
            End If
            If .Cells(i, "K") <> "" Then
                Wechsel = .Cells(i, "K")
               
                TB2.Cells(Z, "B") = Anzahl
                Anzahl = 0
                    
                TB2.Cells(Z, "C") = Groesse
                Z = Z + 1
                
                TB2.Cells(Z, "A") = Wechsel
                TB2.Cells(Z, "B") = "Werkzeugwechsel"
                Z = Z + 1
                
            End If
        
        Next
    End With
    
    '*** Fehlerbehandlung 
    Err.Clear
    On Error GoTo Fehler
Fehler:
    Application.EnableEvents = True
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear
End Sub

LG UweD
Anzeige
AW: Einzelne Daten aus Tabelle auslesen und ausgeben
14.09.2017 17:06:27
Robert
Hallo Laura,
das ganze müsste auch ohne VBA als Pivot-Tabelle gehen.
https://www.herber.de/bbs/user/116242.xlsx
Dabei bin ich davon ausgegangen, dass nur dann ein Schnitt gezählt werden soll, wenn in der Spalte Schnitt eine 1 steht. Sollte jede Zeile als Schnitt gelten, muss die Berechnung in der Pivot-Tabelle von Summe auf Anzahl geändert werden.
Gruß
Robert
PS
Deine Formel in der Spalte K kann noch etwas verkürzt werden, für die Zelle K3 so:
=WENN(UND(ZÄHLENWENN(H4:H18;">-100")=15;H3

354 Forumthreads zu ähnlichen Themen

Zahlen aus Zelle auslesen
Timo

Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
14.08.2008 11:16:00
Thread-ID: 1001770
7 Beiträge
Anzeige
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Worksheet über Codename ein/ausblenden
Reinhard

Hallo Wissende,
geht es auch direkt ein Worksheet anhand des Codenamen ein/auszublenden?
Eine Schleife kriege ich hin, die alle Blätter durchläuft und wenn der gesuchte Codename gefunden ist dieses Blatt/Worksheet aus/einblendet.
Meine Frage ist also, geht das auch ohne Schleife?
28.08.2008 16:28:02
Thread-ID: 1005518
6 Beiträge
Anzeige
Sheet-Name einer Variablen zuweisen
TommiH

Hallöchen,
hmm, bei dieser Variante bekomme ich eine Fehlermeldung, die mir allerdings nicht wirklich hilft, den Fehler zu finden. Was mache ich da falsch?
Dim v1 As String
v1 = ActiveSheet.Name
Sheets.Add After:=v1
ActiveSheet.Name = "Dummy"
Worksheets(v1).Activate
...
01.09.2008 11:04:00
Thread-ID: 1006356
4 Beiträge
Tabellenblattname in Zelle eintragen
obelix-xxl

Hallo,
ich habe mir eine Tabellenblatt als Vorlage erarbeitet und dieser Tabelle auch den Namen Vorlage gegeben.
Mit einem Makro kann ich nun über die zugewiesene Tastenkombination diese Tabelle an das Ende der Arbeitsmappe kopieren. Dabei fragt das Makro nach dem Tabellenblattnamen. Di...
04.09.2008 21:27:29
Thread-ID: 1007526
3 Beiträge
Zellinhalt aufgrund Sheetname und Zelle ermitteln
Peter

Guten Tag
Wahrscheinlich stehe ich mir selbst auf der Leitung.
Mit Hilfe der String-Variablen strTab (enhaltend der Worksheet-Name) und strZelle (enthaltend die Zelladresse, z.B. A3) möchte ich den Wert der entsprechenden Zelle (Text) ermitteln und der Variable strContent zuweisen.
...
11.09.2008 10:31:00
Thread-ID: 1009001
3 Beiträge
Namen anderer Excel-Datei in Zelle übernehmen
alphaomega

Hallo,
ich habe hier Excel 2002 und 12 Excel-Dateien mit den Namen 2008-01, 2008-02, ..., 2008-12.xls.
Nun möchte ich eine weitere Excel-Datei als Übersicht anlegen, wo einige Daten aus den o.g. Zellen übernommen werden sollen. Wie das geht, weiß ich bereits: Das geht manuell durch copy...
19.09.2008 10:33:37
Thread-ID: 1010950
3 Beiträge
Zelle A2 in Tabelle "Daten" ansprechen
Wolfgang

Hallo,
mit untenstehendem Auszug aus einem Code wird ein Textfeld in einem UF mit Daten aus einem anderen Textfeld des UF "beschickt"; Was müßte ich verändern (kriege das nicht hin), wenn ich nun das ausgeblendete Tabellenblatt "Daten" ansprechen möchte und den Inhalt aus "A2" importieren m...
23.09.2008 09:01:00
Thread-ID: 1011622
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
7
2
5
5
3
2
2
2
3
1
3
1
4
3
6
3
1
3
11
8
4
5
14
6