Office: EXCEL 2003 Makro!! brauche Hilfe bitte....

Guten Tag....

ich habe ein Problem mit Excel und zwar möchte ich ein Makro schreiben das in ein Tabellenblatt nach rechts geht etwas kopiert und wieder nach links auf das eine Tabellenblatt und da es einfügt. ABER: Vorhandene Werte die da schon stehen sollen NICHT übernommen werden. Brauche HILFE ist sehr wichtig....Das ist mein Makro und ich hoffe ihr könnt mir Helfen, und es umschreiben.

Mein Makro:


Sub NächsteTabellenblattKopierenZurückEinfügen()

ActiveSheet.Next.Select
Range("F14:N121").Select
Selection.Copy
ActiveSheet.Previous.Select
Range("F14").Select
ActiveSheet.Paste
Range("A1").Select

End Sub


Mit freundlichen Grüßen

ava_119

 

Hallo!

Teste mal den hier (kopiert die Daten nur in die leeren Zellen des Bereichs):

Code:

Sub test()
Dim zelle As Range
For Each zelle In Range("F14:N121")
If zelle = "" Then zelle = ActiveSheet.Next.Range(zelle.Address)
Next
End Sub

 

So ist's wahrscheinlich noch schneller:

Code:

Sub test()
Dim zelle As Range
For Each zelle In Range("F14:N121").SpecialCells(xlCellTypeBlanks)
zelle = ActiveSheet.Next.Range(zelle.Address)
Next
End Sub

 

es klappt irgendwie nicht :-(

 

Tolle Antwort...

Was klappt denn nicht?
Funktioniert dies?

Code:

Sub test()
Dim zelle As Range
For Each zelle In ActiveSheet.Range("F14:N121").SpecialCells(xlCellTypeBlanks)
zelle = ActiveSheet.Next.Range(zelle.Address)
Next
End Sub

 

ja also es funktioniert weil es kopiert nichts und fügt auch nichts rein...oder muss ich das zu meinem noch einbinden?

 

Ich habe dir mal eine Beispieldatei angehängt.
Tabelle2!F14:N121 ist mit Zufallszahlen gefüllt.

 

danke schön....ich hab meinen fehler gefunden
=)

 

Guten Tag,

ich hab noch ein Problem oder sagen wir mal zwei.

ich habe eine Tabelle mit ganz viele Formeln und Werten und ich möchte das wenn eine Spalte älter als ein Tag ist also heute ist der 12.12, sodass 11.12 und älter automatisch Gruppiert werden, damit diese ausgeblendet sind und dann sollen da nur noch Werte stehen und keine Formeln in den älteren. Also eigentlich Strg+c und Inhalte einfügen, aber es sollt halt alles Automatisch passieren.

Ich hoffe dies is verständlich. Ich habe noch eine beispiel Datei angefügt.

Mit freundlichen Grüßen ava_119

 

Hallo!

Teste mal diesen Code:

Code:

Sub test()
Dim Datum As Range, Spalte As String
With Sheets("Tabelle1")
.Cells.Columns.Ungroup
Set Datum = .Rows(1).Find(Date)
If Not Datum Is Nothing Then
Spalte = WorksheetFunction.Substitute(Datum.Offset(0, -1).Address(False, False), "1", "")
.Columns("A:" & Spalte).Columns.Group
.Range("A4:" & Spalte & "65536").Copy
.Range("A4:" & Spalte & "65536").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
.Range(Spalte & "4").Offset(0, 1).Select
End If
End With
End Sub

 

es funktioniert nicht...

da verschwinden die gruppen bei mir....

 

Welche Gruppen???

 

Die alten Daten verschwinden ja und ich will das die gruppiert werden, mit Gruppiert meine ich ja das wenn ich oben auf + gehe das ich die alten Daten wieder sehe und nicht das die verschwinden...

 

Hallo!

Ich habe den Code geringfügig angepasst.
In deiner Beispieldatei läuft er perfekt.

Code:

Sub test()
Dim Datum As Range, Spalte As String, i As Integer
With Sheets("Tabelle1")
.Cells.Columns.Ungroup
Do
i = i + 1
Loop Until .Cells(1, i).Value = Date
Set Datum = .Cells(1, i)
If Not Datum Is Nothing Then
Spalte = WorksheetFunction.Substitute(Datum.Offset(0, -1).Address(False, False), "1", "")
.Columns("A:" & Spalte).Columns.Group
.Range("A4:" & Spalte & "65536").Copy
.Range("A4:" & Spalte & "65536").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
.Range(Spalte & "4").Offset(0, 1).Select
End If
End With
End Sub

 

hallo schatzi.

ich bedanke mich für die Makros hast mir echt geholfen =)..

ich hab nur noch mal paar Fragen. Kann man denn ein Makro Passwort schützen? und kann ich machen wenn ich mein Makro ausführe das eine Box aufspringt und mir sagt ob ich das wirklich übernehmen möchte Ja, Nein, Abbrechen. So wie das Speichern einer Datei..

Lieben Gruß