Werte verschiedener Worksheets zusammenführen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Zusammenfuehren() Application.ScreenUpdating = False Dim i As Integer Dim a As Integer Dim strTabelle As String For i = 5 To 25 a = i - 3 strTabelle = "Tabelle" & a Worksheets(strTabelle).Range("C4:C10").Copy Worksheets("Tabelle1").Range("H" & i).PasteSpecial Paste:=xlValues, _ Operation:=xlNone, SkipBlanks:=False, Transpose:=True Next i End Sub

Hallo Kiki,
dann so:
Sub Zusammenfuehren()
Application.ScreenUpdating = False
Dim i As Integer
Dim strTabelle As String
With Worksheets("Übersicht")
For i = 5 To .Cells(Rows.Count, "Q").End(xlUp).Row
strTabelle = .Range("Q" & i)
If SheetExist(strTabelle) Then
Worksheets(strTabelle).Range("C4:C10").Copy
.Range("H" & i).PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End If
Next i
End With
Application.CutCopyMode = False
End Sub

Private Function SheetExist(ByVal sheetName As String, Optional Wb As Workbook) As Boolean
Dim wks As Worksheet
On Error GoTo ERRORHANDLER
If Wb Is Nothing Then Set Wb = ThisWorkbook
For Each wks In Wb.Worksheets
If LCase(wks.Name) = LCase(sheetName) Then SheetExist = True: Exit Function
Next
ERRORHANDLER:
SheetExist = False
End Function

Gruß
Klaus

Sub Uebertrag_Ergebnisse () Application.ScreenUpdating = False Dim i As Integer With Worksheets("Übersicht") For i = 5 To .Cells(Rows.Count, "Q").End(xlUp).Row On Error Resume Next Worksheets(.Cells(i, "Q").Value).Range("C4:C10").Copy .Range("H" & i).PasteSpecial Paste:=xlValues, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=True If Err.Number = 9 Then MsgBox "Tabellenblatt " & "'" & .Cells(i, 4).Value & " '" & _ " existiert nicht oder der Name" & vbLf & _ "in Blatt Hilfstabelle weicht vom tatsächlichen Blattnamen ab." On Error GoTo 0 End If Next i End With Application.CutCopyMode = False End Sub

Hallo
so...

Tabelle1

	H	I	J	K	L	M	N	O	P	Q
3	Ergebnisse
4	ITF/EA	ITF/EB	ITF/EG	ITF/EM	ITF/EO	ITF/ES	ITF/E
5	A	B	C	D	E	F	G			Tabelle2
6	klha	whl	slu	nwl	nlw	vmo	woa			Tabelle3
7	123	456	789	654	356	246	8654			Tabelle4
8	klwnr	an	öl	aln	anmw	ko	aje			Tabelle5
9										Tabelle6
10										Tabelle7
11										Tabelle8
12										Tabelle9
13										Tabelle10
14										Tabelle11
15										Tabelle12
16										Tabelle13
17										Tabelle14
18										Tabelle15
19										Tabelle16
20										Tabelle17
21										Tabelle18
22										Tabelle19
23										Tabelle20
24										Tabelle21
25										Tabelle22

verbundene Zellen

H3:N3

verwendete Formeln
Zelle	Formel	Bereich	N/A
H5:N25	=WENNFEHLER(SVERWEIS(H$4;INDIREKT($Q5&"!$A:$C");3;0);"")

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

Beliebteste Forumthreads (12 Monate)

Werte verschiedener Worksheets zusammenführen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread