Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1352to1356
1352to1356
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellinhalte nach links verschieben (lückenlos)?

Forumthread: Zellinhalte nach links verschieben (lückenlos)?

Zellinhalte nach links verschieben (lückenlos)?
18.03.2014 09:41:33
Selma
Hallo Leute,
wie kann ich bitte per VBA die Zellinhalte (Spaltenbereich B:O) bis zur Spalte B nach links verschieben?
Es sollen nacher ab Spalte B gesehen, keine Lücken dazwischen sein.
Vorher:


Nachher:


Danke vorab!
Gruß,
Selma

Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
SpecialCells(xlCellTypeBlanks)
18.03.2014 10:33:16
Matthias
Hallo Selma
ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft Gruß Matthias

AW: SpecialCells(xlCellTypeBlanks)
18.03.2014 10:48:06
Selma
Hallo Matthias,
perfekt. Vielen Dank!
Eine bitte noch.... Was habe ich bitte in diesem Code falsch?
Es kommt immer hier "iText = varEingabe" die Meldung, das die Typen unverträglich sind.
Laufzeitfehler 13.
Sub Prefix()
Dim WkSh As Worksheet
Dim lZeile As Long
Dim iText As Long, varEingabe
Set WkSh = ActiveSheet
varEingabe = Application.InputBox(Prompt:="Bitte Kürzel eingeben!" & vbLf & "LTA oder TST  _
oder RNS", _
Title:="Prefix in Spalte A", Default:="LTA")
If varEingabe  False Then
iText = varEingabe
For lZeile = 1 To WkSh.Cells(Rows.Count, 1).End(xlUp).Row
If WkSh.Cells(lZeile, 1).Value  "" Then
WkSh.Cells(lZeile, 1).Value = "2014_" & iText & "_" & WkSh.Cells(lZeile, 1).Value
End If
Next lZeile
End If
End Sub

Anzeige
iText = varEingabe ?
18.03.2014 11:02:05
Matthias
Hallo
iText = varEingabe
was willst Du denn damit ?
Long=String ?
Du benutzt doch iText sowieso nicht, also raus damit ;-)
Gruß Matthias

hier die Änderung ...
18.03.2014 11:13:07
Matthias
Hallo Selma
Da Du sowieso ActiveSheet ansprichst, kannst Du Dir auch Set WkSh sparen
https://www.herber.de/bbs/user/89716.xls
Gruß Matthias

Anzeige
AW: hier die Änderung ...
18.03.2014 11:26:31
Selma
Hallo Matthias,
perfekt :-) Vielen Dank!
Viele Grüße,
Selma

da ist aber noch mehr im Argen ...
18.03.2014 11:38:15
Matthias
Hallo
Hier mal die nächste Änderung:
Option Explicit
Sub Prefix()
Dim lZeile&, varEingabe
varEingabe = InputBox("Bitte Kürzel eingeben!" & vbLf & "LTA oder TST oder RNS", "Prefix in  _
Spalte A", "LTA")
If StrPtr(varEingabe) = 0 Then Exit Sub
If UCase(varEingabe)  "LTA" And UCase(varEingabe)  "TST" And UCase(varEingabe)  "RNS"  _
Then Exit Sub
If varEingabe  vbNullString And Len(Trim(varEingabe)) > 0 Then
For lZeile = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(lZeile, 1).Value  "" Then
Cells(lZeile, 1).Value = "2014_" & UCase(varEingabe) & "_" & Cells(lZeile, 1).Value
End If
Next lZeile
End If
End Sub
Und es ist immernoch möglich den Code mehrfach auszuführen.
Das sehe dann so aus:
 A
12014_LTA_2014_LTA_A
22014_LTA_2014_LTA_B
32014_LTA_2014_LTA_C


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß Matthias

Anzeige
AW: da ist aber noch mehr im Argen ...
20.03.2014 12:31:23
Selma
Danke Matthias!

AW: SpecialCells(xlCellTypeBlanks)
18.03.2014 11:27:23
fcs
Hallo Selma,
Die Inputbox liefert dir ggf. Text, da iText als Integer deklariert ist kommt Typ-Fehler.
du kannst die Zeile
iText = varEingabe
weglassen und in der anderén Zeile statt iText die Variable vaeEingabe verwenden 
         WkSh.Cells(lZeile, 1).Value = "2014_" & varEingabe & "_" & WkSh.Cells(lZeile, 1).Value

oder du musst iText als String oder Variant deklarieren.
Ich würde das wie folgt lösen, so dass auch die zulässigen Eingaben geprüft werden
Gruß
Franz 
Sub Prefix()
Dim WkSh As Worksheet
Dim lZeile As Long
Dim iText As Long, varEingabe
Set WkSh = ActiveSheet
Eingabe:
varEingabe = Application.InputBox(Prompt:="Bitte Kürzel eingeben!" & vbLf _
& "LTA oder TST  oder RNS", _
Title:="Prefix in Spalte A", Default:="LTA")
Select Case varEingabe
Case False
Case "LTA", "TST", "RNS"
For lZeile = 1 To WkSh.Cells(Rows.Count, 1).End(xlUp).Row
If WkSh.Cells(lZeile, 1).Value  "" Then
WkSh.Cells(lZeile, 1).Value = "2014_" & varEingabe & "_" & WkSh.Cells(lZeile, 1). _
Value
End If
Next lZeile
Case Else
MsgBox "unzulässige Eingabe für Prefix in Spalte A"
GoTo Eingabe
End Select
End Sub

Anzeige
AW: SpecialCells(xlCellTypeBlanks)
20.03.2014 12:31:05
Selma
Danke Franz!

nicht UsedRange sondern DeinBereich ...
18.03.2014 10:38:12
Matthias
Hallo nochmal
Musst natürlich Deinen Bereich benutzen statt UsedRange, sorry.
Gruß Matthias

Forumthreads zu verwandten Themen

Zeilen in Zellen suchen und löschen
Daniel

Hallo,
ich möchte in Excell mehrere Zelle suchen, die folgenden String in einer oder mehreren Zeilen enthalten: ----
Diese Zeilen möchte ich dann löschen. Nach diesem String sind noch weitere Zeichen vorhanden, die auch gelöscht werden sollen.
Weiß jemand wie ich am besten vorgehe?...
13.08.2008 12:52:02
Thread-ID: 1001495
9 Beiträge
Anzeige
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
Anzeige
Zeile kopieren wenn wert in Zelle
Andreas

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
07.09.2008 20:32:00
Thread-ID: 1008007
3 Beiträge
Nicht leere Zellen in einer Zeile finden
Andreas

Hallo Zusammen,
Bisher kam ich ohne VBA zurecht, aber ich denke nun ...
Ich habe eine Tabelle mit folgendem Aufbau
Tabelle1:
ABCDEFG
115789
2__z_z
3zz___
4z__z_
Zeile 1: enthält eine Bezeichnung (hier als Zahl dargestellt)
z=Zahl
_=leer
in einem n...
29.09.2008 14:20:42
Thread-ID: 1013111
5 Beiträge
erzwungener zeilenumbruch in Zelle
Lars

Hallo,
obwohl ich schon viel mit Excel gemacht habe, tauchen doch immer wieder Fragen auf:
Gibt es eine Möglichkeit, in einer Zelle einen Zeilenumbruch manuell einzufügen, ohne dass man bereits am Zellenende ist?
Ich denke, dass ist eine eher dumme Frage, aber ich habe derzeit keine...
02.10.2008 15:40:00
Thread-ID: 1013906
4 Beiträge
Tasten während der Eingabe in einer Zelle abfragen
Arthur

Hallo.
Wie kann man in Excel auf die Eingabe in einer Zelle schon beim Tastendruck reagieren?
Beispiel: Schon während der Eingabe von Werten soll reagiert werden. Bspw. ist eine fünfstellige Bestelnummer einzutragen. Nachdem fünf Ziffern eingetragen sind soll automatisch in die nächste...
22.10.2008 11:44:52
Thread-ID: 1018286
4 Beiträge
Anzeige
Zeilen ausblenden, außer wenn in Zelle ...?
Selma

Hallo Leute,
ich möchte mit einem CommandButton ab Zeile 4 die Zeilen wie folgt ausblenden:
- wenn in Spalte M die Zelle diesen "plt" Inhalt hat, dann soll die Zeile nicht ausgeblendet werden
- wenn in Spalte M die Zelle die Füllfarbe 15 hat., dann soll die Zeile nicht ausgeblendet...
27.10.2008 18:13:00
Thread-ID: 1019700
10 Beiträge
Zweite Zeile Einfügen bis letztem Wert
Andreas

Hallo Zusammen
Das nachstehende Makro habe ich im Forum gefunden. Funktioniert einwandfrei. Nun möchte ich einfach, dass die jeweils zweite Zeile nur bis zum letzten Wert in Spalte R eingefügt wird.
Kann mir jemand helfen?
Vielen Dank
Andreas
Sub ZweiteZeilenEinfuegen() D...
05.11.2008 08:07:54
Thread-ID: 1021750
3 Beiträge
Zelleninhalt in Kopfzeile Seitenansicht zeigen?
Heiner

Hallo Forum,
ich bin Excel-Neueinsteiger habe ein grosses Problem...
In der Kopfzeile (Mitte) einer Seitenansicht soll automatisch der Eintrag aus Tabelle1 / Zelle B3 angezeigt werden.
Ist das möglich? Und wenn ja, wie kann das realisiert werden?
Wer kann mir mit einem Formel- o...
05.11.2008 12:10:35
Thread-ID: 1021845
2 Beiträge
jede zweite Zeile bearbeiten/löschen
Martin

Hallo zusammen,
ich muss bei einer recht umfangreichen Datei je zwei Zeilen zusammenfassen.
Dafür bei zweiter Zeile:
Kopieren der Werte von Spalte A bis Spalte J, die Werte in der vorigen Zeile ab Spalte K einfügen, so dass nachher die Zellen A-T belegt sind. Nicht jede Zelle ist hi...
15.11.2008 14:35:07
Thread-ID: 1024767
5 Beiträge
Anzeige
Zeilen kopieren wenn wert in Zelle
Andreas

hallo zusammen
finde für meine herausforderung nichts passendes in der recherche. :-(
ich habe eine tabelle1 mit diversen Einträgen. die Spalten AC, AD, AE enthalten jeweils ein Datum (ist jedoch nicht in jeder Zeile der Fall)
Nun möchte ich folgende Schritte automatisieren
Erst...
24.11.2008 17:08:00
Thread-ID: 1027397
3 Beiträge
hochzählen in einer Zelle
Tobias

Guten Morgen zusammen,
ich möchte in einer Zelle einen Wert "hochzählen" lassen. Also z.B. in Zelle A1 soll jeweils alles zusammen addiert werden was in Zelle B1 eingegeben wurde.
Ich hoffe das ist einigermaßen verständlich...
Vielen Dank im Voraus für Eure Tipps!
20.12.2008 10:26:00
Thread-ID: 1034350
12 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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