4 Inputwerte in nächstleere Zeile in mehr Register
05.04.2006 14:52:51
HorstH
kombiniere vergeblich. Wer ist mir bitte behilflich: Mappe mit 12 ident. Registern. Über Inputbox sollen 4 Eingaben (Spalte 3 + 6 + 8 + 9) in die letzte Zeile in allen Registern geschrieben werden. Wie bekomme ich das hin? Danke und Gruß. Horst
Versuchte:
~
Dim neueZ As Long
neueZ = IIf(IsEmpty(Range("C65536")), Range("C65536").End(xlUp).Row, 65536)
'Dim wert01, wert02, wert03, wert04 As String
' wert01 = InputBox("Bitte die genaue Straßenbezeichnung eingeben", "EINGABE: Straßenname")
' Range("soll in C").Value = wert01
' wert02 = InputBox("Bitte die Frequenz eingeben", "EINGABE: Frequenz")
' Range("soll in F").Value = wert02
' wert03 = InputBox("Bitte den Kommentar zur Straße selbst eingeben", "EINGABE: Kommentar Objekt")
' Range("soll in H").Value = wert03
' wert04 = InputBox("Bitte den Kommentar für die Zusatzaufgabe eingeben", "EINGABE: Zusatzaufgabe")
' Range("soll in I").Value = wert04
End Sub
und Makroteil von UweD:
Dim Z, c, FA
For Z = 1 To 12
With Sheets(Format(Z, "00"))
Do
' Set c = .Columns(3).Find(Was, LookIn:=xlValues)
' If Not c Is Nothing Then
' .Rows(c.Row).Delete
' End If
' Loop While Not c Is Nothing
End With
Next Z
End If
End Sub
~