Supportnet / Forum / Tabellenkalkulation
Zellen mittels VBA Malnehmen
Frage
Hallo,
Ich möchte in Excel, mittels VBA, in der ersten Spalte alle Zellen, welche einen Wert enthalten, mit einer Zahl multiplizieren. Kann mir vielleicht jemand hierzu den Code nennen? Im voraus besten Dank!
Antwort 1 von Guenter
Hallo,
die einfachste Version wäre die:
Alle Zahlen in Spalte 1 werden mit 2 multipliziert.
Wenn in Spalte 1 Text steht, funktioniert das nicht. Dann muss eine Prüfung erfolgen (IsNumeric).
Das Ergebnis wird wieder in Spalte 1 geschrieben.
Gruß
Günter
die einfachste Version wäre die:
Option Explicit
Sub test()
Dim n
For n = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(n, 1).Value = Cells(n, 1).Value * 2
Next
End Sub
Alle Zahlen in Spalte 1 werden mit 2 multipliziert.
Wenn in Spalte 1 Text steht, funktioniert das nicht. Dann muss eine Prüfung erfolgen (IsNumeric).
Das Ergebnis wird wieder in Spalte 1 geschrieben.
Gruß
Günter
Antwort 2 von Hertlein
Hallo Günther,
erstmal Danke für die rasche Antwort. Kannst Du mir vielleicht nur den Code mit der Prüfung IsNumeric erweitern, da doch in einigen Zellen ein Text steht. Verbindlichen Dank!
erstmal Danke für die rasche Antwort. Kannst Du mir vielleicht nur den Code mit der Prüfung IsNumeric erweitern, da doch in einigen Zellen ein Text steht. Verbindlichen Dank!
Antwort 3 von Guenter
Hallo,
das müsste so laufen:
Gruß
Günter
das müsste so laufen:
Option Explicit
Sub test()
Dim n
For n = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If IsNumeric(Cells(n, 1).Value) Then Cells(n, 1).Value = Cells(n, 1).Value * 2
Next
End Sub
Gruß
Günter
Antwort 4 von Hertlein
Hallo Günter,
besten Dank! Funktioniert einwandfrei!
besten Dank! Funktioniert einwandfrei!