Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1416to1420
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
Inhaltsverzeichnis

Spalte C kopieren wenn D leer ist

Spalte C kopieren wenn D leer ist
31.03.2015 17:01:47
Alex
Hallo zusammen,
ich komme bei einem Makro nicht weiter. Ich will das er mir aus der Spalte C die Namen kopiert wenn D(dort stehen die Krankheitsgründe) leer ist und in Tabelle 3 einfügt. Zum Hintergrund: Habe vier Buttons die mir bestimmtes Personal aus einem bestimmtem Werk aus den vier Bereichen mit dem Krankheitsstatus generiert. Die Leute die nicht krank sind will ich wieder per Button in ne extra Liste bekommen. Hab versucht jetzt alles in einem Button zu packen aber es funkt nicht. Das habe ich bereits:
Sub KopieErstellenBereich2()
Dim lngZeile As Long
Dim lngErste As Long
lngErste = 5
With Worksheets("Tabelle3")
For lngZeile = 5 To 65
If Worksheets("Tabelle1").Cells(lngZeile, 4) = "" Then
Worksheets("Tabelle1").Rows(lngZeile).Copy .Cells(lngErste, 1)
lngErste = lngErste + 1
Application.Goto Sheets("Tabelle3").Range("C6")
End If
Next lngZeile
End With
End Sub

Sub KopieErstellenBereich3()
Dim lngZeile As Long
Dim lngErste As Long
lngErste = 6
With Worksheets("Tabelle3")
For lngZeile = 5 To 75
If Worksheets("Tabelle1").Cells(lngZeile, 10) = "" Then
Worksheets("Tabelle1").Rows(lngZeile).Copy .Cells(lngErste, 1)
lngErste = lngErste + 1
Application.Goto Sheets("Tabelle3").Range("E6")
End If
Next lngZeile
End With
End Sub
Sub KopieErstellenBereich4()
Dim lngZeile As Long
Dim lngErste As Long
lngErste = 7
With Worksheets("Tabelle3")
For lngZeile = 5 To 65
If Worksheets("Tabelle1").Cells(lngZeile, 13) = "" Then
Worksheets("Tabelle1").Rows(lngZeile).Copy .Cells(lngErste, 1)
lngErste = lngErste + 1
Application.Goto Sheets("Tabelle3").Range("G6")
End If
Next lngZeile
End With
End Sub
Sub KopieErstellenBereich5()
Dim lngZeile As Long
Dim lngErste As Long
lngErste = 8
With Worksheets("Tabelle3")
For lngZeile = 5 To 100
If Worksheets("Tabelle1").Cells(lngZeile, 18) = "" Then
Worksheets("Tabelle1").Rows(lngZeile).Copy .Cells(lngErste, 1)
lngErste = lngErste + 1
Application.Goto Sheets("Tabelle3").Range("I6")
End If
Next lngZeile
End With
End Sub
Sub KopieErstellenGesamt()
Call KopieErstellenBereich2
Call KopieErstellenBereich3
Call KopieErstellenBereich4
Call KopieErstellenBereich5
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalte C kopieren wenn D leer ist
31.03.2015 17:11:53
Rudi
Hallo,
natürlich klappt das nicht.
Du überschreibst bereits kopierte Zeilen.
Gruß
Rudi

AW: Spalte C kopieren wenn D leer ist
31.03.2015 17:14:16
Alex
Und wie mach ich es richtig?

AW: Spalte C kopieren wenn D leer ist
31.03.2015 17:45:51
Klexy
Du kopierst aber nicht nur Spalte C, sondern die ganze Zeile.
Wenn du im Code die Zeile
Application.Goto Sheets("Tabelle3").Range("C6")

wegmachst, funktioniert es.
Wenn überhaupt, ist diese Zeile nach dem End With sinnvoll, um nach dem Durchgang zur Ergebnisliste zu kommen.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige