VBA: Alle A1-Zellen in Arbeitsmappe kopieren und ausgeben?

Hallo zusammen,

ich möchte per Makro alle A1-Zellen in der Arbeitsmappe ( 8 Tabellenblätter) kopieren und über eine Messagebox ausgeben lassen.

In jeder A1 Zelle steht ein Wort. Die MSG Box soll alle Strings hintereinander ausgeben, sodass ein Satz entsteht.

Habt ihr Ideen ? Bisher scheitern meine Ansätze alle..

Danke euch

Answer 1

[Oubyi, UserMod Light]

Auf die Schnelle zusammengestrickt:

Sub EinSatz()
Dim ws As Worksheet
Dim strAusgabe As String

For Each ws In ActiveWorkbook.Worksheets
  strAusgabe = strAusgabe & ws.Range("A1").Value
Next ws

MsgBox strAusgabe
End Sub

Teste mal

Woher ich das weiß: Berufserfahrung – IT-Administrator (i.R.)

Answer 2

[dantes]

dim text as string

text = empty

for each blatt in AktuellesWorkbook

Text = text & space(1) & blatt.cells(1,1)

next blatt

msgbox (text)

Woher ich das weiß: Berufserfahrung – Ich programmiere RPAs

Comments

[Hartzer4ever]

Danke dir. So einfach. Da hatte ich wohl einen ziemlichen Knoten im Kopf

Dim text As String

Dim blatt As Worksheet // Den Teil hattest du vergessen. Nur für den Fall, dass es noch mehr Menschen mit dem Problem gibt :)

text = Empty

For Each blatt In ThisWorkbook.Sheets

text = text & Space(1) & blatt.Cells(1, 1)

Next blatt

MsgBox (text)

   

End Sub

[dantes]

@Hartzer4ever

👍

[dantes]

Ach das ist alles pseudocode. Ich sitze gerade nicht sm computer. Du must nur blatt als sheet oder objekt dimensionieren und aktuellesworkbook set als thisworkbook

[dantes]

Du kannst mit count auch die sheets zählen und dann als intmax zuweisen

for i = 1 to intmax

Text = text &space(1) & sheets(i).cells(1,1)

next i