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

Kopieren in ein neues Tab.blatt ?

Kopieren in ein neues Tab.blatt ?
25.05.2004 13:49:01
Andi
Hallo,
ich 2 Select Case Funktionen, beide sollen Reihen in ein neues Tab.blatt sortieren. Nätürlich ohne das Lücken sind, also immer in die nächste leere Zeile, egal ob die zu kopierenden Zeilen hintereinander sond oder auch Lücken aufweisen. Verstehe nicht, warum das bei der ersten Select Case Funktion klappt, aber bei der anderen nicht ?
Hier klappts:
Dim i As Long, n As Long, a As Long
Cells.Interior.ColorIndex = xlNone
n = 1
For i = 4 To 103
Select Case Sheets("UG").Cells(i, 7).Value
Case Is = Date
Rows(i).Font.ColorIndex = 3
Rows(i).Font.Size = 12
Rows(i).Font.Bold = True

Do
n = n + 1
Loop Until IsEmpty(Sheets("Dringende Termine").Cells(n, 7))

Rows(i).Copy Destination:=Sheets("Dringende Termine").Cells(n, 1)
Case ....
Aber hier nicht ?
Cells.Interior.ColorIndex = xlNone
n = 1
For a = 4 To 103
Select Case Sheets("UG").Cells(a, 9).Value
Case "stetig"
Do
n = n + 1
Loop Until IsEmpty(Sheets("Stetige Aufgaben").Cells(n, 7))

Rows(a).Copy Destination:=Sheets("Stetige Aufgaben").Cells(n, 1)
Case ...
;-)

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

Betreff
Datum
Anwender
Anzeige
AW: Kopieren in ein neues Tab.blatt ?
Uduuh
Hallo,
bei Textvergleichen wird zwischen Groß- und Kleinschreibung unterschieden.
Vielleicht besser so vergleichen:
Select Case Ucase(sheets("UG").cells(a,9))
Case Ucase("stetig")
Deine erste freie Zeile kannst du schneller ermitteln:
n=sheets("Stetige Aufgaben").cells(65536,7).end(xlup).row+1
Gruß aus'm Pott
Udo
Danke Schön
25.05.2004 15:17:06
Andi
Heißen Dank für den Tip, ;-)
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige