Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
728to732
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
728to732
728to732
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Hilfe beim kopieren

Hilfe beim kopieren
05.02.2006 21:58:12
Ulf
Hallo Ihr Excelprofis
Warum funktioniert der Code nicht?
Laufzeitfehler 1004

Private Sub CommandButton2_Click()
Dim Tbb As Integer
Dim TbbH As Integer
Dim lastRow As Long
Dim z As Integer
Dim AZ As Integer
z = TextBox1.Value
TbbH = ActiveSheet.Index
AZ = ActiveCell.Row
If OptionButton1.Value = True Then Tbb = 1
If OptionButton2.Value = True Then Tbb = 2
If OptionButton3.Value = True Then Tbb = 3
If OptionButton4.Value = True Then Tbb = 4
If OptionButton5.Value = True Then Tbb = 5
If OptionButton6.Value = True Then Tbb = 6
If OptionButton7.Value = True Then Tbb = 7
If OptionButton8.Value = True Then Tbb = 8
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With
Sheets(Tbb).Unprotect
lastRow = Sheets(Tbb).Cells(Rows.Count, 4).End(xlUp).Row
Sheets(Tbb).Range(Cells(lastRow + 1, 4), Cells(lastRow + z + 1, 15)) = Sheets(TbbH).Range(Cells(AZ, 4), Cells(AZ + z, 15)).Value2
Sheets(Tbb).Range(Cells(lastRow + 1, 6), Cells(lastRow + 1 + z, 6)) = ""
Unload Me
Sheets(Tbb).protect
With Application
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
Sheets(Tbb).Activate
End Sub

Im voraus vielen Dank
Ulf

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

Betreff
Datum
Anwender
Anzeige
AW: Hilfe beim kopieren
05.02.2006 22:03:49
MichaV
Hallo,
Du würdest den Profis das Suchen sehr erleichtern, wenn Du mitteilen würdest, WO der Fehler auftritt.
Gruß- Micha
PS: Rückmeldung wäre nett.
AW: Hilfe beim kopieren
05.02.2006 22:09:52
Ulf
Hallo Micha
Der Fehler tritt auf bei
Sheets(Tbb).Range(Cells(lastRow + 1, 4), Cells(lastRow + z + 1, 15)) = Sheets(TbbH).Range(Cells(AZ, 4), Cells(AZ + z, 15)).Value2
Ulf
AW: Hilfe beim kopieren
05.02.2006 22:21:44
Ulf
Hallo
Habe es rausbekommen
with sheets(Tbb)
muß es heißen
Danke
Ulf
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige