Office: Wenn Spalte leer dann kopiere Spalte daneben

Hallo Freunde der Sonne,
komme mal wieder bei einem Problem nicht weiter was eig ganz einfach ist.
Folgendes soll funktionieren:
1.Durchsuche in Tabelle2 Spalte D
2.Wenn Zellen in D leer(kein Krankheitsgrund vorhanden), kopiere die Namen von Spalte C (ebenfalls Tabelle2)
-Kopierte Namen in Tabelle3 Zelle A6 einfügen


Mein Ansatz den ich mir zusammengebastelt habe:
Sub KopieErstellenBereich2()
Dim lngZeile As Long
Dim lngErste As Long
longErste = 5
With Worksheets("Tabelle3")
For longZeile = 5 To 65
If Worksheets("Tabelle1").Cells(lngZeile, 4) = "" Then
Worksheets("Tabelle1").Rows(lngZeile).Copy .Cells(lngErste, 1)
lngErste = lngErste + 1
End If
Next lngZeile
End With
End Sub

Problem: Er kopiert mir auch die Namen aus den Spalten die ich nicht will. Habe in Spalte H, N ,R ,S auch Namen und Krankheitsgründe. Er soll es halt erstmal nur für Spalte C und D machen.


Bin für jeden Tipp dankbar. *Smilie

:)

 

Hallo
Dan kopiere anstelle der ganzen Zeile nur die Zelle in Spalte C

Code:

Gruss,

Tinker Bell

 

Klappt leider nicht. Bekomme die Fehlermeldung: Ungültiger Verweis auf Next- Steuervariable :/
Gruß

 

Hallo
Folgender Code läuft bei mir ohne Fehler durch:
Code:

Wenn in Tabelle1 Spalte D leer wird Wert von Spalte C nach Tabelle3 Spalte A kopiert.

Gruss,

Tinker Bell

 

Meintest du "else" ?

 

Hallo
Der Code meines letzten Beitrag macht, nach was du im ersten Beitrag gefragt hast.
Hat sich nun deine Aufgabenstellung geaendert?

Gruss,

Tinker Bell

 

Nein alles gleich geblieben, er zeigt mir nur wieder nen Fehler an weil er das "ellse" nicht kennt deswegen hatte ich gefragt *biggrin.gif* Aber hab es jetzt soweit hinbekommen. Hab nur jetzt nen neues Problem...Also er gibt mir die Namen jetzt aus und rechts daneben habe ich mir einen Schichtplan gebastelt. Wenn ich auf den Button klicke damit er mir die Namen ausgibt, löscht er bzw überschreibt er die Tabelle rechts davon.. Woran kann das liegen?

 

Hallo
Bei dem ells hat sich das C aus dem Staub gemacht. Sollte Cells heissen.
Wie fügst du den die Namen ein? Mit meinem Code wird nur die Zelle in Spalte A überschrieben. Kann es sein dass du eine Zeile einfügst?

Poste doch deinen jetzigen Code.

Gruss,

Tinker Bell

 

Hab es nochmal mit deinem Code versucht und es klappt! *biggrin.gif* *top Danke dafür! Die Tabelle wird nicht überschrieben und er gibt mir die Namen schön in Spalte A aus. Super

 

Will jetzt kein neues Thema aufmachen daher frag ich hier mal. Kann man sowas cooles machen das man einem Button ein Macro hinzufügt und dieser bei einem Klick die Daten ausgibt und bei Doppelklick die Daten wieder löscht die er erstellt hat? *biggrin.gif*

 

Hallo
Ja das geht.
Verwende die Ereignisse:
Code:

und

Code:

Gruss,

Tinker Bell

 

Dankee *Smilie Nur versteh ich das nicht so ganz wie ich das machen soll. Soll ich die beiden befehle verbinden mit call?
*edit* Kann es sein das der unter Code nur ab 2013 funzt?

 

Hallo
Meinst du was in der Art, sihe Anhang?

Gruss,

Tinker Bell