Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1116to1120
1116to1120
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Arbeitscode

Forumthread: Arbeitscode

Arbeitscode
Alexander
Guten Abend,
ich habe folgendes Problem:
Ich habe eine Arbeitsmappe "Datenblätter" mit 150 Tabellenblättern.
In Tabelle150;SpalteA, von A1 beginnend stehen Namen.
In jedem Tabellenblatt der Arbeitsmappe soll die Zelle A4 mit einem Namen (die in Tabelle150 stehen) befüllt werden.
Der 1. Name (steht in Tabelle150,ZelleA1) soll in Zelle A4 vom Tabellenblatt das auf Position 5 liegt geschrieben werden.
Der 2. Name (steht in Tabelle150,ZelleA2) soll in Zelle A4 vom Tabellenblatt das auf Position 6 liegt
geschrieben werden.
usw.
bis alle vorhandenen Tabellenblätter befüllt sind,
außer den Tabellenblättern die auf Position 1-4 liegen und Tabelle150 nicht.
Kann mir jemand mit einem "Arbeitscode" behilflich sein?
Würde mir ein Haufen Arbeit und Zeit sparen.
Danke im Voraus,
Alexander
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Zellen aus Tabellenblatt befüllen
16.11.2009 22:02:51
NoNet
Hallo Alexander,
teste diesen Code bitte zunächst an einer Kopie Deiner Mappe : 
Sub ArbeitscodeFuerAlexander()
Dim lngZ As Long
For lngZ = 5 To Sheets.Count
If Sheets(lngZ).Name  "Tabelle150" Then _
Sheets(lngZ).[A4].Value = Sheets("Tabelle150").Cells(lngZ, 1)
Next
End Sub
Gruß, NoNet
Anzeige
Korrektur : Cells(lngZ-4, 1)
16.11.2009 22:11:07
NoNet
Hey Alexander,
es muss natürlich lauten :
If Sheets(lngZ).Name "Tabelle150" Then _
Sheets(lngZ).[A4].Value = Sheets("Tabelle150").Cells(lngZ-4, 1)

Gruß, NoNet
AW: Arbeitscode
16.11.2009 22:04:43
Beni
Hoi Alexander
Beni
Sub Tabellen_mit_Namen_füllen()
For sh = 5 To 149
Sheets(sh).Cells(4, 1) = Sheets(150).Cells(sh - 4, 1)
Next sh
End Sub

Anzeige
AW: Arbeitscode
16.11.2009 22:05:12
Christian
Hallo Alexander,
ohne weitere Feherabfangung (zB. wenn in Tab150 mehr Daten stehen als Tabellen vorhanden sind) _ mal schnell geschossen: 

Option Explicit
Sub VerteilDat()
Dim i&
With ThisWorkbook
For i = 1 To .Sheets("Tabelle150").Cells(Rows.Count, 1).End(xlUp).Row
.Sheets(i + 4).Cells(4, 1) = .Sheets("Tabelle150").Cells(i, 1)
Next
End With
End Sub

Gruß
Christian
Anzeige
Super, Danke, die laufen alle drei k.w.T :o)
16.11.2009 22:20:04
Alexander
.
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige