Hallöchen,
ist es möglich in VB einen Befehl zu geben, bei dem er in der Zeile 6 durch die Spalten geht und dort anhält wo das Wort „Zahlen“ steht, und bei allen Zahlen die dann in dieser Spalte stehen die Dezimalstellen entfernt?
Ist das möglich??
Grüße Chris
[MOD] - Ergänzug:
welches VB?
also ich habe Excel 2002
Zeile 6 wovon?
die Zeile 6 von dem Tabellenblat 1 in einer Arbeitsmappe
und wie gesagt, in der Spalte in der in der Zeile 6 das Wort „Zahlen“ steht, sollen in allen darunterliegenden Zellen die Dezimalstellen entfernt werden.
Grüße Christine
[MOD] - Informationen nachgetragen, Betreff geändert.
Hi christine,
ist es möglich in VB einen Befehl zu geben, bei dem er in der
Zeile 6 durch die Spalten geht und dort anhält wo das Wort
„Zahlen“ steht, und bei allen Zahlen die dann in dieser Spalte
stehen die Dezimalstellen entfernt?
Ist das möglich??
ja.
Was genau meinst du mit entfernen? Was soll aus 2,79 werden, 2 oder 3?
Entfernen oder Runden?
Gruß
Reinhard
Hi Reinhard,
also manchmal wundere ich mich über mich selbst, wie ich so banale Sachen einfach vergesse/nicht beachte 
Ich meinte Runden.
Grüße Christine
also manchmal wundere ich mich über mich selbst, wie ich so
banale Sachen einfach vergesse/nicht beachte
Ich meinte Runden.
Hi Christine,
Option Explicit
'
Sub dd()
Dim Zei As Long, Spa As Long, Awf As WorksheetFunction
Set Awf = Application.WorksheetFunction
If Awf.CountIf(Rows(6), "Zahlen") \> 0 Then
Spa = Awf.Match("Zahlen", Rows(6), 0)
' Es wird in Spalte A die letzte befüllte Zelle ermittelt, ggfs. A anpassen.
For Zei = 7 To Range("A" & Rows.Count).End(xlUp).Row
Cells(Zei, Spa) = Round(Cells(Zei, Spa), 0)
Next Zei
Else
MsgBox "Nix mit ""Zahlen"" in Zeile 6"
End If
End Sub
Gruß
Reinhard
1 „Gefällt mir“