Wenn Spalte leer dann, ansonsten ...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Xsetzen() Dim a As Variant a = Application.Match(Worksheets("Tabelle2").Range("B4"), Columns(1), 0) If IsNumeric(a) Then With Worksheets("Tabelle1").Cells(a, 1) Worksheets("Tabelle2").Cells(6, 6) = IIf(Application.CountIf(Cells(.CurrentRegion.Row, 3). _ Resize(.CurrentRegion.Rows.Count), ""), "x", "") End With Else MsgBox "Modul nicht vorhanden" End If End Sub

For Each zelle In .Range("C8:C100") If Not IsEmpty(zelle) Then Worksheets("Tabelle2").Cells(5, 3) = "x": Exit For End If If IsEmpty(Zelle) Then Worksheets("Tabelle2").Cells(5, 3) = "": Exit For End If Next Zelle

Const adRelBer$ = "C8:C100", adZZelle$ = "C5", naRelZTab$ = "Tabelle2" … For Each zelle In .Range(adRelBer) With Worksheets(naRelZTab).Range(adZZelle) If IsEmpty(zelle) Then If Not IsEmpty(.Value) Then .ClearContents Else: .Value = "x": Exit For End If End With Next zelle

Hallo,
also erst mal Danke für deine Bemühungen. Ich bin noch Leie und es ist noch nicht ganz einfach manche Dinge in Worte zu fassen. Von falschen Voraussetzungen würde ich nicht reden, eher von einer schlechten Erklärung meinerseits. Mein Ziel ist es nicht etwas von dem Druckmakro zu ersetzen, sondern etwas hinzufügen. Den Druckmakro habe ich bewusst weggelassen, um mich selbst zu testen, wie ich den Spaß in meinen eigentlichen Makro einbaue, was dann doch nicht geklappt hat.
Das bisschen Quellcode zu Beginn des Threads hat eingebaut schon fast das gemacht, was es sollte, nämlich ein x an eine bestimmte Stelle in Tabelle 2 einzufügen bzw. keins bei bestimmter Bedingung. Wenn die Spalte C gefüllt ist, dann gibt es ein X, ansonsten soll es wieder gelöscht werden.
Ich habe den Quellcode fürs Lesen benutzerfreundlicher gemacht. Was ich genau für Angaben zu den Zellbezügen machen soll, weiß ich leider nicht.
https://www.herber.de/bbs/user/88208.xlsm
Grüße

…anderer Ablenkungen, Auseinandersetzungen und Aufgaben, flacus; ;-]
aber, falls ich das alles richtig interpretiere und du nur feststellen willst, ob über den Löschbereich hinaus in C des Ausgabebereichs noch Daten vorhanden sind, könnte das mit Folgendem feststellbar sein:

Option Explicit
Const naRelZTab$ = "Tabelle2"
Private Sub AusgabeLeeren()
Const adDelBer$ = "A8:C60"
Sheets(naRelZTab).Range(adDelBer).Cells.Delete
End Sub
Sub Drucken()
Const adRelBer$ = "C8:C100", adZZelle$ = "C5", naRelQTab$ = "Tabelle1"
Dim iZeile As Long, iZeileAusgabe As Long, lAnzahl As Long, lngZeile_L As Long
Dim iDruck As Boolean, lAnzahl2 As String
Dim wksAusgabe As Worksheet, zelle As Range
With Application
.ScreenUpdating = False
End With
AusgabeLeeren
With ThisWorkbook.Worksheets(naRelQTab)
Set wksAusgabe = ThisWorkbook.Worksheets(naRelZTab)
With wksAusgabe.Range(adZZelle)
If Not IsEmpty(.Value) Then .ClearContents
For Each zelle In wksAusgabe.Range(adRelBer)
If Not IsEmpty(zelle) Then .Value = "x": Exit For
Next zelle
If Not zelle Is Nothing Then Set zelle = Nothing
End With
'letzte Zeile mit Daten
…

Allerdings weiß ich nicht, ob du das vor dem ErstDruck oder erst danach feststellen willst (während des Drucks wird ja auch schon zyklisch die Ausgabe geleert!). Das musst du wissen und ggf erneut fragen (hier ist nämlich ab heute um Mitternacht Schluss)!
Gruß Luc :-?

Beliebteste Forumthreads (12 Monate)

Wenn Spalte leer dann, ansonsten ...

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

368 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wenn Spalte leer dann, ansonsten ...

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

368 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread