Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: for each Schleife Zellen nach einander befüllen

for each Schleife Zellen nach einander befüllen
28.08.2024 13:01:56
Daniel
Hallo,

irgendwie habe ein einen Denkfehler und komme nicht weiter.
Ich möchte das die Schleife durchlaufen wird, aber Zellen N8 bis N53 einzeln befüllt werden, durch die schleife. Nicht alle auf einmal. :)

Sub Befüllen()


For Each Zelle In Tabelle2.Range("C14:C53")
If Zelle.Value > 0 Then
On Error Resume Next
Formel = "=XVERWEIS(C8;" & Zelle & "!$E$8;" & Zelle & "!$E$157)"
Worksheets("Detail int. Prfg").Range("N8:N53").FormulaLocal = Formel

On Error GoTo 0
End If
Next

End Sub
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: for each Schleife Zellen nach einander befüllen
28.08.2024 13:26:36
Der Steuerfuzzi
Hallo,

verstehe ich nicht. Es ist doch besser, die Formel einmal komplett in den Bereich zu schreiben. Vor Allem passt der Bereich in der For...Each-Schleife (Zeilen 13 bis 53) nicht zum Bereich, in dem Du die Formeln eintragen möchtest (Zeilen 8 bis 53) ...

Fragen über Fragen.

Grüße
Michael
Anzeige
AW: for each Schleife Zellen nach einander befüllen
28.08.2024 13:39:24
Daniel
Hallo Steuerfuzzi,

das geht leider nicht weil Zelle die Namen überprüft (C14 bis C53) und vorher wird ein Tabellenblatt kopiert und in diesen Namen umbenannt. Leider hab ich nicht die Namen und muss deshalb auf eine Variable zurückgreifen. :(
Und in dieser Formel soll er die Erstellten Tabellenblätter lesen und schauen was in Zelle E157 eingetragen wurde (von jeden einzelnen Tabellenblatt) und dieses in die Tabelle "Detail int. Prfg" in N8 bis N53 eintragen.
P.s.: So viele Personen sollen es nicht werden. :)
Ich hoffe es ist verständlich. :)

zum besseren Verständnis hier die Formel die vorher ausgeführt werden muss.

Sub BlattKopierenDurchZelleUmbenennen()


UserForm1.Show vbModeless
Application.ScreenUpdating = False

Worksheets("MASTER").Visible = True

For Each Zelle In Tabelle2.Range("C14:C59")
If Zelle.Value > 0 Then
Sheets("MASTER").Copy After:=Sheets("MASTER")
On Error Resume Next
ActiveSheet.Name = Zelle
Formel = "='" & Tabelle2.Name & "'!" & Zelle.Address
ActiveSheet.Range("E8").FormulaLocal = Formel
ActiveSheet.Protect
On Error GoTo 0
End If
Next

UserForm1.Hide
Application.ScreenUpdating = True
Worksheets("MASTER").Visible = False

End Sub
Anzeige
AW: for each Schleife Zellen nach einander befüllen
29.08.2024 09:17:06
Der Steuerfuzzi
Keine Ahnung, ob ich das richtig verstanden habe, aber versuch es doch mal so:
Sub Befüllen()

Dim i As Long
For Each Zelle In Tabelle2.Range("C14:C53")
If Zelle.Value > 0 Then
Formel = "=XVERWEIS(C8;" & Zelle & "!$E$8;" & Zelle & "!$E$157)"
Worksheets("Detail int. Prfg").Range("N8").Offset(i).FormulaLocal = Formel
i = i + 1
End If
Next

End Sub
Anzeige
AW: for each Schleife Zellen nach einander befüllen
29.08.2024 09:18:50
Der Steuerfuzzi
Eventuell könntest und solltest Du vorher den Inhalt des Bereichs löschen:
Worksheets("Detail int. Prfg").Range("N8:N53").ClearContents

AW: for each Schleife Zellen nach einander befüllen
29.08.2024 14:06:50
Daniel
Ach Mist, ich hab ein Denkfehler bei der Formel. :( Das Suchkriterium muss ja auch mit den Zellen mitlaufen. :(

Das heißt C8 muss sich natürlich auch fortsetzten. :( (C8, C9, C10). :(

Oder kann man das so schreiben das er einfach aus der Zelle $E$157 in das Worksheets("Detail int. Prfg").Range("N8")?

Ich brauch nur immer zum passenden Name, das richtige Ergebnis. :)
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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