Office: Zelle kopieren wenn nicht leer

Hallo liebe Excel-Gemeinde,

ich habe einen VBA-Code, mit dem ich die Werte in Spalte C (ab C12) in Spalte B kopieren möchte, aber NUR, wenn die jeweilige Zelle in C NICHT leer ist.

Der bisherige Code ist dieser
Code:

Was muss ich ergänzen?

Gruß,

krampi

:)

 

Hi,

Code:

 

Hallo krampi,

versuche es so:

Code eingefügt mit

 

Danke Jürgen,

aber irgendwie klappt es noch nicht. Aber vielleicht liegt der Fehler auch an meiner Beschreibung.

Machen wir es mal so.
Sp. B Sp. C
XY Z
TD A
AA
A

Wenn da sowas steht, dann soll zum Beispiel Z nach XY kopiert werden und somit XY überschrieben. Gleiches mit A nach TD. Aber AA soll nicht überschrieben werden, da in Spalte C ja nichts steht. Der Wert A in Spalte C kann wiederum in B kopiert werden.

 

Entschuldigt den Doppelpost, aber danke @ pefeu. Es klappt. *Smilie Vielen Dank.

 

Einen kleinen Fehler habe ich nun doch noch entdeckt. Wenn jetzt in der C-Spalte mal eine Zelle leer ist, sagen wir mal C15, so wird der darauffolgende Wert in C16 in die Zelle B15 kopiert.

 

Hallo krampi,

du solltest ganz einfach besser beschreiben was du möchtest, dann gibt es keine Missverstädnisse:

Code eingefügt mit

 

Jetzt ist es perfekt. Danke @ Pefeu.

Du hattest ja leider schon eher geantwortet als ich eine bessere Beschreibung hinzugefügt hatte - und ich hatte deine Antwort da noch nicht gesehen. Leider. :-(

 

Hallo Forum

Ich habe folgendes Makro:

Sub FC540kopieren()

Sheets("MapInputsGeneral").Select

Range("A1:A513").Select
Application.CutCopyMode = False

Selection.Copy

Sheets("HDGC_Pilotlab").Select
End Sub

Nun muss ich es wie folgt ergänzen aber ich weiss nicht wie:
Die Zellen A1 bis A513 sollen nur makiert werden wenn diese Zeile nicht leer ist.
Beispiel: In der Zelle A1 bis 200 und 300 bis 400 stehen Werte drin. Nun soll mit dem Makro Zelle A1 bis 200 und 300 bis 400 makiert werden und in den Speicher gelegt werden.

Hat jemand einen Vorschlag?
Danke.

 

Hallo

Ich habe mir mittlerweile einen Coda zusammengebaut.

Er funktioniert auch super

Problem der Kommentar der in der Ursprungszelle ist wird nicht mit kopiert.

Hat wer eine Idee

Mein Code

sub rotzaehlen()
anzahl = 0
For Each zelle In Range("Dienstplan!h5:h300")
If zelle.Interior.ColorIndex = 3 Then
anzahl = anzahl + 1
End If
Next zelle
Cells(41, 22).Value = anzahl
End Sub

Danke für eure Hilfe

 

Dein Code kopiert keine Zelle.

 

oh sorry war der falsche der andere zählt die roten hier der richtige

Sub Kranke()
Dim a As Long, i As Long
Application.ScreenUpdating = True
a = 2
For i = 1 To 10000
With Worksheets("Dienstplan")
If .Cells(i, "B").Interior.ColorIndex = 3 Then
Worksheets("Ausfälle").Cells(a, 1).Value = Worksheets("Dienstplan").Cells(i, 1).Value

Worksheets("Ausfälle").Cells(a, 2).Value = Worksheets("Dienstplan").Cells(i, 2).Value


a = a + 1
Else
End If
End With
Next i
Application.ScreenUpdating = True

End Sub

 

Worksheets("Dienstplan").Cells(i, 1).copy Worksheets("Ausfälle").Cells(a, 1)
dann wird auch das Format kopiert und nicht nur der Wert.