Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1380to1384
1380to1384
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

eine Spalte alle A-Blätter multiplizieren

Forumthread: eine Spalte alle A-Blätter multiplizieren

eine Spalte alle A-Blätter multiplizieren
19.09.2014 09:54:30
Matthias
Hallo Wissende,
ich hab folgendes Problem: ich möchte gerne eine bestimmte Spalte aller Arbeitsblätter einer Arbeitsmappe mit 1 multiplizieren
Danke im Voraus für Euere Antworten

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: eine Spalte alle A-Blätter multiplizieren
19.09.2014 12:32:19
fcs
Hallo Mathias,
nachfolgend ein Makro das eine entsprechende Multiplikation durchführt.
Gruß
Franz 
Sub Multiplizieren_mit_1()
Dim wks As Worksheet, Zelle As Range, Spalte As Long, StatusCalc As Long
On Error GoTo Fehler
Set wks = ActiveSheet
Spalte = 6 'Spalte F, Spalte in der Multipliziert werden soll   - ggf anpassen!!!!!
'Makrobremsen lösen
With Application
.ScreenUpdating = False
.EnableEvents = False
StatusCalc = .Calculation
.Calculation = xlCalculationAutomatic
End With
For Each wks In ActiveWorkbook.Worksheets
With wks
For Each Zelle In .Range(.Cells(1, Spalte), .Cells(.Rows.Count, Spalte).End(xlUp))
With Zelle
If IsEmpty(Zelle) Or .Value = "" Then
'die ElseIf-Prüfungen auf Datum und/oder Zeit kann man ggf. weglassen
ElseIf InStr(.Text, ":") > 0 And IsDate(.Text) Then 'Datum/Zeit
.Value = CDate(.Text)
ElseIf Len(.Text) - Len(Replace(.Text, ".", "")) = 2 _
And IsDate(.Text) Then  'Datum
.Value = CDate(.Text)
ElseIf .Text Like "####-##-##" Then  'Datum-ISO JJJJ-MM-TT
.Value = CDate(Zelle.Text)
Else
.Value = .Value * 1
End If
End With
ResumeNextZelle:
Next
End With
Next
Fehler:
With Err
Select Case .Number
Case 0
Case 13 'Typ-Fehler
Resume ResumeNextZelle
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
End Select
End With
'Makrobremsen zurücksetzen
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = StatusCalc
End With
End Sub

Anzeige
AW: eine Spalte alle A-Blätter multiplizieren
22.09.2014 07:25:28
Matthias
Guten Morgen Franz,
vielen Danke, hat mein Problem gelöst
Schöne Grüsse
Matthias
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige