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

Typen unverträglich

Typen unverträglich
08.04.2003 12:19:20
Mike E.
Hallo,

an markierter Stelle bekomme ich imer die Meldung "Typen unverträglich", kann mir allerdings nicht erklären, warum.

Sub Test()

Dim i As Integer
Dim Zeile As Integer

Zeile = 1
For i = 2 To 49

Workbooks("HalfHour05-04-14.xls").Sheets("Technik").Activate

If ActiveSheet.Cells(i, 8).Value >= 3 Then
Worksheets("Technik").Range(Cells(i, 1), Cells(i, 13)).Select
Selection.Copy
End If
Workbooks("VorlageBriefing.xls").Activate

While Worksheets(1).Cells(Zeile, 1) <> "" <---hier der Fehler

Zeile = Zeile + 1

Wend

Worksheets("Tabelle1").Cells(Zeile, 1).Select
ActiveSheet.Paste

Next i
End Sub

weiß jeman rat?

Viele Grüße
Mike


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

Betreff
Datum
Anwender
Anzeige
Re: Typen unverträglich
08.04.2003 12:23:19
Nike

Hi,
mach`s lieber mit
do loop
...
do

Zeile = Zeile + 1
loop until Worksheets(1).Cells(Zeile, 1) = ""
...

Bye

Nike

Re: Typen unverträglich
08.04.2003 12:35:18
Martin Beck

Hallo Mike,

versuche mal

While IsEmpty(Worksheets(1).Cells(Zeile, 1))

Gruß
Martin Beck

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige