Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1248to1252
1248to1252
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Runden eines ausgewählten Bereiches

Forumthread: Runden eines ausgewählten Bereiches

Runden eines ausgewählten Bereiches
Sunshine
Hallo zusammen,
ich möchte für den jeweils markierten Bereich die Werte auf Null runden. Mein Makro funktioniert nicht, kann mir jemand helfen? 
Sub Runden()
Dim Bereich As Range
Set Bereich = Application.Selection
Bereich = Application.WorksheetFunction.Round(Bereich,0)
Set Bereich = Nothing
End Sub

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Runden eines ausgewählten Bereiches
17.02.2012 14:51:44
Rudi
Hallo,
das musst du einzeln machen. 
Sub Runden()
Dim Bereich As Range
Application.ScreenUpdating = False
For Each Bereich In Selection
If IsNumeric(Bereich) Then Bereich = Application.Round(Bereich, 0)
Next
End Sub

Oder erst in ein Array packen (schneller) 
Sub Runden()
Dim myarr, i As Long, j As Long
myarr = Selection
For i = 1 To UBound(myarr)
For j = 1 To UBound(myarr, 2)
If IsNumeric(myarr(i, j)) Then myarr(i, j) _
= Application.Round(myarr(i, j), 0)
Next
Next
Selection = myarr
End Sub

Gruß
Rudi
Anzeige
AW: Runden eines ausgewählten Bereiches
17.02.2012 14:57:12
Sunshine
Danke, funktioniert prima.

Forumthreads zu verwandten Themen

Kopieren eines Bereiches in ein neues Arbeitsblatt
Anett

Hallo,
ich habe ein Problem bei dem ich nicht weiterkomme:
Ich möchte einen Bereich aus einem Arbeitsblatt in ein anderes von insgesamt 20 Arbeitsblatt kopieren. Allerdings gibt es noch eine Schwierigkeit: Der zu kopierende Bereich hat 124 Zeilen. Jede Zeile soll abhängig von Ihrem Inha...
10.09.2008 11:12:00
Thread-ID: 1008687
2 Beiträge
Zellinhalte eines Bereiches in MsgBox?
Robert

Hallo,
ich stehe vor dem Problem, dass ich die Zellinhalte eines festen Bereiches (IU1:IU20), sofern überhaupt Einträge dort vorhanden sind, diese ausgeben müsste.
Dachte das würde mit einer MsgBox funktionieren. Ich kriegs nicht auf die Reihe. Den Inhalt einer Zelle anzuzeigen ist kein...
07.11.2008 18:31:54
Thread-ID: 1022782
3 Beiträge
Adresse des benannten Bereiches ohne VBA
Peter

Guten Abend
Gibt es eine Möglichkeit, mittels einer Formelabfrage ausfindig zu machen, wo ein bestimmter Bereich liegt?
Angenommen der Druckbereich in Tabelle1 ist B2:P2 müsste das Ergebnis der Abfrage
=Tabelle1!$B$2:$P$2
sein.
Gruss, Peter
06.01.2009 22:09:00
Thread-ID: 1037380
16 Beiträge
letzter Eintrag eines Bereiches (begrenzte Spalte)
walter

Hallo und guten Abend,
ich suche eine Formel (kein Makro) um den letzten Eintrag eines Spaltenbereiches in einer anderen Zelle darzustellen.
Wer weiß Rat ?
Danke + Gruß
Walter
11.02.2009 23:17:00
Thread-ID: 1049842
4 Beiträge
Letzte Zeile eines Bereiches finden
Claudia

Hallo zusammen,
ich suche per Formel die letzte belegte Zelle im Bereich E22:E33. Kann mir da jemand helfen? Es darf nicht die letzte belegte Zelle in Spalte E sein, weil im Anschluss noch Zellen belegt sind.
Danke!
Viele Grüße
Claudia
27.04.2009 15:07:05
Thread-ID: 1071392
9 Beiträge
Namensbereichesbeschriftung unischtbar machen
Herbert

Ich würde gerne für einen Anwender die Namensbereichsbeschriftung in der 25% Ansicht (und etwas größere) unsichtbar machen, da diese stört. (Einstellungen-Namen). Wie geht das in Excel bzhw VBA?
Herzlichen Dank Herbert
04.05.2009 12:31:50
Thread-ID: 1072719
6 Beiträge
Erste Zelle eines Bereiches
Yusuf

Moin
gibt es eine Möglichkeit die Adresse der ersten (links oben) Zelle eines festegelegten Bereiches zu ermitteln?
z.B.:
Set RaBereich = Range("A2:O54")
hier waere es "A2"
Vielen Dank im voraus.
mfg
Yusuf
26.06.2009 11:15:20
Thread-ID: 1084529
6 Beiträge
Exitenz eines Namensbereiches prüfen ?
k

Hallo,
wie kann ich per VBA prüfen, ob ein Namensbereich vorhanden ist und ihn dann ggf. löschen ?
Löschen vermutlich so:
ActiveWorkbook.Names("KD").Delete
Aber wie kann ich in der aktiven Mape danach suchen - ob es ihn gibt zum löschen ?
so:
If ... Name("KD"). gi...
29.07.2009 10:58:40
Thread-ID: 1092172
9 Beiträge
Anzeige
Summe eines Bereiches wenn 2 Kriterien
Andre

Hallo liebe Leute,
mal wieder eine kleine Frage.
hier ein Beispiel.

was mache ich da genau für einen Fehler?
hab es schon mit Summewenn versucht, doch die kann nur ein Kriterium oder?
Also er soll nur die Werte des Bereiches A3:A7 zusammenrechnen, wenn B3:B7;B10 UND wen...
08.12.2009 13:32:35
Thread-ID: 1122384
3 Beiträge
Summe eines Bereiches wenn 2 Kriterien
Andre

Hallo liebe Leute,
mal wieder eine kleine Frage.
hier ein Beispiel.

was mache ich da genau für einen Fehler?
hab es schon mit Summewenn versucht, doch die kann nur ein Kriterium oder?
Also er soll nur die Werte des Bereiches A3:A7 zusammenrechnen, wenn B3:B7;B10 UND wen...
08.12.2009 13:33:29
Thread-ID: 1122390
2 Beiträge
aktive Zelle an Anfang des Printbereiches stellen
Karsten

Hallo,
Ich benötige einen VBA-Befehl der die aktive Zelle an den Anfang des Printbereiches (selbe Spalte), in meinem Falle D6, stellt.
Läßt sich so etwas per VBA erkennen?
https://www.herber.de/bbs/user/66651.xls
Danke für eure Hilfe.
Gruß
Karsten
17.12.2009 09:42:02
Thread-ID: 1124543
5 Beiträge
Anzeige
Zelle eines Bereiches in VBA zuordnen
Horst

Hallo
ich habe unter "Einfügen" "Namen" "Definieren" einen Bereich definiert und diesem einen Namen zugewiesen.
z.B.
Baujahr =Testblatt!$H$2:$H$31
Unter VBA möchte ich auf Baujahr quasi wie ein Array zugreifen.
z.B.
Test = Baujahr(1).Value (das wäre dann also der Inh...
20.01.2010 13:45:04
Thread-ID: 1131345
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige