Ich möchte ein Inhaltsverzeichnis erstellen
ich habe ein datenblatt und ich möcht von diesen Datenblatt werte Kopieren.
Inhalt
hier haben ich per hand immer
=(Datenblatt)!D2 in Zeile b2
=(Datenblatt)!D3 in Zeile c2
.....
bis
=(Datenblatt)!D9 in Zeile j2
In B2 Beginnend soll ein kontrolle sein on Zeile frei oder nicht
bei frei ein Zahl +1 Zählen
Abfrage ob frei klappt aber wie bekomme ich nun die Daten rein und das er sie dann in diese Zeile der reihe kopiert
_________________________________________
Dim rng As Range
On Error Resume Next
Set rng = Range("b6:b1500").SpecialCells(xlCellTypeBlanks)
On Error GoTo 0
If Not rng Is Nothing Then
rng.Rows(1).Select
Else
MsgBox "Nix mehr frei!"
End If
Set rng = Nothing
End Sub
__________________________________________
Daten
Das Datenblatt wird immer neu erstell und hat immer ein neuen namen
So Wird es erstellt
_____________________________________________
Private Sub Anlegenbtn_Click()
'----------------------------------------------
' Das geht: Kopieren und Umbennen
Dim WS As Worksheet
ActiveWorkbook.Sheets("Vorlage").Copy _
After:=ActiveWorkbook.Sheets("Vorlage")
ActiveSheet.Name = GCNatxt.Text
'----------------------------------------------
'----------------------------------------------
' Das geht: GeoCacheing Blatt ausfüllen
Dim GCName As String
Dim GCNummer As String
Dim GCDif As String
Dim GCTer As String
GCName = GCNatxt.Text
GCNummer = GCNutxt.Text
GCDif = GCDiftxt.Text
GCTer = GCTertxt.Text
'Name des Caches
Range("D2").Select
ActiveCell.FormulaR1C1 = GCName
'Nummer des Cacher
Range("D3").Select
ActiveCell.FormulaR1C1 = GCNummer
'Difficulty des Cacher
Range("D4").Select
ActiveCell.FormulaR1C1 = GCDif
'Terrain des Cacher
Range("D5").Select
ActiveCell.FormulaR1C1 = GCTer
'----------------------------------------------
0
End Sub
____________________________________________