Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
776to780
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
776to780
776to780
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Special cells

Special cells
27.06.2006 21:42:51
Christian
Hallo Leute,
habe folgendes Problem:
Benutze das Makro
Application.ScreenUpdating = False
With Range("A2:FC600")
.Replace What:=0, Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False
.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End With
Application.ScreenUpdating = True
End Sub
da zieht er mir die Zellen nach oben, wenn eine leere dazwischen ist, ich möchte aber das er die in der ZEILE nach links aufrückt. was muss ich tun?

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Shift:=xlLeft o.T.
27.06.2006 21:51:35
Josef
Gruß Sepp

AW: Shift:=xlLeft o.T.
27.06.2006 22:12:22
P@ulchen
Hallo Josef,
was ich Dich schon öfter mal fragen wollte: Besteht die Möglichkeit, Dich auch mal bei einem Excel-Treffen persönlich kennenzulernen? Ich würde mich jedenfalls sehr freuen, mit einem Excel-Spezi wie Dir fachsimpeln zu können.
Hier mal der Link zu unserem diesjährigen Treffen: Excel-Treffen 2006
Gruß aus Leipzig
P@ulchen
www.excel-werkstatt.de
Anzeige
AW: Shift:=xlLeft o.T.
27.06.2006 22:15:04
Josef
Hallo Paulchen!
Diese Möglichkeit besteht heuer und bei diesem Treffen leider nicht.
Aber vielleicht ergibt es sich ein anderes mal!
Gruß Sepp

AW: Shift:=xlLeft o.T.
27.06.2006 22:26:28
P@ulchen
Hallo Sepp,
schade, aber aufgeschoben ist ja nicht aufgehoben...
Dann vielleicht im nächsten Jahr!!!
Gruß aus Leipzig
P@ulchen
www.excel-werkstatt.de
AW: Special cells
27.06.2006 22:37:38
Christian
Funktioniert leider nicht, da bekomme ich einen Laufzeitfehler 1004, die Delete-Methode des Range Objektes konnte nicht ausgeführt werden.
Anzeige
AW: Special cells
27.06.2006 22:40:59
Josef
Hallo Christian!
Sorry, es muss

Shift:=xlToLeft

lauten.
Gruß Sepp

AW: Special cells
27.06.2006 23:07:10
Christian
das wars, danke
nächstes problem, ich möchte das das makro nicht auf leerzellen, sondern auf zellen mit dem wert null reagiert
Application.ScreenUpdating = False
With Range("A2:FC600")
.Replace What:=0, Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False
.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
End With
Application.ScreenUpdating = True
End Sub
oder ein besserer vorschlag?!? Problem ist folgendes:
ich habe eine liste, untereinander stehen von a2-a10 märkte, in b2+c2 - b10+c10 stehen eine positionA+preis, in d2+e2 - d10+e10 eine positionB, usw. (insgesamt 6 positionen)
ich habe tabellenblätter für "eine Pos.", "zwei pos.", etc. angelegt. ich möchte nun das die positionen automatisch in die verschiedenen blätter abgelegt werden und anschließend aufrücken (es kann sein das es posA und posC gibt, aber nicht posB, usw.)
ich habe mir jetzt folgendermaßen geholfen:
ich habe eine zählenwenn zeile eingefügt, habe die einzelnen blätter mit sverweisen ausgestattet, suchkriterium 1, 2, 3, usw.. jetzt stehen die daten mit lücken in den einzelnen blättern, also ein makro mit sortieren drüber und sie sind untereinander, jetzt das o.g. makro mit dem löschen der zellen?!?
vielleicht hat jemand eine professionellere idee
vielen dank und lieben gruß
Anzeige
AW: Special cells
27.06.2006 23:30:05
Christian
das wars, danke
nächstes problem, ich möchte das das makro nicht auf leerzellen, sondern auf zellen mit dem wert null reagiert
Application.ScreenUpdating = False
With Range("A2:FC600")
.Replace What:=0, Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False
.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
End With
Application.ScreenUpdating = True
End Sub
oder ein besserer vorschlag?!? Problem ist folgendes:
ich habe eine liste, untereinander stehen von a2-a10 märkte, in b2+c2 - b10+c10 stehen eine positionA+preis, in d2+e2 - d10+e10 eine positionB, usw. (insgesamt 6 positionen)
ich habe tabellenblätter für "eine Pos.", "zwei pos.", etc. angelegt. ich möchte nun das die positionen automatisch in die verschiedenen blätter abgelegt werden und anschließend aufrücken (es kann sein das es posA und posC gibt, aber nicht posB, usw.)
ich habe mir jetzt folgendermaßen geholfen:
ich habe eine zählenwenn zeile eingefügt, habe die einzelnen blätter mit sverweisen ausgestattet, suchkriterium 1, 2, 3, usw.. jetzt stehen die daten mit lücken in den einzelnen blättern, also ein makro mit sortieren drüber und sie sind untereinander, jetzt das o.g. makro mit dem löschen der zellen?!?
vielleicht hat jemand eine professionellere idee
vielen dank und lieben gruß
Anzeige
AW: Special cells
27.06.2006 22:39:41
Christian
Hallo
sorry, aber das funktioniert nicht. bekomme einen Laufzeitfehler 1004, range methode des objektes konnte nicht ausgeführt werden.
AW: Special cells
okok
Sub das()
Application.ScreenUpdating = False
With Range("A2:FC600")
.Replace What:=0, Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False
.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
End With
Application.ScreenUpdating = True
End Sub
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige