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

Schaltfläche kopieren

Forumthread: Schaltfläche kopieren

Schaltfläche kopieren
13.12.2004 12:49:40
louis
Hallo Forum,
ich habe mir dank eurer hilfe ein makro zusammengebastelt was auch super funzt.
Jetzt möchte ich die schaltflächen noch mit kopieren bekomme das aber nicht hin.
https://www.herber.de/bbs/user/14744.xls
Hat jemand einen rat?
Danke im vorraus.
louis
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Schaltfläche kopieren
RALF
Moin,
folgender code sollte helfen:

Sub n()
Range("B5:E10").Copy
cells([B5].end(xldown).row+1,2).select
selection.paste
application.cutcopymode=false
For Each c In range([b5],cells([b5].end(xldown).row,2))
If c.NumberFormat = """TE"" 0" Then
k = k + 1
c.Value = k
End If
Next
End Sub

Viel Spaß damit
Gruß RALF
Anzeige
sorry...vertippt
RALF
kleiner Fehler im obigen code
jetzt richtig:

Sub n()
Range("B5:E10").Copy
Cells([B5].End(xlDown).Row + 1, 2).Select
ActiveSheet.Paste
Application.CutCopyMode = False
For Each c In Range([B5], Cells([B5].End(xlDown).Row, 2))
If c.NumberFormat = """TE"" 0" Then
k = k + 1
c.Value = k
End If
Next
End Sub

Gruß RALF
Anzeige
AW: sorry...vertippt
13.12.2004 20:47:57
louis
ja genau so, vielen dank.
super ich hatte schon aufgegeben.
starkes forum das steht fest!!!!!!
mfg
louis
;

Beliebteste Forumthreads (12 Monate)

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