Daten auf anderem Tabellenblatt eintragen

09/12/2008 - 13:37 von Manfred Saborowski | Report spam
Hallo,
ich habe folgendes Problem:
Ich habe eine Tabelle "Daten" mit Monatstagen in C3 bis AG 3.
In Spalte B stehen von B4 bis B8 verschiedene Namen.
Auf einem anderen Tabellenblatt "Übersicht" habe ich diese Namen in Zeile 4.
Nun möchte ich unter jedem Namen die Datümer aus der Tabelle "Daten", wenn
in den Namenszeilen unter den Datümern ein "X" steht.
Beispiel: Name: Müller ein "X" am 3.12. und ein "X" am 15.12. und eins am
22.12.
Meier ein "X" am 13.12. und eins am 22.12.
Ich suche eine Lösung für das Ergebnis
Müller Meier
3.12. 13.12.
15.12. 22.12.
22.12.

Ich hoffe auf Eure Hilfe

Danke
Manfred
 

Lesen sie die antworten

#1 Michael Franke
10/12/2008 - 20:39 | Warnen spam
Hallo Manfred,

ich habe folgendes Problem:
Ich habe eine Tabelle "Daten" mit Monatstagen in C3 bis AG 3.
In Spalte B stehen von B4 bis B8 verschiedene Namen.
Auf einem anderen Tabellenblatt "Übersicht" habe ich diese Namen in Zeile 4.
Nun möchte ich unter jedem Namen die Datümer aus der Tabelle "Daten", wenn
in den Namenszeilen unter den Datümern ein "X" steht.
Beispiel: Name: Müller ein "X" am 3.12. und ein "X" am 15.12. und eins am
22.12.
Meier ein "X" am 13.12. und eins am 22.12.
Ich suche eine Lösung für das Ergebnis
Müller                 Meier
3.12.                   13.12.
15.12.                                      22.12.
22.12.



folgende Prozedur sollte Dein Problem lösen (in das Klassenmodul
"DieseArbeitsmappe" Deiner Datei kopieren und ausführen):

Sub Datentransfer()
Dim wks1 As Worksheet
Dim wks2 As Worksheet
Dim intCounter1 As Integer
Dim intCounter2 As Integer
Dim intCounter3 As Integer
Set wks1 = ThisWorkbook.Sheets("Daten")
Set wks2 = ThisWorkbook.Sheets("Übersicht")
intCounter1 = 4
Do While Len(wks1.Cells(intCounter1, 2)) > 0
wks2.Cells(4, intCounter1 - 3) = wks1.Cells(intCounter1, 2)
intCounter3 = 5
For intCounter2 = 3 To 33
If wks1.Cells(intCounter1, intCounter2) = "x" Then
wks2.Cells(intCounter3, intCounter1 - 3) = wks1.Cells
(3, intCounter2)
intCounter3 = intCounter3 + 1
End If
Next
intCounter1 = intCounter1 + 1
Loop
Set wks1 = Nothing
Set wks2 = Nothing
End Sub

Gruß, Michael

Ähnliche fragen