Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
328to332
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
328to332
328to332
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Problem mit Makro

Problem mit Makro
25.10.2003 21:59:44
Jörg
Hallo Leute,

Bei folgendem Makro soll der Inhalt der Spalte A1 in das Feld A 15 geschrieben werden, wenn in den Spalten A2 bis A10 mind. eine 1 steht.Der Inhalt von B1 auch in Feld A 15 wenn von B2 bis B10 mind. eine 1 steht. Desgl C1 in A 15...

Mein Makro funktioniert aber nur wenn die 1 in Zeile 2 steht, wenn Zeile 2 = 0 ist, und Zeile 3 gleich 1 dann wird die Spalte A1 nicht in A 15 geschrieben.

Wo liegt hier mein Fehler? Wer hilft mir weiter?


Sub test()
For y = 1 To 3
For i = 2 To 9
If Cells(i, y).Value = 1 Then
x = x + 1
Else
Exit For
End If
Next
If x = 1 Then Range("A15") = Range("A15") & " " & Cells(1, y)
x = 0
Next
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Problem mit Makro
25.10.2003 22:20:11
Reinhard
Hi Jörg,


Sub test()
For y = 1 To 3
For i = 2 To 9
If Cells(i, y).Value = 1 Then x = 1
Next i
If x = 1 Then Range("A15") = Range("A15") & " " & Cells(1, y)
x = 0
Next y
End Sub


Gruß
Reinhard
AW: Problem mit Makro
25.10.2003 22:28:00
Jörg
Hallo Reinhard,

funktioniert, vielen Dank

Gruß Jörg
Danke für die Rückmeldung o.w.T.
25.10.2003 23:04:14
Reinhard
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige