Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
708to712
708to712
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalte Daten löschen

Forumthread: Spalte Daten löschen

Spalte Daten löschen
21.12.2005 17:24:37
Walter
Hallo Guten Abend,
habe Heute von Harald Unterstützung erhalten, diese Makro Funktioniert
bestens, nun möchte ich aber die vorhandenen Daten der Spalte 2 vorher gelöscht werden, habe schon probiert klappt nicht.
Makro:

Sub VF_Ausfüllen()
Dim i As Integer
For i = 4 To Cells(Rows.Count, 1).End(xlUp).Row
If IsEmpty(Cells(i, 2)) And IsEmpty(Cells(i, 3)) Then Cells(i, 2) = "f" & " " & _
Format(Cells(i, 1), "00") & "/" & Format(Cells(i, 4), "00")
Next i
End Sub

Gruß Waltermg
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Hurrrrraaaaa geschaft o.t.
21.12.2005 17:51:01
Walter
Hallo Zusammen,
bin stolz auf mich, habe es geschaft.
Habe diese Makro zusammengebastelt:

Sub VF_Löschen_und_Ausfüllen()
Dim i As Integer
For i = 4 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(i, 2) = Delete                                   'hier erst löschen
Next i
For i = 4 To Cells(Rows.Count, 1).End(xlUp).Row
If IsEmpty(Cells(i, 2)) And IsEmpty(Cells(i, 3)) Then Cells(i, 2) = "f" & " " & _
Format(Cells(i, 1), "00") & "/" & Format(Cells(i, 4), "00")
Next i
End Sub

Gruß Waltermg
Anzeige
Gratuliere! Wieviel Schafe sind's denn? ;-))
22.12.2005 02:47:35
Luc:-?
Hallo Walter,
aus germanisch p (engl shape) wurde im Wortinneren deutsch (nach Kurzvokal) i.d.R. ff (schaffen) - bei Schaf (engl sheep) blieb wegen der Vokallänge nur f übrig. Das Ganze nennt man 2.germanische bzw deutsche Lautverschiebung.
Gruß + Frohe Weihnachten
Luc :-?
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige