VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Zelle prüfen, Wert übergeben, mit Schleifen fortführen	07.01.2021 16:09:40	Matthias Thomas
Zelle prüfen, Wert übergeben, mit Schleifen fortführen	08.01.2021 13:22:43	ralf_b
Zelle prüfen, Wert übergeben, mit Schleifen fortführen	08.01.2021 22:41:07	thomasmat@gmx.de
Zelle prüfen, Wert übergeben, mit Schleifen fortführen	09.01.2021 00:16:58	ralf_b
Zelle prüfen, Wert übergeben, mit Schleifen fortführen	09.01.2021 16:36:12	Gast17712
Zelle prüfen, Wert übergeben, mit Schleifen fortführen	09.01.2021 18:31:42	ralf_b
Zelle prüfen, Wert übergeben, mit Schleifen fortführen	11.01.2021 19:02:08	Matthias Thomas
Zelle prüfen, Wert übergeben, mit Schleifen fortführen	11.01.2021 22:32:19	Gast3132

Ansicht des Beitrags:

Von:
ralf_b

Datum:
08.01.2021 13:22:43

Views:
676

Rating:

Antwort:

Thema:
Zelle prüfen, Wert übergeben, mit Schleifen fortführen

sub test()

dim rng as range , i as long , cnt as long

for i = 5 to 125 step 4

cnt = 1

for each rng in Range ("B" & i & ":AC" & i )

if isnumeric(rng ) and not rng = "" then

with worksheets("Übergabe")

. Range ("B" & cnt)= Range ("A" & i)
. Range ("C" & cnt )= rng.value
. Range ("D" & cnt)= rng.offset(1).value
. Range ("E" & cnt )= rng.offset(3).value
cnt = cnt +1

end with

end if

next rng

next i

end sub

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Zelle prüfen, Wert übergeben, mit Schleifen fortführen	07.01.2021 16:09:40	Matthias Thomas
Zelle prüfen, Wert übergeben, mit Schleifen fortführen	08.01.2021 13:22:43	ralf_b
Zelle prüfen, Wert übergeben, mit Schleifen fortführen	08.01.2021 22:41:07	thomasmat@gmx.de
Zelle prüfen, Wert übergeben, mit Schleifen fortführen	09.01.2021 00:16:58	ralf_b
Zelle prüfen, Wert übergeben, mit Schleifen fortführen	09.01.2021 16:36:12	Gast17712
Zelle prüfen, Wert übergeben, mit Schleifen fortführen	09.01.2021 18:31:42	ralf_b
Zelle prüfen, Wert übergeben, mit Schleifen fortführen	11.01.2021 19:02:08	Matthias Thomas
Zelle prüfen, Wert übergeben, mit Schleifen fortführen	11.01.2021 22:32:19	Gast3132