Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
220to224
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
220to224
220to224
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro

Makro zum Datensammeln
20.02.2003 14:53:53
Dapetra
Ich versuche gerade ein Makro zu schreiben das folgendes kann:
In einer Arbeitsmappe sind variabele Anzahl von Arbeitsblätter und mindestens eine Blatt mit Namen Verwaltung, das Makro soll mir jetzt von jedem Blatt den Inhalt der Zelle A73 einlesen und
im Arbeitsblatt Verwaltung eine Tabelle erzeugen wo in A1 der Name des Blattes 1 und in B1 der Inhalt der Zelle A73 steht in A2-B2 dann die vom Blatt 2 u.s.w.

Kann mir da mal jemand einen Tip geben wie so eine Schleife programmiert wird.

Gruß Petra



4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Makro zum Datensammeln
20.02.2003 15:03:18
Nike

Hi,
schau dir das mal an:

Bye

Nike

Re: Makro zum Datensammeln
20.02.2003 15:04:13
ChrisL

Hallo Petra

Option Explicit

Private Sub CommandButton1_Click()
Dim Zeile As Integer, i As Integer

Zeile = 0
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Verwaltung" Then
Zeile = Zeile + 1
Sheets("Verwaltung").Cells(Zeile, 1) = Sheets(i).Name
Sheets("Verwaltung").Cells(Zeile, 2) = Sheets(i).Range("A73")
End If
Next i
End Sub

Gruss
Chris

Re: Makro zum Datensammeln
20.02.2003 15:10:25
Urs

Hallo Petra
Hier ein Vorschlag:

Gruss
Urs

Re: Makro zum Datensammeln
20.02.2003 15:56:19
DaPetra

Herzlichen Dank funktioniert !

Jetzt probiere ich mal den Weg umzudrehen um die Werte wieder zurück zu schreiben :-)

Gruß Petra

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige