Zellinhalt per VBA suchen und kopieren

Hallo VBA-Experten,
ich habe folgendes Problem, das sich vermutlich ohne VBA nicht lösen lässt:
Ausgangspunkt ist eine Tabelle, in der Zuordnungen zu verschiedenen Gebäuden enthalten sind:
A B C
1 Gebäude Schuppen
2 Werkzeug Schaufel
3 Werkzeug Gießkanne
4 Sonstige Winterräder
5
6 Gebäude Haus
7 Bauteil Tür
8 Bauteil Fenster
Ich möchte, dass Excel
1) in Spalte A nach dem Begriff "Gebäude" sucht,
2) den Begriff der rechten Nachbarzelle (also Spalte B) wählt und
3) diesen in Spalte C immer wieder untereinander kopiert, und zwar solange, bis in Spalte A das nächste Mal das Wort "Gebäude" auftaucht.
4) Wiederholung des Vorgangs so lange, bis die Tabelle zu Ende ist, was durch den Schlüsselbegriff "ende" in Spalte A gekennzeichnet ist.
Aussehen soll die Tabelle dann also so:
A B C
1 Gebäude Schuppen Schuppen
2 Werkzeug Schaufel Schuppen
3 Werkzeug Gießkanne Schuppen
4 Sonstige Winterräder Schuppen
5
6 Gebäude Haus Haus
7 Bauteil Tür Haus
8 Bauteil Fenster Haus
Hat jemand eine Idee, wie das mit einem (hoffentlich) halbwegs einfachen Code zu lösen ist? Ich bin leider über die Erstellung eines Moduls in VBA noch nicht herausgekommen.
Ich bin dankbar für jede Hilfe.
Danke, Nitokris

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub FuelleAuf() Dim i As Long Dim wks As Worksheet Dim strmerke As String Dim bende As Boolean Set wks = ActiveSheet i = 2 bende = False Do While bende = False If wks.Cells(i, 1).Value "" Then If wks.Cells(i, 1).Value = "Gebäude " Then strmerke = wks.Cells(i, 2).Value End If wks.Cells(i, 3).Value = strmerke Else If wks.Cells(i + 1, 1).Value = "" Then bende = True End If End If i = i + 1 Loop End Sub

Hallo Nikrotis,
hier die Schleife mal mit kommentaren:


Do While bende = False                  'solange bende = true mache das folgende
If wks.Cells(i, 1).Value  "" Then   'nur wenn in zeile i Spalte A etwas steht
If wks.Cells(i, 1).Value = "Gebäude " Then   'nur wenn in Zeile i Spalte A das Wort  _
Gebäude steht
strmerke = wks.Cells(i, 2).Value  'merke dir den WErt der in Zeile i Spalte B  _
steht
End If
wks.Cells(i, 3).Value = strmerke      'schreibe in Zeile i Spalte c den gemerkten  _
Wert
Else
If wks.Cells(i + 1, 1).Value = "" Then   'zeile i Spalte A ist leer und hier wird  _
abgefragt, ob Zeiel i + 1 auch leer ist
bende = True      ' Kriterium für Schleifenende setzen
End If
End If
i = i + 1         'laufvariable für Zeile inkrementieren
Loop

Du siehst auf die Art und weise kannst Du nicht abfragen, ob beliebig viele Leerzeilen kommen. Du könntest es aber so lösen:


Sub FuelleAuf()
Dim i As Long
Dim wks As Worksheet
Dim strmerke As String
Dim bende As Boolean
Set wks = ActiveSheet
llast = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
for i = 2 to llast
If wks.Cells(i, 1).Value  "" Then
If wks.Cells(i, 1).Value = "Gebäude " Then
strmerke = wks.Cells(i, 2).Value
End If
wks.Cells(i, 3).Value = strmerke
end if
next i
End Sub

Sollte so gehen, habs aber nicht getestet.
gruß
yummi

Hallo Nitrokris! Sub Fuelle_auf() Dim Areal As Range, Rng As Range On Error Resume Next Set Areal = Columns(1).SpecialCells(2) On Error GoTo 0 If Not Areal Is Nothing Then For Each Rng In Areal.Areas If Rng(1, 1) = "Gebäude" Then Rng.Offset(, 2) = Rng(1, 2) Next Set Areal = Nothing End If End Sub

Beliebteste Forumthreads (12 Monate)

Zellinhalt per VBA suchen und kopieren

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

318 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellinhalt per VBA suchen und kopieren

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

318 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread