Makro für ersetzten

Hallo,
ich bräuchte ein Makro welches mir im Tabellenblat Datenbasis in Splate K folgendes macht:
K1 bleibt unverändert
Ab K2 bis zur letzten Zeile soll wenn in der jeweiligen Zelle was drinsteht ein ja reingeschrieben werden. Das ursprüngliche kann überschrieben werden.
Dort wo nichts in Spalte K steht soll ein nein eingetragen werden. (K1 bleibt von Änderungen unberührt)
Wie bekomm ich das hin.
Info zur letzten Zeile: weil ja in den Zellen wo nichts stehen soll ein nein eingetragen werden soll heisst das nicht das bis zur aller letzten Zeile von Excel 65536 mal nein stehen soll
Das Makro soll dort aufhören wo in Spalte A nichts steht.
Bsp:
Meine Datenbasis ist bis zu A500 gefüllt, dann soll das Makro in den Zellen K2 bis K500 Inhalt durch "ja" ersetzten und leere Zellen ein "nein" eintragen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Dim liZeile As Integer With Sheets("Datenbasis") For liZeile = 2 To Cells(Rows.Count, 11).End(xlUp).Row If .Range("K" & liZeile).Value "" Then .Range("K" & liZeile).Value = "ja" Else .Range("K" & liZeile).Value = "nein" End If Next End With End Sub

Sub tt() Dim Bereich As Range Dim cls As Range Set Bereich = Range("K2:K" & Cells(Rows.Count, 11).End(xlUp).Row) For Each cls In Bereich If cls = "" Then cls = "NEIN" Else cls = "JA" End If Next End Sub

Sub test() With Range("K2:K" & Cells(Rows.Count, 1).End(xlUp).Row) .Formula = .Value 'nur erforderlich, falls in Spalte K Formeln stehen .SpecialCells(xlCellTypeConstants).Value = "Ja" .SpecialCells(xlCellTypeBlanks).Value = "Nein" End With End Sub

Hi
ja, wenn die SpecialCells keine Zellen findet, gibts ne Fehlermeldung.
das ist dann einer der wenigen Fälle, wo es sinnvoll ist ein On Error Resume Next einzubauen, das bwirkt, daß das Makro bei einem Fehler einfach weiter läuft.
das sollte man aber wirklich nur für die Codebereiche einsetzen, in denen so ein Fehler auch wirklich auftauchen darf und keine Weiteren Folgen hat.
Deswegen sollte man auch immer gleich mit On Error Goto 0 wieder auf den normalen Modus (abbruch bei Fehler) zurückwechseln.
im Ganzen siehts dann so aus:


Sub test()
With Range("K2:K" & Cells(Rows.Count, 1).End(xlUp).Row)
On Error Resume Next
.Formula = .Value 'nur erforderlich, falls in Spalte K Formeln stehen
.SpecialCells(xlCellTypeConstants).Value = "Ja"
.SpecialCells(xlCellTypeBlanks).Value = "Nein"
 On Error Goto 0
End With
End Sub

zur Geschwindigkeit:
das hängt natürlich davon ab, wie gross dein Zellbereich ist , wieviele Zellen geändert werden müssen und wie schnell dein Rechner ist.
bei grossen Datenmengen sind Schleifen, die Zellen direkt abfragen und verändern aber deutlich langsamer als andere Methoden.
Wenns mal um 10.000 Zeilen und mehr geht und der Rechner etwas langsamer ist, erledige ich die von dir gestellte Aufgabe von Hand (über Bearbeiten - Gehe zu - Inhalte) schneller als so ein Schleifenmakro.
Gruß, Daniel

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread