Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1524to1528
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
Inhaltsverzeichnis

verbundene Zellen zählen

verbundene Zellen zählen
25.11.2016 20:10:47
Thomas
Hallo Excelfreunde
zur zeit benutze ich folgendes macro:
Private Sub CommandButton1_Click()
Dim i
With Cells(Rows.Count, "ae").End(xlUp)
.Offset(-1, 0).Resize(2).EntireRow.Copy
For i = 0 To 8 Step 2
.Offset(1 + i, 1 - .Column).PasteSpecial xlPasteAll
Next i
End With
End Sub
kann mir jemand dabei helfen dieses macro so umzuschreiben das es immer ausgeführt wird wenn in spalte ae eine 10 steht? zur zeit wird es immer bei jeden wert in spalte ae ausgeführt.
habt schon mal besten dank für euer Interesse.
mfg thomas

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

Betreff
Datum
Anwender
Anzeige
bedingter macrostart
25.11.2016 20:39:32
Thomas
Hallo Excelfreunde,
hatte noch ein alten betreff drin.
sorry
mfg thomas
AW: bedingter macrostart
25.11.2016 22:41:07
Matthias
Hallo
Option Explicit
Private Sub CommandButton1_Click()
Dim i
With Cells(Rows.Count, "ae").End(xlUp)
If Cells(Rows.Count, "ae").End(xlUp) = 10 Then
.Offset(-1, 0).Resize(2).EntireRow.Copy
For i = 0 To 8 Step 2
.Offset(1 + i, 1 - .Column).PasteSpecial xlPasteAll
Next i
End If
End With
Application.CutCopyMode = False
End Sub
oder so:
Option Explicit
Private Sub CommandButton1_Click()
Dim i
With Cells(Rows.Count, "ae").End(xlUp)
If .Value  10 Then Exit Sub
.Offset(-1, 0).Resize(2).EntireRow.Copy
For i = 0 To 8 Step 2
.Offset(1 + i, 1 - .Column).PasteSpecial xlPasteAll
Next i
End With
Application.CutCopyMode = False
End Sub
Gruß Matthias
Anzeige
besten dank an Matthias L
26.11.2016 10:50:39
Thomas
Hallo Matthias,
hab besten dank für deine Unterstützung,
Das passt so super.
liebe grüsse thomas

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige