VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
VB Suchfeld und Spaltenprobelm- verzweifelte sucht Hilfe	21.09.2015 22:59:25	Susi

Ansicht des Beitrags:

Von:
Susi

Datum:
21.09.2015 22:59:25

Views:
1275

Rating:

Antwort:

Thema:
VB Suchfeld und Spaltenprobelm- verzweifelte sucht Hilfe

1	`Hallo und Hilfe :)`

1	`Habe folgende(s) Problem(e):Ich würde zu meiner Listbox1 gerne ein Suchfeld einfügen. Soll heißen:`

1 2	`-Wenn jemand einen Buchstaben oder Kombination aus Buchstaben eingibt, soll eine Auswahl in der Listbox angezeigt werden` `(hintergrund ist eine Kundentabelle.` `In` `der Listbox1 sollen Nachnamen angezeigt werden).`

1	`--> Ich habe Google etliche Tage bemüht, finde aber einfach nichts wie ich das machen könnte :(`

Die Listbox1 zeigt alle Ergebnisse in Spalte 1 ein. Das Suchfeld soll nun alle gesuchten
Einträge filtern. Ich schaffe es einfach nicht....dafür fehlt mir einfach das wissen :(
  
Zudem habe ich noch ein Problem nr. 2: Wenn ich auf "neuen Eintrag gehe" setzt er mir in
Zeile 188 zwar einen "neuen Eintrag" aber ich kann dort nichts speichern und zu allem 
Überfluss sind in den darauf folgenden Spalten (188;B,188;C...usw) schon Daten hinterlegt-> quasi hat 
er einen neuen Eintrag in einer falschen Spalte erstellt (aber warum?) Wäre überaus dankbar für Hilfe.
Hier mein wirrer Code
 
Tausend Dank schon einmal für die Mühe

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

LG Susi
 
 
'Neuer Eintrag Schaltfläche Ereignisroutine
Private Sub CommandButton1_Click()
    Dim lZeile As Long
      'Wenn der Benutzer einen neuen Eintrag erzeugen möchte,
      'erstellen wir einen neuen Eintrag in der ListBox und markieren
      'diesen, damit der Benutzer die Daten eintragen kann
       
      lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die überschriftrn
      'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
      Do While Trim(CStr(Tabelle2.Cells(lZeile, 1).Value)) <> ""
          lZeile = lZeile + 1 'Nächste Zeile bearbeiten
      Loop
       
      'Nach Durchlauf dieser Schleife steht lZeile in der ersten leeren Zeile von Tabelle1
      'Neuen Eintrag in die Tabelle1 schreiben, Spalte ID muss gefüllt sein, damit
      'unsere Routinen die Zeile wiederfinden!
      Tabelle1.Cells(lZeile, 1) = CStr("Neuer Eintrag Zeile " & lZeile)
       
      'Und neuen Eintrag in die UserForm eintragen
      ListBox1.AddItem CStr("Neuer Eintrag Zeile " & lZeile)
       
      'Den neuen Eintrag markieren mit Hilfe des ListIndexes
      ListBox1.ListIndex = ListBox1.ListCount - 1
      'Durch das Click Ereignis der ListBox werden die Daten automatisch geladen
       
End Sub
  
  
  
'Löschen Schaltfläche Ereignisroutine
Private Sub CommandButton2_Click()
    Dim lZeile As Long
     
      'Wenn kein Datensatz in der ListBox markiert wurde, wird die Routine beendet
      If ListBox1.ListIndex = -1 Then Exit Sub
     
      'Zum Löschen benötigen wir die Zeilennummer des ausgewählten Datensatzes
      lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die Überschriften
      'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
      Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) <> ""
       
          'Datensatz ID Spalte mit selektiertem Eintrag der ListBox vergleichen
          If ListBox1.Text = Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) Then
               
              'Eintrag gefunden, die ganze Zeile wird nun gelöscht
              Tabelle1.Rows(CStr(lZeile & ":" & lZeile)).Delete
               
              'Die ListBox muss nun neu geladen werden!
              Call UserForm_Initialize
              If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
               
              Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist
               
          End If
       
          lZeile = lZeile + 1 'Nächste Zeile bearbeiten
      Loop
       
End Sub
  
'Speichern Schaltfläche Ereignisroutine
Private Sub CommandButton3_Click()
    Dim lZeile As Long
     
      'Wenn kein Datensatz in der ListBox markiert wurde, wird die Routine beendet
      If ListBox1.ListIndex = -1 Then Exit Sub
       
      'Wir müssen prüfen, ob die ID Spalte auch gefüllt ist!!
      If Trim(CStr(TextBox1.Text)) = "" Then
          'Meldung ausgeben
          MsgBox "Sie müssen mindestens einen Namen eingeben!", vbCritical + vbOKOnly, "FEHLER!"
          'Abbrechen der Speicherroutine
          Exit Sub
      End If
      'Ausbauoption: Prüfen, ob die ID in Tabelle1 Spalte 1 schon vorhanden ist!
       
      'Zum Speichern benötigen wir die Zeilennummer des ausgewählten Datensatzes
      lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die Überschriften
      'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
      Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) <> ""
       
          'Datensatz ID Spalte mit selektiertem Eintrag der ListBox vergleichen
          If ListBox1.Text = Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) Then
               
              'Eintrag gefunden, TextBoxen in die Zellen schreiben
              Tabelle1.Cells(lZeile, 1).Value = Trim(CStr(TextBox1.Text))
              Tabelle1.Cells(lZeile, 2).Value = TextBox2.Text
              Tabelle1.Cells(lZeile, 3).Value = TextBox3.Text
              Tabelle1.Cells(lZeile, 4).Value = TextBox4.Text
              Tabelle1.Cells(lZeile, 5).Value = TextBox5.Text
              Tabelle1.Cells(lZeile, 6).Value = TextBox6.Text
              Tabelle1.Cells(lZeile, 7).Value = TextBox7.Text
              Tabelle1.Cells(lZeile, 8).Value = TextBox8.Text
              Tabelle1.Cells(lZeile, 9).Value = TextBox9.Text
              Tabelle1.Cells(lZeile, 10).Value = TextBox10.Text
              Tabelle1.Cells(lZeile, 11).Value = TextBox11.Text
              Tabelle1.Cells(lZeile, 12).Value = TextBox12.Text
              Tabelle1.Cells(lZeile, 13).Value = TextBox13.Text
              Tabelle1.Cells(lZeile, 14).Value = TextBox14.Text
              Tabelle1.Cells(lZeile, 15).Value = TextBox15.Text
              Tabelle1.Cells(lZeile, 16).Value = TextBox16.Text
              Tabelle1.Cells(lZeile, 17).Value = TextBox17.Text
              Tabelle1.Cells(lZeile, 18).Value = TextBox18.Text
              Tabelle1.Cells(lZeile, 19).Value = TextBox19.Text
              Tabelle1.Cells(lZeile, 20).Value = TextBox20.Text
              Tabelle1.Cells(lZeile, 21).Value = TextBox21.Text
              Tabelle1.Cells(lZeile, 22).Value = TextBox22.Text
              Tabelle1.Cells(lZeile, 23).Value = TextBox23.Text
              Tabelle1.Cells(lZeile, 24).Value = TextBox24.Text
              Tabelle1.Cells(lZeile, 25).Value = TextBox25.Text
              Tabelle1.Cells(lZeile, 26).Value = TextBox26.Text
              Tabelle1.Cells(lZeile, 27).Value = TextBox27.Text
              Tabelle1.Cells(lZeile, 28).Value = TextBox28.Text
              Tabelle1.Cells(lZeile, 29).Value = TextBox29.Text
              
              'Die ListBox muss nun neu geladen werden
              'allerdings nur, wenn sich der Name (ID) geändert hat
              If ListBox1.Text <> Trim(CStr(TextBox1.Text)) Then
                  Call UserForm_Initialize
                  If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
              End If
               
              Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist
               
          End If
       
          lZeile = lZeile + 1 'Nächste Zeile bearbeiten
      Loop
       
End Sub
  
'Beenden Schaltfläche Ereignisroutine
Private Sub CommandButton4_Click()
      Unload Me
End Sub
  
  
'Klick auf die ListBox Ereignisroutine
Private Sub ListBox1_Click()
    Dim lZeile As Long
      'Wenn der Benutzer einen Namen anklickt, suchen wir
      'diesen in der Tabelle1 heraus und tragen die Daten
      'in die TextBoxen ein.
       
      'Wir löschen standardmäßig alle bisherigen TextBoxen-Inhalte
      TextBox1 = ""
      TextBox2 = ""
      TextBox3 = ""
      TextBox4 = ""
      TextBox5 = ""
      TextBox6 = ""
      TextBox7 = ""
      TextBox8 = ""
      TextBox9 = ""
      TextBox10 = ""
      TextBox11 = ""
      TextBox12 = ""
      TextBox13 = ""
      TextBox14 = ""
      TextBox15 = ""
      TextBox16 = ""
      TextBox17 = ""
      TextBox18 = ""
      TextBox19 = ""
      TextBox20 = ""
      TextBox21 = ""
      TextBox22 = ""
      TextBox23 = ""
      TextBox24 = ""
      TextBox25 = ""
      TextBox26 = ""
      TextBox27 = ""
      TextBox28 = ""
      TextBox29 = ""
       
      'Nur wenn ein Eintrag selektiert/markiert ist
      If ListBox1.ListIndex >= 0 Then
       
          lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die Überschriften
          'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
          Do While Trim(CStr(Tabelle2.Cells(lZeile, 2).Value)) <> ""
           
              'Wenn wir den Namen aus der ListBox1 in der Tabelle1 Spalte 1
              'gefunden haben, übertragen wir die anderen Spalteninhalte
              'in die TextBoxen!
              If ListBox1.Text = Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) Then
               
                  'TextBoxen füllen
                  TextBox1 = Trim(CStr(Tabelle1.Cells(lZeile, 1).Value))
                  TextBox2 = Tabelle1.Cells(lZeile, 2).Value
                  TextBox3 = Tabelle1.Cells(lZeile, 3).Value
                  TextBox4 = Tabelle1.Cells(lZeile, 4).Value
                  TextBox5 = Tabelle1.Cells(lZeile, 5).Value
                  TextBox6 = Tabelle1.Cells(lZeile, 6).Value
                  TextBox7 = Tabelle1.Cells(lZeile, 7).Value
                  TextBox8 = Tabelle1.Cells(lZeile, 8).Value
                  TextBox9 = Tabelle1.Cells(lZeile, 9).Value
                  TextBox10 = Tabelle1.Cells(lZeile, 10).Value
                  TextBox11 = Tabelle1.Cells(lZeile, 11).Value
                  TextBox12 = Tabelle1.Cells(lZeile, 12).Value
                  TextBox13 = Tabelle1.Cells(lZeile, 13).Value
                  TextBox14 = Tabelle1.Cells(lZeile, 14).Value
                  TextBox15 = Tabelle1.Cells(lZeile, 15).Value
                  TextBox16 = Tabelle1.Cells(lZeile, 16).Value
                  TextBox17 = Tabelle1.Cells(lZeile, 17).Value
                  TextBox18 = Tabelle1.Cells(lZeile, 18).Value
                  TextBox19 = Tabelle1.Cells(lZeile, 19).Value
                  TextBox20 = Tabelle1.Cells(lZeile, 20).Value
                  TextBox21 = Tabelle1.Cells(lZeile, 21).Value
                  TextBox22 = Tabelle1.Cells(lZeile, 22).Value
                  TextBox23 = Tabelle1.Cells(lZeile, 23).Value
                  TextBox24 = Tabelle1.Cells(lZeile, 24).Value
                  TextBox25 = Tabelle1.Cells(lZeile, 25).Value
                  TextBox26 = Tabelle1.Cells(lZeile, 26).Value
                  TextBox27 = Tabelle1.Cells(lZeile, 27).Value
                  TextBox28 = Tabelle1.Cells(lZeile, 28).Value
                  TextBox29 = Tabelle1.Cells(lZeile, 29).Value
             
               
                  Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist
               
              End If
           
              lZeile = lZeile + 1 'Nächste Zeile bearbeiten
           
          Loop
           
      End If
       
End Sub
  
  
Private Sub TextBox27_Change()
  
End Sub
  
Private Sub UserForm_Activate()
      'Wenn die Eingabemaske angezeigt wird, markieren wir den ersten Namen
      'jedoch nur, wenn auch Einträge in der Liste stehen
      If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
End Sub
  
'Startroutine, wird ausgeführt bevor die Eingabemaske angezeigt wird
Private Sub UserForm_Initialize()
    Dim lZeile As Long
     
      'Alle TextBoxen leer machen
      TextBox1 = ""
      TextBox2 = ""
      TextBox3 = ""
      TextBox4 = ""
      TextBox5 = ""
      TextBox6 = ""
      TextBox7 = ""
      TextBox8 = ""
      TextBox9 = ""
      TextBox10 = ""
      TextBox11 = ""
      TextBox12 = ""
      TextBox13 = ""
      TextBox14 = ""
      TextBox15 = ""
      TextBox16 = ""
      TextBox17 = ""
      TextBox18 = ""
      TextBox19 = ""
      TextBox21 = ""
      TextBox22 = ""
      TextBox23 = ""
      TextBox24 = ""
      TextBox25 = ""
      TextBox26 = ""
      TextBox27 = ""
      TextBox28 = ""
      TextBox29 = ""
     
      'In dieser Routine laden wir alle vorhandenen
      'Einträge in die ListBox1
      ListBox1.Clear 'Zuerst einmal die Liste leeren
       
      lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die Überschriften
      'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
      Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) <> ""
           
          'Aktuelle Zeile in die ListBox eintragen
          ListBox1.AddItem Trim(CStr(Tabelle1.Cells(lZeile, 1).Value))
           
          lZeile = lZeile + 1 'Nächste Zeile bearbeiten
           
      Loop
       
End Sub

Ihre Antwort

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:		Name:		Email:
WYSIWYG-Editor, ctl00_Content_editor1 Editor WerkzeugleistenDokument Quellcode VorschauZwischenablage/Rückgängig AusschneidenTastaturkürzel Strg+X KopierenTastaturkürzel Strg+C EinfügenTastaturkürzel Strg+V Als Klartext einfügenTastaturkürzel Strg+Alt+Umschalt+V Aus Word einfügen RückgängigTastaturkürzel Strg+Z WiederherstellenTastaturkürzel Strg+YEditieren Suchen Ersetzen Alles auswählenGrundstile FettTastaturkürzel Strg+B KursivTastaturkürzel Strg+I UnterstrichenTastaturkürzel Strg+U Durchgestrichen Formatierung entfernenAbsatz Nummerierte Liste einfügen/entfernen Liste Einzug verringern Einzug erhöhen Zitatblock Linksbündig Zentriert Rechtsbündig BlocksatzLinks Link einfügen/editierenTastaturkürzel Strg+K Link entfernen AnkerEinfügen Bild Tabelle Horizontale Linie einfügen Smiley Sonderzeichen einfügen Einen Quelltextabschnitt einfügen oder aktualisierenStileFormatFormatSchriftartSchriftartGrößeGrößeFarben Textfarbe HintergrundfarbeWerkzeuge Maximieren Blöcke anzeigenabout Über CKEditor 4 Drücken Sie ALT 0 für Hilfe

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
VB Suchfeld und Spaltenprobelm- verzweifelte sucht Hilfe	21.09.2015 22:59:25	Susi