Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA Lösung in bestimmte Zelle ausgeben

VBA Lösung in bestimmte Zelle ausgeben
21.02.2017 08:36:58
Garonne
Hallo,
Ich versuche gerade mein erstes Macro zu "bauen".
Ich habe mir schon meinen loop zusammengeschrieben, der müsste funktionieren und mir eine Summe ausgeben.
Ich möchte nun aber das meine Lösung in eine bestimmte Zelle eingetragen wird und ich weiss nicht wie ich das schreiben und integrieren muss.
Kann mir da jemand helfen? Ich möchte meine Lösung z.B. in Zelle B21.
Ich denke vll folgendes, aber ich weiss eben nicht so recht wie ich es auf mein Beispiel anwenden soll:
Cells("B21").Value = "?"
Hier mein Loop
Sub Vibration()
i = 1
DerniereLigne = Range("G20").End(xlDown).Row
Vibration_basse = True
Nombre_de_Vibration = 0
For i = 1 To DerniereLigne
Value_To_compare = Cells(i, 1)
If Value_To_compare >= 20 Then
If Vibration_basse = True Then
Nombre_de_Vibration = Nombre_de_Vibration + 1
Vibration_basse = False
End If
Else
Vibration_basse = True
End If
Next
Lieben Dank schonmal
Garonne

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Lösung in bestimmte Zelle ausgeben
21.02.2017 08:41:39
ChrisL
Hi Garonne
Range("B21") = "x"
Oder
Cells(21, 2) = "x"
cu
Chris
AW: VBA Lösung in bestimmte Zelle ausgeben
21.02.2017 10:03:20
steffen
Hier scheint ja die Variable Nombre_de_Vibration hochgezählt zu werden:
Range("B21") = Nombre_de_Vibration
AW: VBA Lösung in bestimmte Zelle ausgeben
21.02.2017 11:38:33
Garonne
Hallo,
Danke schonmal für die Antworten.
Ich habe versucht das einzubauen aber wenn ich das Macro laufen lasse, gibt es mir einen Fehler aus. Ich denke, ich setzt es nicht an die richtige Stelle....
Sub Vibration()
i = 1
DerniereLigne = Range("G20").End(xlDown).Row
Vibration_basse = True
Nombre_de_Vibration = 0
For i = 1 To DerniereLigne
Value_To_compare = Cells(i, 1)
If Value_To_compare >= 20 Then
If Vibration_basse = True Then
Nombre_de_Vibration = Nombre_de_Vibration + 1
Vibration_basse = False
End If
Else
Vibration_basse = True
End If
<b> Range("B21") = Nombre_de_Vibration</b>
End If
Next
Oder muss ich es mit einem anderen Code anschliessen?
Danke
Garonne
Anzeige
AW: VBA Lösung in bestimmte Zelle ausgeben
21.02.2017 12:57:43
ChrisL
Hi Garonne
Wenn du das Makro mal sauber strukturierst, dann fällt auf dass ein End-If zu viel ist. Der Zweck des Makros ist mir allerdings schleierhaft.
Sub Vibration()
Dim i As Long, DerniereLigne As Long
Dim Vibration_basse As Boolean
Dim Nombre_de_Vibration As Long, Value_To_compare As Long
i = 1
DerniereLigne = Range("G20").End(xlDown).Row
Vibration_basse = True
Nombre_de_Vibration = 0
For i = 1 To DerniereLigne
Value_To_compare = Cells(i, 1)
If Value_To_compare >= 20 Then
If Vibration_basse = True Then
Nombre_de_Vibration = Nombre_de_Vibration + 1
Vibration_basse = False
End If
Else
Vibration_basse = True
End If
Next i
Range("B21") = Nombre_de_Vibration
End Sub

Gleiches Ergebnis, aber kürzer:
Sub tt()
Dim iZeile As Long, iZähler As Long
If Range("A1") >= 20 Then iZähler = 1
For iZeile = 2 To Range("G20").End(xlDown).Row
If Cells(iZeile, 1) >= 20 And Cells(iZeile - 1, 1) 

cu
Chris
Anzeige

355 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige