Konsolider tekst fra flere faner vha. af makro

Hej - her er en lidt hurtig løsning, så måske kunne gemmes i din personal.xlsb, så makroen ikke skal flyttes til et nyt regneark hver gang.

Markoen fejler, hvis du kører den mere end én gang, da den i så fald forsøger at oprettet arket "Konsolider" én gang til. Dette kan også løses - men som sagt, en lidt hurtig løsning herfra

Sub Konsolider()

Dim SH As Integer
Dim col As Integer, row As Integer

ActiveWorkbook.Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Konsolider"

col = 1

For SH = 1 To Worksheets.Count - 1

    Sheets("Konsolider").Cells(1, col) = Sheets(SH).Name
    row = 2
   
    For j = 6 To 100
        If Sheets(SH).Cells(j, 2) <> "" Then
            Sheets("Konsolider").Cells(row, col) = Sheets(SH).Cells(j, 2)
            row = row + 1
        End If
    Next
   
    col = col + 1
   
Next

End Sub

Hej Jessen,

det er perfekt. Jeg takker mange gange!

Point til dig.

Mvh

KSH