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

Zellinhalt beginnend mit einem Buchstaben moven

Forumthread: Zellinhalt beginnend mit einem Buchstaben moven

Zellinhalt beginnend mit einem Buchstaben moven
06.12.2017 14:53:40
Christian
Hallo Freunde,
ich suche nach einem VBA Script, welches mir eine definierte Spalte (Bsp: C) durchsucht, und immer wenn der Wert in der Spalte mit keiner Zahl beginnt, den Zellinhalt in die gleiche Zeile, aber auf Spalte D verschiebt.
Das ganze dann beginnend von Zeile 2, bis kein Wert mehr n Spalte C kommt.
Da ich mit Programmierung so gut wie nichts am Hut habe, krieg ich das nicht hin.
Vieeln Dank an alle Forumsmitglieder...
;-)
Christian
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: F5-Taste
06.12.2017 15:04:27
Fennek
Hallo,
wenn es einmalig ist, dann per Hand,falls nicht zeichne es mit dem Rekorder auf:

Spalte C markieren
F5-Taste -> Inhalte: Konstante: Buchstaben
in Menu: Zellen einfügen: nach rechtsschieben
mfg
AW: F5-Taste
06.12.2017 15:08:16
Christian
Ich bräuchte das ganze als VBA, da die Prozedur aufgerufen wird, wenn ein anders VBA Script fertig ist. Am Ende wird alles automatisch per eMail versendet.
Deswegen ist ein manueller Eingriff nicht praktikabel
Danke
Anzeige
AW: ungeprüft
06.12.2017 15:16:12
Fennek 

columns("C").specialcells(2,2).insert shift:=xltoright
für die genaue Syntax nutze bitte die M$ Hilfe
AW: ungeprüft
06.12.2017 15:26:42
Christian
Ein Traum....aber...kann ich die Überschrift von dem Move Befehl ausnehmen. Sozusagen, beginnend ab B2?
AW: ungeprüft
06.12.2017 15:30:05
Christian
Shit! Jetzt habe ich gerade bermerkt, das die Zellen zwar aussehen wie Zahlen, aber nicht als Zahl definiert sind :_(
Sprich, ich kann das gar nich verwenden :-(((((((((((
Kann ich Zellen vesrchieben, wenn ich abfrage ob die erste Stelle ein Buchstabe ist? und dann verschieben?
Kann Excel VBA das?
Anzeige
AW: Format Standard
06.12.2017 15:37:04
Fennek
es geht auch Zeilenweise, z.B. mit
 left(cells(i,3),1) like "[A-Za-Z]" then >>>> verschieben

AW: Format Standard
06.12.2017 15:51:44
Christian
Hallo Fennek,
ich krieg das einfach nicht gebacken....wie gesagt, bin kein programmierer...hab jetzt mal folgendes versucht, aber es kommt kein Ergebnmis...macht iorgendwie gar nix auf der Tabelle1
Sub Auftrag_erkennen()
Tabelle1.Activate
Dim i As Long
Dim letzte As Long
letzte = Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To letzte
If Cells(i, 3).Text Like "[!A-Z]*" Then
Else
Cells(i, 3).Select
Selection.Cut
Cells(i, 4).Select
ActiveSheet.Paste
End If
Next
End Sub

Anzeige
AW: Logik?
06.12.2017 15:59:10
Fennek
versuche es mal mit

Sub Auftrag_erkennen()
Dim i As Long
Dim letzte As Long
letzte = Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To letzte
If left(Cells(i, 3),1) Like "[!0-9]" Then
Cells(i, 4) = cells(i,3)
Cells(i, 3) = ""
End If
Next
End Sub
mfg
Anzeige
AW: ungeprüft
06.12.2017 15:31:00
Fennek 

lr = cells(rows.count,3).end(xlup).row
Range("C2:C" & lr).specialcells(2,2).insert shift:=xltoright

AW: ungeprüft
06.12.2017 15:54:33
Christian
habs geschafft...DANKE" War noch ein Fehler in der Spaltenzuordnung

Forumthreads zu verwandten Themen

Excel speichert nur mit einem Buchstaben
SvenS.
habe das Problem das ich unter XP mit Excel 97 auf einmal..von heute auf morgen...meine Dateien nur noch mit dem Anfangsbuchstaben abspeichern kann.
Virenbefall ist auszuschließen!
Gebe ich also den Namen der zu speichernden Datei ein...zbsp Ablage.xls dann speichert er mir diese Datei als a...
05.08.2003 11:36:55
Thread-ID: 289871
4 Beiträge
Text zusätzlich in eine Zelle schreiben ohne die F
chris13
Mein Problem:
Ich suche einen anderen Weg Text in eine Zelle zusätzlich reinzuschreiben, ohne daß die Formatierung der Schriftfarbe des alten Textes verschwindet.
bisher habe ich das so gemacht: Cells(1, 1).Value = Cells(1, 1).Value & "/Farbe3"
Dabei wird die Schriftfarbe des 1. Zeichen...
20.04.2004 19:01:54
Thread-ID: 416448
9 Beiträge
Text soll Nachbarzellen nicht überdecken
Anton

Hallo,
ich habe eine Tabelle (importierte Textdatei) mit sehr viel Text in einer Spalte. Nun überdeckt der Text den Inhalt der benachbarten Zelle. Ich möchte die Darstellung (ohne Zeilenumbruch) so haben, dass man nur den Anfang des Zelleninhlats sieht. Das ist z. B. bei einer anderen Datei...
21.04.2006 15:34:57
Thread-ID: 757115
3 Beiträge
Anzeige
Suchen nach Bezeichnung mit einem unbekannten Buchstaben in der Bezeichnung
Niko

Hallo zusammen,
ich habe ein mittelschweres Problem.
Ich möchte gerne eine Datei in einem Pfad aufrufen, in dessen Bezeichnung lediglich ein Buchstabe an der selben Position unbekannt ist.
Mein Quellcode schaut wie folgt aus:
Dim Pfad As String
Dim Ordner As String
Dim...
14.11.2019 14:31:54
Thread-ID: 1723394
7 Beiträge
2 Werte in 1 Zelle ohne Überschreiben
Pascal

Hallo zusammen,
ich würde gerne per VBA Werte aus 2 verschiedenen Zellen in eine dritte Zelle kopieren. Sprich Wert aus Zelle A1 und Wert aus Zelle B1 sollen in Zelle C1 kopiert werden. Angenommen in Zelle A1 = Apfel und B1 = Birne dann soll in C1 = Apfel - Birne stehen. Hat jemand eine Id...
08.07.2020 11:38:19
Thread-ID: 1770141
13 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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