AW: per VBA
26.06.2017 11:52:14
UweD
so?
in ein Modul
Sub Datum()
Dim TB1, TB2, LR1 As Double, LR2 As Double, i As Double, z As Double
Dim SP As Integer, CC As Integer
Set TB1 = Sheets("Tabelle1")
Set TB2 = Sheets("Tabelle2")
LR2 = TB2.Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile des gesamten Blattes
CC = TB2.Cells.SpecialCells(xlCellTypeLastCell).Column 'Letzte Spalte des gesamten Blattes
TB2.Columns(2).Resize(, CC).ClearContents
With TB1
LR1 = .Cells(.Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte
For i = 1 To LR2
SP = 2
For z = 1 To LR1
If WorksheetFunction.CountIf(.Rows(z), TB2.Cells(i, 1)) > 0 Then
TB2.Cells(i, SP) = CDate(Format(.Cells(z, 1), "DD.MM.YYYY"))
SP = SP + 1
End If
Next z
Next
End With
End Sub
Tabelle1| | A | B | C | D | E | F | G | H | I | J | K | L | M | N | O | P | Q | R | S | T | U | V | W | X | Y | Z |
| 1 | Datum | Name | Name | Name | Name | Name | Name | Name | Name | Name | Name | Name | Name | Name | Name | Name | Name | Name | Name | Name | Name | Name | Name | Name | Name | Name |
| 2 | 26.06.2017 | dsds | sd | er | | rt | gggg | t | r | | | | | | | | | | | | | | | | | |
| 3 | 27.06.2017 | | eew | | | | | | | | | | | | fgfdsdfdsfd | | | | | | | | grtrtz | kji79 | | |
| 4 | 28.06.2017 | | sds | | | | | | | | | | zt | | | | | | | | | | | | | |
| 5 | 29.06.2017 | | fgfdsdfdsfd | | | | | | | | | | | | | | | | | | rtrz | | | | uuzuzu | grfg |
| 6 | 30.06.2017 | | dfssdtrert | | | | | gggg | | | | | | | | | | | | | | | oiuitztz | | | |
| 7 | 01.07.2017 | | | | | rrrr | | | | | | | | | | | | | | | | | ertrgfgfd | 08uioiu | | |
| 8 | 02.07.2017 | | rtrzuz | | | | | | | | | | | | | | | | | | | | | | | |
| 9 | 03.07.2017 | | iuz | | | | fgfdsdfdsfd | | | gggg | | | | | | | | | | | | | | | | |
| 10 | 04.07.2017 | | | | | | | | | | | | | | | | | | | | | | | | | |
Tabelle2| | A | B | C | D |
| 1 | gggg | 26.06.2017 | 30.06.2017 | 03.07.2017 |
| 2 | 08uioiu | 01.07.2017 | | |
| 3 | 32323wewe | | | |
| 4 | dfssdtrert | 30.06.2017 | | |
| 5 | dsds | 26.06.2017 | | |
| 6 | eew | 27.06.2017 | | |
| 7 | er | 26.06.2017 | | |
| 8 | ertrgfgfd | 01.07.2017 | | |
| 9 | fgfdsdfdsfd | 27.06.2017 | 29.06.2017 | 03.07.2017 |
| 10 | grfg | 29.06.2017 | | |
| 11 | grtrtz | 27.06.2017 | | |
| 12 | hjkh | | | |
| 13 | iuz | 03.07.2017 | | |
| 14 | izuioo | | | |
| 15 | jzuio9p0 | | | |
| 16 | kji79 | 27.06.2017 | | |
| 17 | oiuitztz | 30.06.2017 | | |
| 18 | r | 26.06.2017 | | |
| 19 | rrrr | 01.07.2017 | | |
| 20 | rt | 26.06.2017 | | |
| 21 | rtrz | 29.06.2017 | | |
| 22 | rtrzuz | 02.07.2017 | | |
| 23 | sd | 26.06.2017 | | |
| 24 | sds | 28.06.2017 | | |
| 25 | uuzuzu | 29.06.2017 | | |
| 26 | zt | 28.06.2017 | | |
| http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip |
http://Hajo-Excel.de/tools.htm
|
| XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007 |
| Add-In-Version 21.10 einschl. 64 Bit |
LG UweD