AW: Nachfrage..
29.06.2016 15:18:26
UweD
Hallo nochmal
- Für den Fall, dass du dich verschrieben hast und 1. bis 4.OG gemeint hast...
- Die Etagen gleich bezeichnet sind (auch unterschiedliche Anzahl haben können)
Sub Übersicht()
Dim TB1, TB2, Z, LR1%, LR2%, SP%
With Sheets("Übersicht ")
.Cells.ClearContents
SP = 2
For Each Z In Worksheets
If InStr(Z.Name, "Haus") > 0 Then
LR1 = Z.Cells(Z.Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte
LR2 = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
Z.Range(Z.Cells(2, 1), Z.Cells(LR1, 1)).Copy .Cells(LR2, 1)
.Cells(1, SP) = Z.Name
SP = SP + 1
End If
Next
.Cells(1, 1) = "Etage"
.Columns(1).RemoveDuplicates Columns:=1, Header:=xlYes
LR2 = .Cells(.Rows.Count, "A").End(xlUp).Row
With .Range(.Cells(2, 2), .Cells(LR2, SP - 1))
.FormulaR1C1 = "=IFERROR(VLOOKUP(RC1,INDIRECT(""'"" & R1C &""'!$A:$B""),2,0),"""")"
.Value = .Value
End With
End With
End Sub
VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0
Haus 2 | A | B |
1 | | Verantwortlich |
2 | EG | Markus |
3 | 1.OG | Kai |
4 | 2.OG | Jakob |
5 | 3.OG | Oliver |
6 | 4.OG | Achim |
7 | 5. OG | Ich |
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 |
Übersicht | A | B | C | D | E |
1 | Etage | Haus 1 | Haus 2 | Haus 3 | Haus 4 |
2 | EG | Peter | Markus | Gerhard | Tafel |
3 | 1.OG | Klaus | Kai | Peter | Jürgen |
4 | 2.OG | Müller | Jakob | Starnberg | Anton |
5 | 3.OG | Schmidt | Oliver | Feuer | Noah |
6 | 4.OG | Herman | Achim | Alarm | Johannes |
7 | 5. OG | | Ich | | |
Excel-Inn.de |
Hajo-Excel.de |
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007 |
Add-In-Version 21.10 einschl. 64 Bit |
Gruß UweD