Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
312to316
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Lücken in Spalten

Lücken in Spalten
19.09.2003 10:58:29
Horst_T
Hallo Forumgemeinde!

Ich habe volgendes Problem
In einer Spalte haben mehrere Zellen einen Eintrag und zwischendrin sind einige Zellen, die keinen Eintrag haben.

Ich möchte dass Excel den Inhalt der ersten Spalte in eine neue Spalte kopiert ohne die leren Zellen mit zu kopieren, so das die Einträge lückenlos untereinander Stehen

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Lücken in Spalten
19.09.2003 11:03:38
Guido Palacios
Hi,

auf die schnelle fällt mir die Möglichkeit ein, jede einzelne Zeile in der best. Spalte in einen string oder array zu kopieren, mit der Bedingung only if not null oder isnothing(variable) = false oder isempty(variable) = false then copy... o.s.ä.!!

Hoffe ich konnte helfen...

CYA
AW: Lücken in Spalten für Guido Palacios
19.09.2003 11:14:01
Horst_T
Hallo Guido Palacios

Da ich mich in der Programmierung von VB nicht so gut auskenne,
würde ich mich freuhen, wenn Du ein Beispiel schreiben würdest.

Danke Horst
AW: Lücken in Spalten für Guido Palacios
19.09.2003 11:59:06
Guido Palacios
Hi,

füge 2 Buttons ein, bennene die um (bei mir "cmd_Kopieren_Click()") und klicke anschliessen doppelt darauf und füge den Code für den jeweiligen Button ein!

Datei anbei unter:
https://www.herber.de/bbs/user/1086.xls
----------------------------------


Private Sub cmd_Kopieren_Click()
Dim i As Integer
Dim zeile As Integer
On Error Resume Next ' wenn Leeres feld gefunden gibts einen Fehler der mit dieser Zeile abgefangen wird!
zeile = 1
For i = 1 To 100  'Schleife um die ersten 100 Zeilen abzuarbeiten, jede Zeile wird gerüft ob NULL ist oder nicht, wenn nicht dann copy!!!
If Cells(i, 1) = "" Or IsNull(Cells(i, 1)) = True Or IsEmpty(Cells(i, 1)) = True Then
Resume Next
Else
Cells(zeile, 2) = Cells(i, 1)
zeile = zeile + 1
End If
Next i
End Sub



Private Sub cmd_Löschen_Click()
Dim i As Integer
Dim zeile2 As Integer
On Error Resume Next
For i = 1 To 99
If Cells(i, 1) <> "" Or IsNull(Cells(i, 1)) = False Or IsEmpty(Cells(i, 1)) = False Then
Cells(zeile2, 2) = ""
zeile2 = zeile2 + 1
Else
End If
Next i
End Sub


-------------------
Hoffe ich konnte helfen!
CYA
Guido P.
Anzeige
AW: Lücken in Spalten für Guido Palacios
19.09.2003 19:48:08
Horst_T
Hallo Guido Palacios

Besten Dank für Dein Programmbeispiel!

Funktioniert wunderbar
Habe allerdings noch ein Problem, worauf ich später noch
eingehen werden.

Bis dahin; Horst

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige