Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
19.04.2024 11:45:34
Feld im SAP auslesen
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
692to696
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
692to696
692to696
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle Zellen mit gleichem Beginn kopieren

Alle Zellen mit gleichem Beginn kopieren
08.11.2005 09:13:35
Mario
Hi,
also ich habe folgenden Sachverhalt: In den Zeilen 1 bis 100 (Spalten A bis BB) befindet sich eine Reihe von Werten. In den Zellen A1 bis A100 steht jeweils eine Schlüsselzahl drin (immer eine andere).
Nun möchte ich per VBA erreichen, dass alle Schlüsselzahlen, welche mit den Ziffern "23" beginnen, kopiert werden, sodass ich sie woanders einfügen kann.
Das Selektieren soll dann mit allen Kombinationen möglich sein (23, 24, 25 usw., kann man ja dann anpassen).
Aber ich komme einfach nicht drauf, wie ich so etwas umsetzen kann ..

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Zellen mit gleichem Beginn kopieren
08.11.2005 09:43:56
ede
guten morgen mario,
dann versuch mal den nachstehnden code:

Sub test1()
Dim wks As Worksheet
Dim datensheet, strSeek As String
datensheet = ActiveSheet.Name 'quelleTabelle
strSeek = "23"  'suchkriterium, evt über inputbox abfragen
Set wks = Worksheets.Add
Sheets(datensheet).Select
x = 1
For i = 1 To 100
If Left(Cells(i, 1), 2) = strSeek Then
'suchkriterium erfüllt
For y = 1 To 54    'bis Spalte BB
wks.Cells(x, y) = Cells(i, y)
Next y
x = x + 1   'neue Zeile im Ziel
End If
Next i
wks.Select  'ziel selektieren
End Sub

rückmeldung wäre super
Anzeige
AW: Alle Zellen mit gleichem Beginn kopieren
08.11.2005 13:41:46
Mario
Hallo,
erst mal vielen Dank für deine Hilfe. So ganz funktioniert es leider nicht (oder ich mache irgendwas falsch). Es wird zwar bei der Auführung des COdes ein neues Tabellenblatt erstellt, aber nichts markiert oder kopiert ...
:(
AW: Alle Zellen mit gleichem Beginn kopieren
08.11.2005 15:24:19
ede
hallo nochmal,
natürlich passiert da was, du must nur dein zu suchenden string anpassen. in meinem beispiel wird alles in ein neues tabellenblatt kopiert, was in der spalte "A" mit 23 beginnt strSeek="23" !!!!
wenn du in deiner exceltabelle keine werte hast, welche mit 23 beginnen, dann wird auch nichts kopiert!
probiers mal nochmal
rückmeldung wäre nett
ede
Anzeige
AW: Alle Zellen mit gleichem Beginn kopieren
09.11.2005 08:43:14
Mario
Hi,
war ein Fehler meinerseits - funkioniert!
Vielen vielen Dank an dich !:)
Mario

304 Forumthreads zu ähnlichen Themen

Problem mit verbundenen Zellen
Peter

Guten Morgen zusammen,
mit einem Klick in Zelle M58 meines Tabellenblattes rufe ich einen Kalender auf, mit einem Doppelklick auf das ausgewählte Datum schreibt sich das Datum automatisch in die Zelle M58. Nun ist Aufgrund der Architktur der Tabelle die Zelle M58 ziemlich klein, das das Dat...
03.09.2008 09:36:08
Thread-ID: 1007017
5 Beiträge
Anzeige
VBA: Zeile.select trotz verbundener Zellen?
Klaus

Hallo Forum,
ich habe eine Datei mit verbundenen Zellen geerbt. Es ist mir leider nicht erlaubt worden, den Zellenverbund aufzuheben.
Zellen D8:D10 sind verbunden. Ich möchte gerne im VBA Zeile 9 und nur Zeile 9 selektieren. Ein range("A9").entirerow.select selektiert mir die gesamten Z...
03.12.2012 12:33:01
Thread-ID: 1289049
7 Beiträge
gleiche Zellen in allen Zeilen verbinden
Alex

Hallo Leute,ich möchte in allen Zeilen die Zellen der Spalten A-F verbinden.
Also in Zeile A die Zellen A1 bis F1, etc.Hat mir da einer ne Idee?
Vielen Dank im Voraus.Grüße von
Alex
12.06.2002 14:00:12
Thread-ID: 128071
10 Beiträge
Anzeige
Ausdruck mit verbundenen Zellen
Peter

Hallo,
ich habe in einer Tabelle verbundene Zellen. Wenn ich die Datei nun drucke, wird der Inhalt dieser Zellen teilweise auf 2 Seiten verteilt.
Gibt es eine Möglichkeit Excel dazu zu zwingen, verbundene Zellen immer auf einer Seite zusammenzuhalten?
Gruß
Peter
10.09.2013 12:57:16
Thread-ID: 1330183
4 Beiträge
Zeilen sortieren mit verbundenen und nichtverbunde
Andreas

Hallo Excelprofis,
ich habe ein Problem, welches wohl nur mit VBA gelöst werden kann.
Ich habe ein UserForm mit einem Commandbutton. Über diesen möchte ich folgendes erreichen:
1. Schritt
Sortiere die Zellen C2 bis C6 und O2 bis O6 und AA2 bis AA6. Also im Endergebnis sollen all...
16.12.2013 17:33:17
Thread-ID: 1342733
15 Beiträge
Transponieren mit (horiz.) verbundenen Zellen...
Kuttel
Hallo an die Community,
Ich beabsichtige, dem Benutzer eine Drop-Down-Liste in einer Zelle anzubieten (Datenüberprüfung - Auswahl-Liste). Die Einträge in dieser Drop-Down-Liste sollen aus einer anderen (zweiten) Tabelle stammen. Diese zweite Tabelle besteht aus mehreren 3er-Spalten, die im Kopf...
20.07.2014 14:29:33
Thread-ID: 1371263
8 Beiträge
Sortieren bei verbundenen Zellen
Joachim

Hi Folks,
ich habe hier eine Tabelle in der ich in jeweils einer Zeile in manchen Spalten jeweils 3 Werte übereinander stehen haben möchte.
Also habe ich einfach 3 Zeilen genommen und in den übrigen benötigten Spalten verbunden. Das sieht jetzt zwar alles ganz hübsch aus, aber wenn ich je...
31.07.2002 15:36:09
Thread-ID: 143170
2 Beiträge
optimale Zeilenhöhe mit verbundenen Zellen
Willi

Hallo zusammen,wenn ich mehrere Zellen in einer Zeile im Excel verbinde und die Funktion "automatischer Zeilenumbruch" aktiviere, funktioniert die Funktion "optimale Höhe" nicht mehr. Wie kann man mit verbundenen Zellen die optimale
Höhe einstellen Vielen Dank im VorausGruss Willi
...
31.07.2002 17:18:38
Thread-ID: 143228
2 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

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
4
2
6
9
6
3
14
7
1
1
1
5
7
4
5
3
1
4
1
6
2
2
6
2
5