PDA

Vollständige Version anzeigen : VBA-Programmierung


ML84
17.07.2016, 15:19
Hallo Forum-Gemeinde.

es wird eure Hilfe für eine VBA-Programmierung dringend benötigt!

Ich habe eine Tabelle von B6 bis Z30 mit div. Zahlen, die sich aber auch von ihren Inhalt ändern kann. Nun möchte ich das das Programm alle Werte die größer 0 sind, in eine Reihe ab Zelle AD5 bis ...5 ausgibt. Das Programm muss auch zuerst die Zeile B6 bis Z6, dann B7 bis Z7, ..... durchsuchen.

Laut Bild müsste das Ergebnis dann ab AD5 so aussehen: 3 3 1 1 19 1 1 2 1 1 1 5 5 5 1 1 1 1 1 1 1 2 1 1

Ich hoffe ich habe mich verständlich ausgedrückt.
MFG ML84

erpe
18.07.2016, 22:22
Hi,

Das Programm muss auch zuerst die Zeile B6 bis Z6, dann B7 bis Z7, ..... durchsuchen.
Etwas verwirrend.

Sub ZellWertCopy()
Dim i As Integer

Range("B6").Select 'Startzelle
i = 30 'AD=Spalte 30
Do Until IsEmpty(ActiveCell.Value)
Do Until IsEmpty(ActiveCell.Value)
If ActiveCell > 0 Then
'Range("AD5")
Cells(5, i) = ActiveCell.Value

i = i + 1
End If
ActiveCell.Offset(0, 1).Select
Loop
ActiveCell.Offset(1, -25).Select 'zurück nach Spalte 2
Loop
End Sub

Übrigens: Ein Thread reicht!
Eine Lösung kommt deswegen nicht schneller.:)

Gruß
Rainer