Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
VBA Excel - Datum ausschließlich in eingeblendete Zeilen einfügen |
02.05.2019 16:25:54 |
Gast2331 |
|
|
|
02.05.2019 17:49:41 |
Gast7777 |
|
|
|
02.05.2019 18:43:26 |
Gast92469 |
|
|
|
03.05.2019 08:10:15 |
Gast2331 |
|
|
Von:
Gast2331 |
Datum:
02.05.2019 16:25:54 |
Views:
879 |
Rating:
|
Antwort:
|
Thema:
VBA Excel - Datum ausschließlich in eingeblendete Zeilen einfügen |
Liebe Leute,
ich möchte ein bestimmtes Datum aus Zelle B2 (oder durch Quellbereich definiert) nehmen und in alle eingeblendeten Zellen des Zielbereichs einfügen.
Folgender Code funktioniert grundsätzlich, allerdings muss ich derzeit im Quellbereich das gleiche Datum bis zum Ende der Datensätze ziehen, damit er die gleiche Anzahl der Zellen im Quellbereich und Zielbereich hat.
Weiß jemand eine Lösung, wie ich den Code umschreiben muss oder eine andere elegantere Variante?
Derzeitiger Code:
Public Sub BereichKopieren()
Dim rngQuelle As Range
Dim rngZiel As Range
Dim rngCell As Range
Dim lngCell As Long
On Error Resume Next
Set rngQuelle = Application.InputBox("Markieren Sie den Quellbereich", Type:=8)
Set rngZiel = Application.InputBox("Markieren Sie den Zielbereich", Type:=8).SpecialCells(xlCellTypeVisible)
If Err.Number > 0 Then Exit Sub
'Prüfung ob beide Bereich die gleiche Größe haben
If rngQuelle.Count <> rngZiel.Count Then
MsgBox "Die beide Bereiche sind unterschiedlich groß!"
Exit Sub
End If
For Each rngCell In rngZiel
lngCell = lngCell + 1
rngCell.Value = rngQuelle.Cells(lngCell)
Next rngCell
End Sub |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
VBA Excel - Datum ausschließlich in eingeblendete Zeilen einfügen |
02.05.2019 16:25:54 |
Gast2331 |
|
|
|
02.05.2019 17:49:41 |
Gast7777 |
|
|
|
02.05.2019 18:43:26 |
Gast92469 |
|
|
|
03.05.2019 08:10:15 |
Gast2331 |
|
|