Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1496to1500
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
1496to1500
1496to1500
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA (Spalte einfügen, fettgedruckt suchen etc.)

VBA (Spalte einfügen, fettgedruckt suchen etc.)
07.06.2016 16:39:43
Simone
Hallo zusammen,
ich bin neu hier und habe auch erst gerade angefangen mich mit VBA zu beschäftigen.
Also ich suche eine Formel die folgendes kann:
Sie soll prüfen ob z.B. die Zelle A1 leer ist, wenn ja mache nix. wenn was drin steht füge eine "neue" Spalte A ein und such in der alten Spalte A bzw. jetzt Spalte B nach fettgedruckten Text/Zahl. Wenn ein fettgedrucker Text/Zahl gefunden wurde, schneide es aus der Spalte "B" aus und füge es in Spalte "A" mit der gleichen Spaltenzahl ein. Diesen Soll z.B. bis Zeile 100 wiederholt werden.
Ist dies überhaupt in VBA möglich, wie ich mir das vorstelle?
Ich habe das ganze mal als Bild dargestellt
vielen Dank schon mal.
Liebe Grüsse
Simone
Userbild

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA (Spalte einfügen, fettgedruckt suchen etc.)
07.06.2016 17:13:43
Fennek
Hallo,
versuche diesen Code

Sub test()
lr = Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To lr
If Cells(i, "A").Font.Bold = False Then
Cells(i, "B") = Cells(i, "A")
Cells(i, "A").Clear
End If
Next i
End Sub
mfg

AW: VBA (Spalte einfügen, fettgedruckt suchen etc.)
07.06.2016 19:19:36
Simone
Hallo Fennek,
danke für die Hilfe, aber es ist nicht ganz das was ich suche. Es muss eine neue Spalte eingefügt werden und die fettgedruckten zellen ausgeschnitten werden (aber nur wenn in Zelle A1 etwas steht). Ebenso sollte die Funktion nicht ausgeführt werden, wenn die Zelle A1 leer ist

Anzeige
AW: VBA (Spalte einfügen, fettgedruckt suchen etc.)
07.06.2016 19:30:07
Simone
Hallo Fennek,
danke für die Hilfe, aber es ist nicht ganz das was ich suche. Es muss eine neue Spalte eingefügt werden und die fettgedruckten zellen ausgeschnitten werden (aber nur wenn in Zelle A1 etwas steht). Ebenso sollte die Funktion nicht ausgeführt werden, wenn die Zelle A1 leer ist

AW: VBA (Spalte einfügen, fettgedruckt suchen etc.)
07.06.2016 20:25:13
Christoph
Hallo Simone
denke, dass das dir weiter hilft. 
Sub test()
If Range("A1")  "" Then
Columns("A:A").Insert Shift:=xlToRight
lr = Cells(Rows.Count, "B").End(xlUp).Row
For i = 1 To lr
If Cells(i, "B").Font.Bold = True Then
Cells(i, "A") = Cells(i, "B")
Cells(i, "B").Clear
End If
Next i
Columns("A:A").Bold = True
End If
End Sub
Gruß Christoph

Anzeige
AW: VBA (Spalte einfügen, fettgedruckt suchen etc.)
07.06.2016 21:50:12
Simone
Hallo Christoph,
vielen vielen Dank. Eine Sache hätte ich da noch, es wäre super wenn die kopierte fettgedruckte Zelle auch fettgedruckt bleibt und eine kurze Erklärung zu der Formel damit ich auch dazu lerne ;-)
liebe Grüße
Simone

AW: VBA (Spalte einfügen, fettgedruckt suchen etc.)
08.06.2016 07:03:26
Christoph
Hallo Simone,
hier das Makro mit Kommentaren und der Zeile die Spalte A Fett formatiert.
Sub test()
If Range("A1")  "" Then 'Abfrage ob Wert in Zelle A1 vorhanden
Columns("A:A").Insert Shift:=xlToRight 'fügt neue Spalte ein
lr = Cells(Rows.Count, "B").End(xlUp).Row ' "zählt" Zeilen Spalte B (für for-Schleife)
For i = 1 To lr ' for-Schleife fängt bei Zeile 1 an, 1 auf 2 ändern falls Überschriften
If Cells(i, "B").Font.Bold = True Then ' kontrolliert ob Wert fett geschrieben ist
Cells(i, "A") = Cells(i, "B") 'übernimmt Wert von Spalte B in Spalt A
Cells(i, "B").Clear ' löscht den Wert aus Spalte B
End If
Next i 'nächste Zeile wird kontrolliert
Columns("A:A").Font.Bold = True 'alle Werte in Spalte a werden Fett formatiert
End If
End Sub

Gruß
Christoph
Anzeige

320 Forumthreads zu ähnlichen Themen

String in Zeilen suchen
Herbert

Hallo liebe Gemeinde
Ich habe mir vor längerer Zeit von Euch helfen lassen, um in der Spalte A rückwärts nach Text zu suchen.
In Spalte A kam bisher der jeweilige Name einer Abteilung (den suche ich) und laufende Nummern vor, klappt prima mit folgendem Code:
Sub a_String() iRow =...
28.10.2008 14:20:00
Thread-ID: 1019944
7 Beiträge
Anzeige
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
VBA-Code in einem String erzeugen und dann ausführ
Dirk

Hallo!
Gibt es eine Möglichkeit, VBA-Code auszuführen, der in einer String-Variablen vorliegt, die zuvor dynamisch erzeugt wurde? Sprich: Ich möchte VBA-Code dynamisch erzeugen und anschließend ausführen. Geht das irgendwie?
Ich hoffe, das ist so verständlich.
Vielen Dank,
Dirk<...
20.01.2009 20:08:36
Thread-ID: 1041981
4 Beiträge
Anzeige
Wert suchen, eintragen, weitersuchen (VBA)
Nico

Moin
Nachdem ich Gestern mein Problem mit einem Sverweis über mehrere Zellen lösen wollte (Danke nochmal an Josef Ehrensberger) habe ich heute feststellen dürfen, dass es zwar funktioniert - aber die Verzögerung auf Grund der Masse an Daten doch zu hoch ist.
Hier also mein Problem zieml...
26.02.2009 09:19:15
Thread-ID: 1054225
11 Beiträge
VBA Wert suchen, Wert einfügen
andreas

Hallo zusammen,
wie muss ich den Code schreiben, suche nach Zeilen in denen die Zelle "B" nicht leer ist.
In der Zeile in der die Zelle "B" nicht leer ist soll dann in Zelle "P" der Wert "1" eingetragen werden.
Danke für die Hilfe
Andreas
09.03.2009 08:27:39
Thread-ID: 1057988
8 Beiträge
suchen kopieren einfügen vba
Bea

Hallo zusammen
Ich hab folgendes Problem.
in der angehängten Beispielmappe möchte ich, das die in Arbeitsblatt "Nummern" hinterlegten Anfänge von Telefonnummern in Arbeitsblatt "evnachweis" gesucht die jeweiligen Zeilen kopiert und dann in Arbeitsblatt in dem Fall "Februar" (am besten...
10.03.2009 11:55:49
Thread-ID: 1058557
9 Beiträge
bedingte Formatierung suchen u. ersetzen durch VBA
Peter

Guten Tag
Ich habe in einer Tabelle an verchiedenen Orten immer die gleiche bedingte Formatierung (Bedingung ist eine Formel). Nun möchte ich diese überall durch eine andere bedingte Formatierung ersetzen.
Ist dies möglich, mit Hilfe von VBA? Wenn ja, wie?
Danke für eine Antwort.
19.03.2009 06:55:03
Thread-ID: 1061661
8 Beiträge
In Spalte nach Wert suchen VBA
andreas


Hallo zusammen,
ich habe hier eine Tabelle, da will ich nach jeder Änderung in der Tabelle in Spalte "F" nach Wert "Spritzgießen" suchen und bei den gefundenen Zeilen die Zellen "B-N" rot einfärben und mit Rahmen versehen.
Komme aber wegen Mangels VBA-Erfahrung nicht klar damit.
03.04.2009 13:05:41
Thread-ID: 1066652
5 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
6
1
1
3
2
10
7
8
7
4
5
4
6
2
2
13
3
9
3
4
2
3
3
1
2