Excel VBA - Dezimalzahlen entfernen

Computer: Software & Programmierung Visual Basic
#1

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.

#2

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

#3

Hi Reinhard,

also manchmal wundere ich mich über mich selbst, wie ich so banale Sachen einfach vergesse/nicht beachte :smile:
Ich meinte Runden.

Grüße Christine

#4

also manchmal wundere ich mich über mich selbst, wie ich so
banale Sachen einfach vergesse/nicht beachte :smile:
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 Like