Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1592to1596
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
1592to1596
1592to1596
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
Anzeige
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?
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
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

8 Forumthreads zu ähnlichen Themen

Zellen markieren aber nicht überschreiben
onkelbobby

Hallo,
ich such nach einer Lösung eine Zelle zwar auszuwählen (markieren) aber nicht zu überschreiben.
Mit dem bisherigen Blattschutz kann ich die Zellen ja erst gar nicht auswählen.
Hintergrund: Es ist ein Button vorhanden, der die aktuell markierte Zeile in ein Word-Formular überg...
23.04.2010 11:13:17
Thread-ID: 1153450
3 Beiträge
Anzeige
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
Zeilen löschen, die mit einem Buchstaben anfangen
Markus

Hallo!
Ich hab da mal ein Problem:
Gesucht ist ein Programm, dass mir aus einer Tabelle alle GESAMTEN Zeilen löscht, in denen in der A Spalte das erste Zeichen KEINE Zahl ist.
Ich habe hier was gefunden, dass nur leere Zeilen löscht.
[code]
Sub LeereZeilenLöschen() Applica...
24.03.2005 08:18:41
Thread-ID: 589972
5 Beiträge
Anzeige
Formel in Zelle schreiben ohne festen Zellbezug
Oisse

Hallo Zusammen,
ich habe folgende Formel, um damit Zellen zu füllen: For i = 2 To ls_Bau .Cells(Zeile + 1, i).FormulaLocal = "=ZÄHLENWENN((" & Cells(4, i).Address & ":" & _ Cells(Zeile - 1, i).Address & ");""*"")" Next i
In der Zelle steht dann Beispielsweise: =ZÄHLEN...
07.09.2019 11:40:31
Thread-ID: 1711677
6 Beiträge
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
3
8
4
2
5
6
12