Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1068to1072
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
1068to1072
1068to1072
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kann mir jemand bei einer Schleife helfen ?

Kann mir jemand bei einer Schleife helfen ?
20.04.2009 13:47:11
Mandy
Hi,
wie sieht denn eine Schleife aus, wenn ich folgendes per Makro erledigen will:
Ich möchte in meinem Sheet "Temp" die Spalte AB ab Zeile 7 durchlaufen und überall, wo die Zelle leer ist und in Spalte AD in der jeweiligen gleichen Zeile die Zelle NICHT leer ist, soll eine "1" rein geschrieben werden.
Da die Anzahl der Datensätze variieren kann, würde ich den Range mal bis 1000 definieren.
Wenn in Spalte AB ab Zeile 7 irgendwo ein Eintrag drin ist, diesen überspringen.
Wie kann man denn das mit einer Schleife machen ?
Danke mal
Mandy

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kann mir jemand bei einer Schleife helfen ?
20.04.2009 13:51:43
David
Hallo Mandy,
wenn es denn auch ohne Makro sein darf als Formel in einer Hilfsspalte:
=WENN(UND(AB7="";AD7"");1;AB7)
Die Formel einfach in eine Spalte daneben und runterkopieren. Wenn du die Werte dann in der Originalspalte brauchst, per copy und Einfügen-Werte rüberkopieren.
Gruß
David
Bräuchte ein Makro, trotzdem vielen Dank
20.04.2009 13:54:14
Mandy
...falls sich niemend findet, werde ich es so machen, aber ein schleife wäre mir lieber
Gruss
Mandy
AW: Bräuchte ein Makro, trotzdem vielen Dank
20.04.2009 14:10:46
David
Hallo Mandy,
dann so:

Sub auffuellen()
Dim i As Double
For i = 7 To Range("AB65536").End(xlUp).Row
If Range("AB" & i) = "" Then
If Range("AD" & i)  "" Then
Range("AB" & i) = 1
End If
End If
Next
End Sub


Ich habe jetzt als letzte Zeile die letzte gefüllte Zeile der Spalte AB genommen, sollte das nicht zutreffen, musst du den Teil AB65536 durch eine andere entsprechende Spalte ersetzen.
Gruß
David

Anzeige
Danke , Funktioniert owT
20.04.2009 14:42:03
Mandy
AW: Bräuchte ein Makro, trotzdem vielen Dank
20.04.2009 14:18:52
Tino
Hallo,
geht es so?
Sub Beispiel()
Dim Bereich As Range
Dim LRow As Long
Dim MyAr

With Sheets("Temp")
    Set Bereich = .Range("AB7", .Cells(.Rows.Count, 30).End(xlUp))
    If Not Intersect(Bereich, .Rows("1:6")) Is Nothing Then Exit Sub
End With
 
MyAr = Bereich

    For LRow = 1 To Ubound(MyAr)
        If IsEmpty(MyAr(LRow, 1)) And Not IsEmpty(MyAr(LRow, 3)) Then
         MyAr(LRow, 1) = 1
        End If
    Next LRow

Bereich = MyAr

End Sub


Gruß Tino

Anzeige
Ja, Danke geht, für was .........
20.04.2009 14:37:42
Mandy
stehn denn die Parameter 1:6 und die 30 bei 30).End(xlUp))
Sonst vielen Dank
Gruss
Mandy
AW: Ja, Danke geht, für was .........
20.04.2009 14:44:24
Tino
Hallo,
wenn der Bereich sich oberhalb der Zeile 7 befindet, wird der Code abgebrochen.
Die 30 steht für die Spalte AD.
Gruß Tino
ah OK, recht einfach;-) Danke oT
20.04.2009 14:54:24
Mandy

300 Forumthreads zu ähnlichen Themen

Aus Schleife wenn Zelle einen Rahmen hat???
TOM

Guten Morgen zusammen
Ich habs probiert aber irgendwie habe ich noch einen Denkfehler oder was auch immer......grrrrrrr!?
Möchte gerne eine Do Schlaufe die durchläuft bis die Aktive Zelle unten einen Rahmen hat.
Do While ActiveCell.Borders(xlEdgeBottom).LineStyle = xlContinuous
...
27.08.2008 11:12:00
Thread-ID: 1005013
3 Beiträge
Anzeige
Schleife um ein Makro bauen
Matthias

Hallo zusammen,
ich habe folgendes Makro, das per vlookup auf ein zweites Tabellenblatt greift:
Sub importSortKey() Range("A2").select ActiveCell.FormulaR1C1 = _ "=IF(RC[1]="""","""",VLOOKUP(RC[1],Sortierschlüssel!C:C[1],2))" End Sub
Zur Formel: RC[1] = Zelle B2;
Ich würde d...
01.10.2008 11:26:00
Thread-ID: 1013562
7 Beiträge
Variable in Forschleife
Jens

Hallo Ihr,
ich habe folgendes Problem:
Ich habe 9 Variablen definiert und diese sind mit Werten belegt. Jetzt möchte ich diese innerhalb einer Schleife einzelnen Zellen zuweisen. Geht das?
Beispiel für 3 Variablen:
Dim var1 As Integer
Dim var2 As Integer
Dim var3 As Inte...
08.10.2008 13:49:00
Thread-ID: 1015052
5 Beiträge
Anzeige
Makro - einfache VBA Schleife für Excel
pc-doc@k-u-p.de

Hallo VBA MAkro Profis,
programmiere fast nie in VBA mehr Web js, php/mysql,
und brauche eine einfache VBA Schleife für Excel:
Ich möchte in mehreren Registerblättern einer Arbeitsmappe in der
Spalte D Zeile für Zeile checken ob
ein Wert in der Zelle steht
und wenn...
20.10.2008 11:51:00
Thread-ID: 1017619
8 Beiträge
Schleife in Formel
Jochen

Hallo,
kann ich mit einer Formel eine Schleife laufen lassen?
Meine Tabelle sieht etwa so aus:
Pos. Stückzahl
1 10
2 15
3
4 2
5 3
6
7
8 10
9 11
10
11
12 12
Meinergeb...
11.11.2008 14:25:00
Thread-ID: 1023549
9 Beiträge
VBA Code: wenn B1 <> blank, dann I in A1 schreiben
maxx_1985

Hi mit'nander
Braeuchte einen kleine Code dafuer:
wenn B1 blank, dann schreibe ein I in A1.
kann mir vielleicht jemand helfen? :-)
vielen vielen dank
denis
18.11.2008 16:27:16
Thread-ID: 1025694
5 Beiträge
Gesamtwert in Zell über Multiplikationsschleife...
Jessi

Hallo zusammen,
habe wieder mal eine Frage:
Ich habe eine Tabelle in der Spalte X und Y, ab der Zeile 5 Werte multipliziert werden und die Zeilen
5 bis einschließlich 88 und anschließend ab Zeile 160 bis einschließlich die Zeile 182 aufsummiert werden. Wie bekomme ich das am geschic...
10.12.2008 14:51:00
Thread-ID: 1031705
4 Beiträge
Mittelwerte bilden in Schleifen
WMüller

Hallo zusammen,
ich habe das Archiv durchgesehen, konnte jedoch leider keine passende Lösung für mein Problem finden. Da ich ein Anfänger im Umgang mit VBA bin, würde ich mich über ein Feedback sehr freuen. Ich denke, dass Problem ist eigentlich nicht zu schwierig, ich habe "lediglich" Prob...
14.01.2009 15:01:21
Thread-ID: 1039672
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
6
4
2
7
8
4
3
5
11
8
2
2
4
3
8
11
4
2
4
2
7
2
8