Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeilen mit VBA kopieren

Forumthread: Zeilen mit VBA kopieren

Zeilen mit VBA kopieren
23.12.2003 23:05:33
alex
Liebe Excelfreunde !

Ich habe ein Problem mit einem Code, der mir von Beni zur Verfügung gestellt wurde.Unter Excel 9.0 funkt er tadellos. Ich möchte ihn jedoch unter Excel 97 zum Einsatz bringen. Da meldet sich Excel immer mit Laufzeitfehler 13, Typen unverträglich. Was kann ich tun !!

Hoffe auf eure Hilfe

mit weihnachtlichem Gruss

alex
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Zeilen mit VBA kopieren - Code nachgetragen
23.12.2003 23:07:17
alex
Liebe Excelfreunde !

Ich habe ein Problem mit einem Code, der mir von Beni zur Verfügung gestellt wurde.Unter Excel 9.0 funkt er tadellos. Ich möchte ihn jedoch unter Excel 97 zum Einsatz bringen. Da meldet sich Excel immer mit Laufzeitfehler 13, Typen unverträglich. Was kann ich tun !!


Private Sub CommandButton7_Click()
'Sub Sachbearbeiter()
Sheets(1).Select
With Sheets(2)
.Columns("A:J").ClearContents
End With
z = 1
Dim dat As Date
For s = z To Cells(65536, 2).End(xlUp).Row
If Cells(s, 1) = "" Then s = s + 1
dat = Date - 90
If Cells(s, 1) < dat Then
With Sheets(2) '.Columns(2)
a = .Cells(65536, 2).End(xlUp).Row + 1
.Cells(a, 1) = Cells(s, 1)
.Cells(a, 1).NumberFormat = "dd/mm/yyyy"
.Cells(a, 2) = Cells(s, 2)
.Cells(a, 3) = Cells(s, 3)
.Cells(a, 4) = Cells(s, 4)
.Cells(a, 5) = Cells(s, 5)
.Cells(a, 6) = Cells(s, 6)
.Cells(a, 7) = Cells(s, 7)
.Cells(a, 8) = Cells(s, 8)
.Cells(a, 9) = Cells(s, 9)
.Cells(a, 10) = Cells(s, 10)
End With
End If
Next s
z = z + 1
End Sub


Hoffe auf eure Hilfe

mit weihnachtlichem Gruss

alex
Anzeige
AW: Zeilen mit VBA kopieren - Code nachgetragen
23.12.2003 23:20:30
Ramses
Hallo

welche Zeile markiert EXCEL denn im Debugger ?

Gruss Rainer
AW: Zeilen mit VBA kopieren - Code nachgetragen
23.12.2003 23:25:47
alex
Hello Rainer !

Diese Zeile 12 - If Cells(s, 1) < dat Then - wird markiert.

mdf alex
AW: Zeilen mit VBA kopieren - Code nachgetragen
24.12.2003 00:00:34
Ramses
Hallo

Da ich davon ausgehe dass die Variablen "dat" und "s" einen korrekten Wert enthalten bleibt nur noch die Möglichkeit, dass der Wert aus Cells(s,1) nicht als Datumswert interpretiert werden kann.
Wäre noch interssant zu wissen, welchen Wert "s" zu diesem Zeitpunkt hat.
Wenn du die Meldung im Debugger hast, dann fahre doch mit der Maus mal über "s". In einem Infofeld unterhalb der Variable wird dann der Wert angezeigt.
Damit kannst du die Zelle und den Inhalt prüfen.

Gruss Rainer
Anzeige
AW: Zeilen mit VBA kopieren - Code nachgetragen
24.12.2003 00:04:52
alex
Hi Rainer !
s=2

alex - damit fange ich jeoch nicht viel an !!
AW: Zeilen mit VBA kopieren - Code nachgetragen
24.12.2003 09:09:07
Ramses
Hallo

ich auch nicht ;-)
Ich kann nicht hellsehen was bei dir in Zelle A2 für ein Wert drin steht. Vielleicht ist das Datum nicht gültig oder es ist kein Datum !!
Ansonsten gibt es keinen Grund warum der Code nicht laufen sollte.

Sorry.

Gruss Rainer
Anzeige
Hokus Pokus.-..
23.12.2003 23:07:55
Ramses
Hallo

Schön dass du den Code hast,... aber wenn dir jemand helfen soll, dann wäre es schon gut wenn du den Code hier zeigen würdest.

Gruss Rainer
AW: Hokus Pokus.-..
23.12.2003 23:14:06
alex
Hallo Rainer !

Habe den Code gleich nachgesandt !!

Gruss Alex
;

Forumthreads zu verwandten Themen

Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

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