MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 20.10.2017, 09:49   #1
D.Hol
Neuer Benutzer
Neuer Benutzer
Konfus Excel2010 - VBA um Werte der richtigen Tabellenspalte zuzuordnen

Hi zusammen,
seit ein paar Tagen beschäftigt mich folgendes Problem:
Ich hab eine Tabelle:
Vertikalen Achse beinhaltet das Datum und eine Nummer.
Die Horizontale Achse beinhaltet verschiedenste Fehlerarten.

Beispiel:
Fehlerarten: 1, 2, 3, 4, 5 und 6;
Meine Nummer ist die sog. FAUF (8888) und das Datum (10.10.2010).

Ich will nun in einer Zeile diese FAUF und das Datum eingeben, über ein Dropdown die vorkommenden Fehlerarten auswählen und sagen wie oft der Fehler vorkommt.

Fehlerart (Dropdown): 2 4 5 (Erklärung: Zeile A wähle ich meine Art aus)
FAUF Date Fehlerzahl:1 2 1 (und Zeile B sag ich wie oft diese Auftritt)
8888 10.10.2010

Nun soll per Klick diese Werte in die Tabelle geschrieben werden. Den Part habe ich im einfachen Stil selbst hin bekommen.
PHP-Code:

Sub Test2()
Range("B2:C2").Select
Selection
.Copy
Range
("B4").Select
Do While ActiveCell.Value <> ""
    
ActiveCell.Offset(10).Range("a1").Select
Loop
ActiveSheet
.Paste
Application
.CutCopyMode False
End Sub 
Jetzt will ich aber, dass das Programm die selektierten Fehlerarten und die dazugehörige Fehleranzahl in die richtige Spalte der Tabelle dazuordnet.

Der einfache Weg wäre in meinen Augen, die Tabelle in meinem Ablese Bereich einzubauen und es 1:1 runter zu kopieren. Leider hab ich in meinem Anwendungsfall ca 40 Fehlerarten, was das ganze genauso unübersichtlich machen würde, als wenn ich es direkt in die Tabelle unten einpflege.
Also will ich, dass das Programm erkennt welche Fehlerart(en) ich ausgewählt habe und die dazu eingegebene Zahl(en) richtig in die Tabelle einordnet

Ich hoffe ich konnte mein Problem klar genug darstellen und hoffe noch mehr, dass ihr mir hier helfen könnt

Vielen Dank schonmal im Voraus

LG Domi
Angehängte Grafiken
Dateityp: png Beispiel.PNG (11,9 KB, 11x aufgerufen)
D.Hol ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.10.2017, 14:14   #2
Hasso
MOF Meister
MOF Meister
Standard

Hallo Domi,

ein Bild ist wenig hilfreich bei der Problemlösung.

Mein immer wieder gerne gegebener Tipp: Das Hochladen einer Beispieldatei, gerne auch mit anonymisierten Daten, in der das Problem und das gewünschte Ergebnis dargestellt werden, erhöht die Aussicht auf eine hilfreiche Antwort ungemein!
Ich habe keine Lust, nach deiner Fragestellung selbst eine Datei zu erstellen, wenn diese bei dir schon existiert.

__________________

Gruß Hasso

Programmers don't die, they just GOSUB without RETURN

System Windows 7 Enterprise 64, Office 2013
Wenn dir mein Beitrag gefallen hat, kannst du ihn bewerten (mit dem Symbol links unten)
Hasso ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 23.10.2017, 09:13   #3
D.Hol
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Hasso,

danke für die Antwort, anbei die Excel Datei.
Angehängte Dateien
Dateityp: xlsm Einordnen von eingaben.xlsm (24,8 KB, 7x aufgerufen)
D.Hol ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 03.11.2017, 10:34   #4
D.Hol
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hey ho,

falls jemand das selbe Problem hat hier meine selbst gebastelte Lösung (Achtung Excel Datei hat sich verändert)
PHP-Code:

Sub abc()


Dim spalte As Integer
Dim x 
As Integer
Dim Ws 
As Worksheet
Dim y 
As Variant
Dim z 
As Variant


Set Ws 
Worksheets("Tabelle2")

Ws.Cells(22).Value Ws.Cells(1110)
Ws.Cells(23).Value Ws.Cells(1111)

12
Do While Ws.Cells(10x).Value <> ""
    
spalte 4
    
Do While spalte 10
        
If Ws.Cells(3spalte).Value Ws.Cells(10x).Value Then
            Ws
.Cells(2spalte).Value Ws.Cells(11x)
        
End If
        
spalte spalte 1
    Loop
    x 
1
Loop

Range
("B2:I2").Select
Selection
.Copy
Range
("B4").Select

Do While ActiveCell.Value <> ""
    
ActiveCell.Offset(10).Range("a1").Select
Loop
ActiveSheet
.Paste
Application
.CutCopyMode False

Ws
.Range("B2:I2").ClearContents
Ws
.Range("J10:N11").ClearContents
End Sub 
Letztendlich habe ich die Fehlerarten der Reihe nach abgefragt und sie in der Richtigen Reihenfolge (Reihenfolge der Tabelle) sortiert (If Schleife).
Im gleichen Zug habe ich gesagt er soll die Anzahl der Fehler oberhalb der Tabelle einfügen, damit diese sofort der Richtigen Spalte zugeordnet sind.
Am Ende kommt nur noch der Part den ich schon hatte: alles kopiere und die nächste Freie Zeile suchen und es einfügen.
D.Hol ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 08:34 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.