Excel: Makro mit Bedinung "wenn leer, kopieren von und einfügen"

Tobsen086 · 21.07.2008

Hallo!

Hab leider keine hilfreiche Seite für das Problem gefunden. Bin immer nur zu farblichen Veränderungen von Zellen gekommen. Folgendes Problem: Ich habe eine Tabelle mit Spielbegnungen, wo aber leider das Datum an einer falschen Stelle steht. Es ist nämlich nicht für jedes Spiel einzeln definiert sondern zusammenfassend, für alle Spiele, die an dem Tag sind. Also so:

Das ist aber alles andere als praktisch. Ich bräuchte nun ein Makro (oder sonst irgendeinen Weg) um das Datum vor jedes Spiel zu bekommen. Mögliche Bedingungen sind ja gegeben:
1. überall, wo keine Zahl in der Spalte Spiel steht, muss der Inhalt von Spalte C zu B verschoben werden
2. dieses Datum soll dann immer in Spalte B eingetragen werden, bis ein neues Datum kommt

Und so sollte es danach aussehen:

Kopfzeile kann natürlich auch weg. Die ist nicht wichtig. Rund würde die ganze Sache am Ende natürlich noch sein, wenn dann noch die Zeilen, wo nur das Datum steht auch noch wegkommen, und quasi pro Zeile nur ein Spiel drin steht. Aber das ist noch in weiter Ferne für mich. Ich wäre schon happy, wenn ich es automatisieren kann, dass es dann so, wie das untere Bild aussieht. Über jegliche Links, Hilfen oder Antworten bin ich dankbar.

Schönen Tag,
Tobi!

Hier das ganze nochmal als Tabelle:

Spiel	Datum	Heim	Gast	Anstoß
		16.8.2008
2		Velten	Bernau	15:00
3		Babelsberg	FC Stahl Brandenburg	15:00
4		Finow	MSV 1919 Neuruppin	15:00
5		BSC Rathenow	Rüdersdorf	15:00
6		Nauen	Hennigsdorf	15:00
7		Werder	Wittenberge/ Br.	15:00
8		Marienwerder	Seelow	15:00
		17.8.2008
1		Schönow	Zehdenick	14:00
		22.8.2008
14		Bernau	Marienwerder	18:30
15		Seelow	Schönow	19:30
		23.8.2008
9		Wittenberge/ Br.	Nauen	15:00
10		Hennigsdorf	BSC Rathenow	15:00
11		Rüdersdorf	Finow	15:00
12		MSV 1919 Neuruppin	Babelsberg	15:00
13		FC Stahl Brandenburg	Velten	15:00
16		Zehdenick	Werder	15:00
		29.8.2008
23		Seelow	Bernau	19:30
		30.8.2008
18		Velten	MSV 1919 Neuruppin	15:00
19		Babelsberg	Rüdersdorf	15:00
20		Finow	Hennigsdorf	15:00
21		BSC Rathenow	Wittenberge/ Br.	15:00
22		Nauen	Zehdenick	15:00
24		Marienwerder	FC Stahl Brandenburg	15:00
17		Schönow	Werder	16:00

bythom · 25.07.2008

Muss der Inhalt, wenn es ein Datum ist, unbedingt von Spalte C nach Spalte B verschoben werden ? Oder kann das Datum zusätzlich in Spalte C stehenbleiben?

Wenn es stehenbleiben kann, schreibst du in in B2 folgende Formel, und kopierst sie in alle Felder der Spalte B, die du benötigst

=WENN(UND(A2=;C2=);;WENN(UND(A2=;C2<>);C2;B1))

Spalte B muss als Datum formatiert sein.

Tobsen086 · 28.07.2008

Hallöchen!

Hätte ich ja vielleicht nochmal antworten können. Mir wurde in einem anderen Forum mit diesem Makro wunderbar geholfen:

Code:

Option Explicit 

Sub umordnen() 
Dim wks As Worksheet 
Dim lng As Long, lngLetzte As Long 
Dim dtDatum As Date 

Set wks = ActiveSheet 
With wks 
  lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count) 
  If lngLetzte &lt; 2 Then 
    MsgBox keine Daten zum umsortieren Vorhanden 
    Exit Sub 
  End If 
'leere Zelle in A2 und Datum in C2 ? 
  If IsEmpty(.Cells(2, 1)) And IsDate(.Cells(2, 3).Value) Then 
    dtDatum = .Cells(2, 3).Value 
    .Cells(2, 3).ClearContents 
  Else 
    MsgBox falsches Datenformat 
    Exit Sub 
  End If 
'umsortieren 
  For lng = 3 To lngLetzte 
    If IsEmpty(.Cells(lng, 1)) And IsDate(.Cells(lng, 3).Value) Then 
      dtDatum = .Cells(lng, 3).Value 
      .Cells(lng, 3).ClearContents 
    Else 
      .Cells(lng, 2).Value = dtDatum 
    End If 
  Next lng 
'leere Zeilen löschen (Spalte A enthält keinen Wert) 
  For lng = lngLetzte To 2 Step -1 
    If IsEmpty(.Cells(lng, 1)) Then 
      .Rows(lng).Delete Shift:=xlShiftUp 
    End If 
  Next lng 
End With 
End Sub

Besten Dank trotzdem!

Excel: Makro mit Bedinung "wenn leer, kopieren von und einfügen"

Tobsen086

bythom

Tobsen086

Excel: Makro mit Bedinung "wenn leer, kopieren von und einfügen"

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums