Thema Datum  Von Nutzer Rating
Antwort
11.05.2009 13:57:02 steffal91
NotSolved
Blau Aw:leere Zellen füllen
 11.05.2009 16:51:11 Holger
NotSolved
12.05.2009 09:10:03 steffal91
NotSolved
12.05.2009 13:23:50 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
11.05.2009 16:51:11		 Views:
1975		 Rating:
     
Antwort:
  Ja
Thema:
Aw:leere Zellen füllen
Hallo steffal91,
kopieren deine Daten und versuche nachstehendes Makro, wobei vorher die "kleiner" durch die entsprechenden Zeichen zu ersetzen sind:
Sub Leere_Zellen_füllen()
Do
a = Inputbox("Spalte und oberste zu prüfende Zelle eingeben, z.B. D45", "LeeresZellen füllen")
If a = "" Then Exit Sub
z = Range(a).Row
If z kleiner 2 Then z = 2
s = Range(a).Column
If s kleiner 1 Then s = 1
For i = z To Cells(Rows.Count, s).End(xlUp).Row
If Cells(i, s) = "" Then Cells(i, s) = Cells(i - 1, s)
Next i
Loop Until a = ""
End Sub
Gruß
Holger

steffal91 schrieb am 11.05.2009 13:57:02:

Hallo zusammen,

ich habe folgendes Problem in Excel 2003:
In einer Tabelle mit ca. 6000 Zeilen sind einige Zellen aus "Faulheitsgründen" leer. Der damalige Erfasser war wohl zu bequem, die Daten jedesmal einzugeben.
Bsp.:
Name Vorname Strasse Geschlecht
Maier Alfons Alpenweg männlich
x Berta Alpenweg weiblich
x Christa Birnenweg x
Müller Axel Parkstraße männlich
...
Die Felder mit x sind die leeren Zellen.
Das war jetzt natürlich nur ein vereinfachtes Beispiel. Und ich hab auch manchmal Spalten, die ich nicht auffüllen möchte, wenn etwas leer ist. Also sollte man irgendwie abfragen können für welche Spalten es gefüllt werden soll und auch ab welcher Zeile.
Kann mir bitte jemand helfen?
Ein weiteres Problem stellt wohl die Zeit da, da ich bis spätestens Mittwoch eine Lösung bräuchte, weil ich mit den Daten weiterarbeiten muss.

Vielen Dank im Vorraus.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
11.05.2009 13:57:02 steffal91
NotSolved
Blau Aw:leere Zellen füllen
 11.05.2009 16:51:11 Holger
NotSolved
12.05.2009 09:10:03 steffal91
NotSolved
12.05.2009 13:23:50 Holger
NotSolved