Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
Du verwendest einen veralteten Browser. Es ist möglich, dass diese oder andere Websites nicht korrekt angezeigt werden. Du solltest ein Upgrade durchführen oder einen alternativen Browser verwenden.
Diskutiere Excel: belegte Zellen kopieren im Windows XP Forum Forum im Bereich Betriebssysteme; Hallo,
ich habe mir einen kleinen Jahreskalender erstellt, der zur Zeit so aussieht.
A B C D
1 Datum: Geburtstag: Telefon: Handy...
#1
P
panscher
Bekanntes Mitglied
Themenersteller
Dabei seit
02.09.2004
Beiträge
99
Reaktionspunkte
0
Hallo,
ich habe mir einen kleinen Jahreskalender erstellt, der zur Zeit so aussieht.
A B C D
1 Datum: Geburtstag: Telefon: Handy:
2 01.01.2008 Martha 34423423 34343
3 02.01.2008
4 03.01.2008 Sabrina 34535 46466
usw.
Dieser geht bis 31.12.2008.
Jetzt möchte ich die Zellen, in denen was drin steht (A14) auf ein neues Tabelleblatt als Jahresübersicht kopieren, geht das mit einer Formel oder braucht man dazu ein VBA-Makro?
Gruß Martin
#2
M
Matjes
Bekanntes Mitglied
Dabei seit
22.08.2001
Beiträge
2.308
Reaktionspunkte
0
Hallo Martin,
das kleine Makro sollte das gewünschte erfüllen.
Code:
Sub JahresuebersichtErstellen()
Const cBLTNAME_JAHRESUEBERSICHT = __Jahresübersicht__
Const cZUEBERSCHRIFT = 1->Zeilennummer der Überschriften
Const cSPDATUM = 1-> Spalte A
Const cSPNAME = 2 -> Spalte B, entscheidet ob Zeile Leer ist
Dim ws As Worksheet
Dim lZeilen As Long, z As Long
If LCase(ActiveSheet.Name) = LCase(cBLTNAME_JAHRESUEBERSICHT) Then
MsgBox Makro kann nicht auf Blatt & cBLTNAME_JAHRESUEBERSICHT & ausgeführt werden.
GoTo AUFRAEUMEN
End If
->eventuell vorhandene Jahresübersicht löschen
For Each ws In ActiveWorkbook.Worksheets
If LCase(ws.Name) = LCase(cBLTNAME_JAHRESUEBERSICHT) Then
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
Exit For
End If
Next
->Blatt kopieren
ActiveSheet.Copy After:=ActiveSheet
->kopiertes Blatt zur Jahresübersicht machen
Set ws = ActiveSheet
ws.Name = cBLTNAME_JAHRESUEBERSICHT
->Zeilen ohne Inhalt in Spalte Name löschen
lZeilen = ws.Cells(ws.Rows.Count, cSPDATUM).End(xlUp).Row
For z = lZeilen To cZUEBERSCHRIFT + 1 Step -1
If ws.Cells(z, cSPNAME).Value = Then ws.Rows(z).Delete
Next
AUFRAEUMEN:
Set ws = Nothing
End Sub