How to Pull Data from Multiple Worksheets in Excel

Renuga82 

Sub text_from_cells()

Dim ws As Worksheet
Dim result As String
Dim i As Long
Dim j As Long

i = Cells(1, 1).Value
j = Cells(1, 2).Value

Sheets("Tabelle1").Cells(i, j).Value = ""

For Each ws In ThisWorkbook.Worksheets

    result = result & " " & ws.Cells(i, j).Value

Next ws

Sheets("Tabelle1").Cells(i, j).Value = Trim(result)

End Sub

You can try this code. In the attached file you can click the button in cell D2 to run the macro. Enter the row number of the cell in A1 and the column number in B1. For example if you want to return the entries of cells B7 enter 7 ( for row 7) in A1 and 2 (for column B) in B1.