Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
220to224
220to224
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro

Forumthread: Makro zum Datensammeln

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



Anzeige

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

Anzeige
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

;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige