Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1384to1388
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1384to1388
1384to1388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schleife: markierte Werte übertragen

Schleife: markierte Werte übertragen
29.09.2014 20:38:51
stormlamp
Hallo Zusammen,
in der Musterdatei: https://www.herber.de/bbs/user/92888.xlsx
sind in Tabelle1 in Zeile 3 in den Spalten von B bis J mögliche Steuerungswerte.
Nun benötige ich eine Schleife, die in Tabelle1 Zeile 6 prüft, ob die Zelle unterhalb eines Steuerungswerts (Zeile 3) irgendwie gefüllt ist (hier x,y,z).
Wenn ja, soll der darüberstehende Steuerungswert aus Zeile 3 in Tabelle 2 Zelle B2 übertragen werden. Anschließend soll eine Subroutine mit einem Call aufgerufen werden, die weitere Berechnungen durchführt.
Anschließend soll der nächste Wert in der Schleife genommen werden, bis alle Spalten B bis J der Tabelle 1 abgearbeitet sind.
Kann mir da bitte einer bei helfen.
Gruß Hans

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schleife: markierte Werte übertragen
30.09.2014 13:20:51
fcs
Hallo Hans,
funktioniert etwa wie folgt.
Gruß
Franz 
Sub Machwas()
Dim wksCode As Worksheet, wksWert As Worksheet
Dim ZelleCode As Range, varKodierung
Set wksCode = Worksheets("Tabelle1")
Set wksWert = Worksheets("Tabelle2")
With wksCode
For Each ZelleCode In .Range("B6:J6").Cells
If ZelleCode.Value  "" Then
varKodierung = .Cells(3, ZelleCode.Column).Value
wksWert.Range("B2") = varKodierung
Call prcBerechnung
End If
Next
End With
End Sub
Sub prcBerechnung()
'nun Berechne mal
MsgBox "Kodierung: " & Worksheets("Tabelle2").Range("B2") 'testzeile
End Sub

Anzeige
Gelöst:: Schleife: markierte Werte übertragen
30.09.2014 19:32:09
stormlamp
Hallo Franz,
vielen vielen Dank. Dein Code funktioniert perfekt!
Das spart mir sehr viel Handarbeit.
Freundliche Früße
Hans

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige