Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
456to460
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
456to460
456to460
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bestimmte Zellen im Worksheet per VBA umrechnen

Bestimmte Zellen im Worksheet per VBA umrechnen
20.07.2004 07:25:19
Karsten
Hallo Excelianer,
wer kann mir bei folgendem Problem helfen:
Ich habe ein Tabellenblatt bei dem in der 3., 4., 6. ... Spalte Werte stehen, die temporär per VBA-Funktion ("Public Function Umrechnen(Wert as double)" umgerechnet werden sollen. Wie kann ich es per VBA erreichen, daß ich alle diese Werte finde und berechnen kann? Das Problem ist, daß die Anzahl der gefüllten Spalten wechseln kann und die jeweils gefüllten Zeilen auch variieren.
Karsten

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestimmte Zellen im Worksheet per VBA umrechnen
Nike
Hi,
mal so versuchen:

Sub test()
Call Calc_if_C_isNumeric(3)
Call Calc_if_C_isNumeric(4)
Call Calc_if_C_isNumeric(6)
End Sub



Sub Calc_if_C_isNumeric(intCol As Integer)
Dim lngZA As Long
Dim lngZE As Long
Dim lngRow As Long
'first filled Cell
lngZA = 1
'last filled Cell in Col intCol
With Worksheets(1)
lngZE = .Cells(.Rows.Count, intCol).End(xlUp).Row
For lngRow = lngZA To lngZE
If IsNumeric(.Cells(lngRow, intCol)) Then
.Cells(lngRow, intCol) = umrechnen(.Cells(lngRow, intCol))
End If
Next
End With
End Sub

Bye
Nike
Anzeige
AW: Bestimmte Zellen im Worksheet per VBA umrechnen
Karsten
Hi Nike,
herzlichen Dank schonmal,
ich probiers jetzt erst mal aus und geb Dir dann Rückantwort.
Karsten
AW: Bestimmte Zellen im Worksheet per VBA umrechnen
Karsten
Hi Nike,
funktioniert super, danke.
Karsten

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige