Das Archiv des Excel-Forums

Lücken in Spalten

Bild

Betrifft: Lücken in Spalten
von: Horst_T

Geschrieben am: 19.09.2003 10:58:29

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
Bild


Betrifft: AW: Lücken in Spalten
von: Guido Palacios
Geschrieben am: 19.09.2003 11:03:38

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


Bild


Betrifft: AW: Lücken in Spalten für Guido Palacios
von: Horst_T
Geschrieben am: 19.09.2003 11:14:01

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


Bild


Betrifft: AW: Lücken in Spalten für Guido Palacios
von: Guido Palacios
Geschrieben am: 19.09.2003 11:59:06

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.


Bild


Betrifft: AW: Lücken in Spalten für Guido Palacios
von: Horst_T
Geschrieben am: 19.09.2003 19:48:08

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


 Bild

Excel-Beispiele zum Thema " Lücken in Spalten"

Vorkommen von Zahlenreihen in Spalten download Funktion ANZAHL2 ohne ausgeblendete Spalten download
Spaltenbreite anpassen download Spalten einer Mehrbereichsauswahl ausblenden. download
Spaltennamen bestimmen download Spalten/Zeilen aus- und einblenden download
Zeilen und Spalten über ein Drehfeld ein- und ausblenden download In einem Dialog ausgewählte Spalten drucken download
Spalten bedingt summieren und Zellen formatieren download Abfrage der markierten Spalten download
Wert aus Spalte C, wenn Spalten A und B Bedingungen erfüllen download Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen download
Zeilen löschen, wenn in bestimmten Spalten keine Werte stehen download Schmale Spalten nebeneinander drucken download
Werte in mehreren Spalten sortieren download Textreihe auf mehrere Spalten mit fester Seitenlänge verteilen download
Spalten A und B vergleichen und Doppel in C listen download Alle leeren Spalten ausblenden download
Leere Zeilen und Spalten in ausgewähltem Bereich löschen download Alle leeren Zeilen und Spalten entfernen download
Wertereihe nach dem Zufallsprinzip auf 4 Spalten verteilen download Abfrage zum Kopierbereich von Startzelle, Zeilen- und Spaltenanzahl download
Einlesen von Spaltenköpfen in UserForm-ListBox download Spalten ein-/ausblenden nach UserForm-ListBox-Vorgabe download
Aktuellen Bereich in den Spalten A:F als Druckbereich download Zellauswahl in Abhängigkeit des Spaltenkopfes download
In mehrere Spalten doppelte Inhalte entfernen download Sortierspaltenkopf vorgeben und Meldung in Statusleiste für 2 sec. download
Werte bei Übereinstimmung in 2 Spalten sammeln download Spalteninhalt in UserForm-TextBox mit ScrollBalken einlesen download
Durchgehende Sortierung mehrer nebeneinanderliegender Spalten download Suche von Korrespondenzwerten in zwei Spalten download
Spalten über UserForm-Auswahl ein- und ausblenden download Meldung bei Überschreitung einer Spaltensumme download
Spaltentexte zusammenfassen und neu belegen download Spaltenbreite gemäß den in den Zellen stehenden Zahlen festlegen download
Zelleinträgen über die Formatierung Spaltennamen hinzufügen download Textdatei mit mehr als 256 Spalten in Tabelle einlesen download
Im TextFeld einer UserForm-ComboBox Wert aus 2 Spalten anzeigen download Gruppenüberschriften in Nebenspalten übertragen download
Spaltenwerte in UserForm-ListBox übernehmen und ausgeben download Datensätze zählen, die in einigen Spalten identisch sind download
Spalten mit gleichen Spaltenköpfen zusammenfassen download Alle Zeilen und Spalten außerhalb des benutzten Bereiches löschen download
Spalten mit Zellen ohne Eintrag oder 0-Werten ausblenden download Über InputBox zu ermittelnde Spaltenanzahl einfügen download
Festlegung der Sortierspalten nach dem Feature Gültigkeit download Import einer Textdatei mit mehr als 256 Spalten download
Spaltenbreiten der nicht ausgeblendeten Spalten anpassen download Spaltenweiser Blattschutz in Abhängigkeit des Anwendernamens download