Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
28.04.2015 17:20:03 |
Michael |
|
|
|
29.04.2015 08:49:27 |
Gast2151 |
|
|
Übertrag von Zellen in andere Registerkarten |
01.05.2015 18:14:43 |
Gast58564 |
|
|
Von:
Gast58564 |
Datum:
01.05.2015 18:14:43 |
Views:
925 |
Rating:
|
Antwort:
|
Thema:
Übertrag von Zellen in andere Registerkarten |
'******************************************************************************
' Modul: mdl_getSAP / erstellt : ..... am : 01.05.2015
'------------------------------------------------------------------------------
' Zweck / Inhalt :
' Sheets(1) aus Spalte "B" die auszuwählenden ArtikelNr
' in Sheets(2) die Zelle ("D8"), wo die ArtikelNr. auftauchen soll
' dass immer eine Zeile bei Sheets(2) frei bleiben soll
'******************************************************************************
'
Option Explicit
'
Sub DoIt()
'
'******************************************************************************
' Name : DoIt / erstellt : 01.05.2015 / 18:06 / Sub
'------------------------------------------------------------------------------
' mit Blattschutz arbeite
' Worksheet.Protect Method (Excel)
' UserInterfaceOnly - Optional - Variant
' TRUE to protect the user interface, but not macros !!!
'******************************************************************************
'
Const cCOLUMN As Long = 2 'Spalte "B"
Const cSHEET As String = "Tabelle2"
Const cADDRESS As String = "D8"
Dim sAddress As String
'
sAddress = GetIt
If Len(sAddress) > 0 Then
If Not Intersect(Columns(cCOLUMN), Range(sAddress)) Is Nothing Then
Range(sAddress).Copy Destination:=ChkIt(cSHEET, cADDRESS)
End If
End If
'
End Sub
Private Function GetIt() As String
Application.DisplayAlerts = False
On Error Resume Next
GetIt = Application.InputBox( _
prompt:="Selektiere ArtikelNr", _
Title:="mdl_getSAP", _
Type:=8).Address
On Error GoTo 0
Application.DisplayAlerts = True
End Function
Private Function ChkIt(sName As String, sAddress As String) As Range
Dim Rng As Range
With Sheets(sName)
Set Rng = .Range(sAddress)
If Rng.Value = "" Then
Set ChkIt = Rng
Else
Set ChkIt = .Cells(Rows.Count, Rng.Column).End(xlUp).Offset(2)
End If
End With
End Function
|
- 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
|
|
28.04.2015 17:20:03 |
Michael |
|
|
|
29.04.2015 08:49:27 |
Gast2151 |
|
|
Übertrag von Zellen in andere Registerkarten |
01.05.2015 18:14:43 |
Gast58564 |
|
|