Zellen ohne Inhalt beim kopieren überspringen
08.09.2003 14:29:12
Kay
ich habe zwei Probleme, auf die ich noch keine Lösung finden konnte.
1. Problem:
_______Spalte_A Spalte_B
Zeile 1___10______Ja
Zeile 2____5
Zeile 3___10______Ja
In Spalte_B ist eine Formel hinterlegt: =wenn(A1>9;"Ja";"")
Ich möchte nun alle "Ja" aus der Spalte B kopieren und in die Tballe2 kopieren und dabei die Leerzeilen überspringen, so dass in Tabelle2 folgendes steht:
_______Spalte_A
Zeile 1___Ja
Zeile 2___Ja
Die Zeile 2 wurde also ausgelassen, da hier kein Inhalt zu finden ist. Ich habe nun folgenden VBA Code:
Sub benoetigte_Schichten()
Application.ScreenUpdating = False
For I = 5 To 358
Sheets("benoetigte_Schichten_Umrechnung").Select
If (Range("D" & I).Value <> "") Then
Zaehler = Zaehler + 1
If (Range("E" & I).Value <> "") Then
Range("E" & I).Select
End If
Selection.Copy
Sheets("benötigte Schichten").Select
Range("A" & 2).Select
ActiveSheet.Paste
Sheets("benoetigte_Schichten_Umrechnung").Select
Range("D" & I).Select
Selection.Copy
Sheets("benötigte Schichten").Select
Range("B" & 2).Select
ActiveSheet.Paste
End If
Next I
Application.ScreenUpdating = True
Sheets("benötigte Schichten").Select
Range("A2").Select
End Sub
Ich habe in der Tabelle nicht nur ein "Ja" stehen, sondern einen variablen Text. Mein Ansatz war also folgender. Ich schaue nach Zellen, die einen Inhalt haben und selektiere diese. Es ist jedoch immer diese Formel hinterlegt, welche auch als "Inhalt" erkannt wird und daher nicht übersprungen wird, obgleich kein Inhalt zu sehen ist. Der Code Value <> "" muss also falsch sein. Ich könnte ja zunächst die Spalte_B kopieren und dann nur die Werte in eine Tabelle einfügen und dann das Script ablaufen lassen, dies wollte ich jedoch aus Gründen der Performance vermeiden. Wer kann mir helfen?
Problem 2:
Ich habe hier im Forum die Info bekommen, dass es keine Möglichkeit gibt innerhalb von Verkettungen (=Verketten(A1;" bis ";B1;C2)) Formatierungen zu hinterlegen, so dass der Inhalt von A1 beispielsweise "rot" dargestellt wir. Wie lauten denn die Alternativen zu Verketten? Ich wollte negative Werte in Zelle A1 rot darstellen und positive Standard.