VBA-Wunsch zu Weihnachten

[twobbelix]

Hallo liebe Gemeinde,

ich hätte gerne ein VBA erstellt, aber ich habe keine Ahnung wie.
Ich hätte bei der angehängten Datei, bei dem Arbeitsblatt Auswertung 2 (Auswertung wäre auch OK) eine Abfrage, in der man das Projekt eingibt und dann ausgegeben wird, welche Mitarbeiter daran arbeiten (X in der Matrix). Die X'e sind allerdings flexibel.......


Hat jemand ne Lösung, ne Idee, kann mich anleiten?
wie man das Formular erstellt weiss ich, nur nicht den Abfragecode, wenn Projekt A, dann......


Danke  einen schönen Tag und frohe Weihnachten

eure Twobbi

[schauan]

Hallo Twobbi,

muss es denn unbedingt VBA sein? Ohne VBA würde ich als Lösungsansatz auf eine Pivot-Tabelle tippen.

[twobbelix]

Hallo schauan,

nein müssen muss gar nix ^^ Ich würde gerne nur mal so was mit VBA machen, etwas dazu lernen.... An Weihnachten darf man sich doch was wünschen ^^

Würde Pivot mit so einer Matrix, wo sich die X'e auch ständig ändern überhaupt funktionieren? naja hab zwischen den Jahren reichlich Zeit zu probieren ^^

[Rabe]

Hi,

Würde Pivot mit so einer Matrix, wo sich die X'e auch ständig ändern überhaupt funktionieren?  naja hab zwischen den Jahren reichlich Zeit zu probieren ^^

ja, Du kannst per Makro erreichen, daß, wenn sich innerhalb eines definierten Bereiches etwas ändert, dann automagisch (das Wort verwende ich auch sehr gern) auch die Pivot aktualisiert.
Ich suche mal nach dem Makro.

Schau mal hier, da gibt es erst mal 3 Methoden:
http://www.clever-excel-forum.de/Thread-...n?pid=2643&highlight=pivot+aktualisieren+makro#pid2643

Und hier das Makro zum automagischen Aktualisieren bei Änderungen im Tabellenbereich A2 bis K12:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Bereich1 As Range
  Dim pt As PivotTable
  
  Set Bereich1 = Range("A2:K12")
  If Not Intersect(Target, Bereich1) Is Nothing Then
     For Each pt In ActiveSheet.PivotTables
        pt.RefreshTable
     Next pt
     
  End If
End Sub

  PT_Test_Gesamt - Pivot.xlsb (Größe: 89,46 KB / Downloads: 8)

[twobbelix]

Hallo Rabe,

sieht ja soweit ganz gut aus, aber bei dann über 50 Mitarbeitern wird das ganze dann auch etwas unübersichtlich........

@Rabe und @all,


ich habe das so mit Pivot gelöst (siehe Anhang Tabelle 31).- Auch nicht die feine art, abner immerhin. Da kann man sich dann bei dem bestimmten Projekt nur das X filtern lassen und ´die entsprechenden Mitarbeiter werden unten dann angezeigt......
Aber das finde ich mit den umfiltern immer etwas umständlich und sowieso bei an die Hundert Projekte.......

schönen Tag
eure twobbi

p.s. VBa will keiner? ^^

[AlterDresdner]

p.s.  VBa will keiner? ^^

Hallo twobbelix,
Weihnachtswünsche soll man nicht enttäuschen... (auch wenn es vielleicht erst nach Neujahr wird)
Ein Makro wäre nicht problematisch, was soll denn entstehen?
- eine neue Tabelle oder Datei, in der Projekt und Mitarbeiter stehen?
- ein einfaches Anzeigefenster mit diesen Angaben und OK?
- eine Variante, die die obigen 3 Möglichkeiten zur Auswahl zulässt?
- oder was?
Gruß der AlteDresdner

[twobbelix]

hey AlterDresdener,

Weihnachten ist leider schon vorbei ^^   ausserdem ist es viel schöner, wenn man selber sich einen Wunsch erfüllen kann :)  :18:   OK, bisserl Hilfe hatte ich in der Firma......
Aber wie war dies?  Der Gedanke zählt. und danke, dass du helfen wolltest, bzw. mir den Wunsch erfüllen wolltest ;)  :17:


Mittlerweile habe ich selber was getüftelt.

Bei einem Doppelklick auf das Projekt wird jetzt angezeigt, welche Mitarbeiter daran arbeiten. Wers ausprobieren möchte ^^:  IM Anhang beim Arbeitsblatt Auswertung 2 einen Doppelklich auf ein Projekt machen.

Der dazugehörige Code sieht folgendermassen aus (für denjenigen den es interessiert):


Option Explicit

Public Function MitarbeiterAuswertung(ByVal Zeile As Long)

Dim i As Long
Dim LastCol As Long

LastCol = Me.UsedRange.Columns.Count

Dim Mitarbeiterliste As String
Mitarbeiterliste = "Mitarbeiter auf Projekt " & Me.Cells(Zeile, 1) & ":" & vbNewLine & vbNewLine


For i = 2 To LastCol
   If UCase(Me.Cells(Zeile, i)) = "X" Then
       Mitarbeiterliste = Mitarbeiterliste & Me.Cells(2, i) & vbNewLine
   End If
Next i

MsgBox Mitarbeiterliste, vbInformation + vbOKOnly, "Mitarbeiterauswertung"

End Function

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Target.Column = 1 Then
       Call MitarbeiterAuswertung(Target.Row)
       Cancel = True
   End If
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
   If Target.Column = 1 Then
       Call MitarbeiterAuswertung(Target.Row)
       Cancel = True
   End If
End Sub



Wünsche Euch allen einen guten Rutsch und einen guten Start ins neue Jahr

Eure Twobbi