Hilfe bei Programm
07.10.2008 10:35:55
Anna
ich möchte Daten aus einer Tabelle in die andere kopieren. Dabei muss beachtet werden, dass die Daten so eingetragen werden, dass die Spalte C nicht ausgefüllt wird. Dies geht aber nicht, indem ich einfach zum Schluss eine Spalte einfüge, denn oberhalb und unterhalb der importierten Daten ist die C-Spalte beschriftet.
Außerdem sollen die eingefügten Daten danach noch nach dem Wert "finally" durchsucht werden und wenn dieses Wort gefunden wird soll die ganze Zeile gelöscht werden.
Habe schon länger an dem Programm herumgebastelt, aber es geht nicht.
Hoffe, ihr könnt mir helfen...
Und berücksichtigt bitte, dass ich noch Anfänger in der VBA-Programmierung bin.
Sub Import()
Dim Markierung As Range
Dim Startzelle As String
Dim Endzelle As String
Dim Bereich As String
Worksheets("Tabelle1").Activate
Set Markierung = Selection
Markierung.Copy
Worksheets("Tabelle2").Paste
Sheets("Tabelle2").Select
Worksheets("Tabelle2").Activate
Bereich = Selection.Address
Startzelle = ActiveCell.Address
Endzelle = UsedRange.SpecialCells(xlCellTypeLastCell).Address
MsgBox Endzelle
If Cells(i, AC) = "" Then
Range("Startzelle+2:Endzelle").Cut
Range("Startzelle + 3").Select
ActiveSheet.Paste
End If
Dim rng As Range
Set rng = ActiveSheet.Range("Bereich").Find("finally")
If rng Is Nothing Then
Exit Sub
Else
rng.EntireRow.Select
End If
Do
Set rng = ActiveSheet.Range(Bereich).FindNext
If rng Is Nothing Then
Exit Sub
Else
rng.EntireRow.Delete
End If
Loop
End Sub
Anzeige