Spalte kopieren in vorhande Da

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: Spalte kopieren in vorhande Da
von: Cathy
Geschrieben am: 21.05.2002 - 09:07:57

Hallo Zusammen,

ich habe folgendes Problem: Zwei Dateien Abrechnung.xls und Bericht.xls liegen vor.

Nun soll die Spalte A der Abrechnung.xls in Spalte B der Berichts.xls kopiert werden. Aber nur die Zellen, die eine Zahl (Format: #### ###### oder ####/######) enthalten und nicht leer sind. In Spalte A und B der Bericht.xls stehen jedoch schon Werte, so dass die neuen Werte oben eingefügt werden sollten. Spalte A und B müssen also nach unten rutschen.

Ausserdem soll dann in die Spalte A der Bericht.xls ein Wert über msgBox eingegeben werden, der dann in alle leeren Zellen der Spalte A eingetragen wird, wenn ein Wert in Spalte B steht.

Ich hab schon das ganze Pfingstwochenende probiert, bin aber zu keiner gescheiten Lösung gekommen. Kann mir jemand helfen??

Vielen Dank

Cathy

nach oben   nach unten

Re: Spalte kopieren in vorhande Da
von: Roland Köstring
Geschrieben am: 21.05.2002 - 14:05:52

Hallo Cathy,
Das Kopierproblem kann folgender Code lösen. Das Msgbox-Problem
bleibt noch...

Sub VonA_NachB()
'---------------
Dim wbA As Workbook
Dim shA As Worksheet
Dim wbB As Workbook
Dim shB As Worksheet
Dim iZl As Long
Dim AnzZl
'
' Bericht.xls ist geöffnet, Abrechnung ist geschlossen

Set wbB = ActiveWorkbook
Set shB = ActiveSheet
'
' Abrechnung öffnen
Workbooks.Open ("Abrechnung.xls")
Set wbA = ActiveWorkbook
Set shA = ActiveSheet
' letztes belegtes Feld in Spalte A feststellen
AnzZl = Range("A65536").End(xlUp).Row
iZl = 1
' Nichtleere Felder von B nach A
Do Until iZl > AnzZl
If Cells(iZl, 1) <> "" Then
' 1.Zeile in B leer machen, andere runterschieben
shB.Range("A1:B1").Insert Shift:=xlDown
shB.Cells(1, 2) = shA.Cells(iZl, 1)
End If
iZl = iZl + 1
Loop
' Ende: Abrechnung schliessen
wbA.Close
End Sub

Gruss Roland

nach oben   nach unten

Re: Spalte kopieren in vorhande Da
von: Cathy
Geschrieben am: 21.05.2002 - 19:37:31

Danke Roland, musste ich noch ein klein wenig anpassen, aber dann gings.

Gruss Cathy


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Spalte kopieren in vorhande Da"